<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_id=Session("zhbg_id")
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
%>
<HTML>
<HEAD>
<link href="../../css.CSS" rel="stylesheet" type="text/css">
<TITLE><%=Application("zhbg_chatroomname")%>--交通工具设置</TITLE>
</HEAD>
<BODY bgColor=#000000 topMargin=5>
<table width="90%" height="119" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center" ><a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> 
 [ <%=Application("zhbg_chatroomname")%>--我的交通工具<img border="0" src="../../chat/img/car2.gif"> ]
</td>
  </tr>
<tr>    
    <td colspan="2" align="center" ><a href="vehicle.asp" target="_self"  title="去购买各式各样的交通工具"><img border="0" src="../../chat/img/car1.gif">点击返回[交通工具专卖店]页面</a>
    </td>    
</tr> 
</table>
<table width="100%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr> 
<% 
Set conn=Server.CreateObject("ADODB.CONNECTION") 
Set rs=Server.CreateObject("ADODB.RecordSet") 
conn.open Application("zhbg_usermdb") 
rs.open "SELECT * FROM vh WHERE b='"&zhbg_name&"'",conn 
do while not rs.eof and not rs.bof 
%> 
    <td width=25% align="center" valign="middle" > 
      <img src="images/<%=rs("h")%>"><br>
      <%=rs("a")%>；　<font color="#ff6600">使用状况：</font><font color="#ff0000"><br></font><%if rs("c") then%>进入：[使用]<%else%> 进入：[不用]<%end if%><br>
<%if rs("e") then%>　退出：[使用] <%else%>　退出：[不用]<%end if%></td>
    <td valign="middle" bgcolor="#660000">
<table>
        <tr><td colspan=2><font color="#ff6600">最后日期：<%=rs("l")%>；　耐久度：<%=rs("i")%>；　状态：<%if rs("j") then%> 损坏 <%else%> 正常<%end if%>；　维修次数</font>：<%=rs("k")%>　<font color="#FF0000">　</font><a href="rpvh.asp?id=<%=rs("id")%>" target="_self" title="维修需要支付一定的费用"><font color="#FFFFFF">[进行维修]</font></a> <a href="rrvp.asp?id=<%=rs("id")%>" target="_self" title="维修需要支付一定的费用"><font color="#FFFFFF">[出售旧车]</font></a> </td></tr><tr>    
   
  <td colspan=2> 
  <form  method="post" action="myvhok.asp"> 
  <div><font color="#ff6600">座驾昵称：</font><input type="text" name="vhname" value="<%=rs("g")%>" maxlength=50 size=18> 
  <select name="jrtc" >     
  <option value=true  selected > 进入聊天室时 </option><option value=false > 退出聊天室时 </option>
</select>
    </select>
  <select name="jr"><option value=false> 不用 </option><option value=true selected> 使用 </option></select>    
  </div>
  <tr>
  <td >
  <%if not rs("c") and rs("e") then%>
  公告：<input type="text" name="jrtg" value="<%=rs("f")%>" maxlength=255 size=60>
  <%else%> 
  公告：<input type="text" name="jrtg" value="<%=rs("d")%>" maxlength=255 size=60> 
  <%end if%> 
  </td> 
  <td> 
  <input type="hidden" name="id" value="<%=rs("id")%>"> 
  <input type="submit" name="submit" value="确定"></td> 
  </tr> 
  </form></table> 
    </td> 
  </tr><tr> 
<% 
rs.movenext 
loop 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
 
%> 
</tr> 
</table> 
<table width="90%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center" > 
提　　示：进入时公告可以使用##代替自己的名字，$$代替座驾昵称。<br>
如进入时：##开着刚买不久的$$，来到了<%=Application("zhbg_chatroomname")%>，见到各位大虾，拱手曰：“众位大虾，小生有礼了”<br>
或退出时：##泪眼模糊对国度里的各位大虾道：“我有事先走一步了。”话音刚落，钻进自家的$$，只见屁股冒烟，立即消失无影踪。<br>
<br>
注　　意：进入及退出公告等不可以包含半角字符及空格等，请使用全角标点符号；每种座驾只能有一个昵称。<br>
      　　　　　进入或退出聊天室时最多只有一种交通工具处于使用状态，设置其中一个为使用状态会清掉其它的为非使用态 <br>
      最后日期：当维修次数为0时是购买日期，否则是最后一次维修的日期</font><br><br>
<font color="#ff0000" size=4>
警    告：进入公告要是写得太无聊或无耻的话监禁ID或删ID没商量，请大家文明用语！</font>      
<br><br><DIV align=center> 
<a href="#" onClick="window.open('vehicle.asp',target='_self')"  title="去购买各式各样的交通工具"> 点击这儿返回[交通工具专卖店]页面</a><br><br> 
<%=Application("zhbg_chatroomname")%></div>   
</td>
  </tr>
</table> 
</body> 
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript> 
<script language=javascript> 
</script> 
 
 
 
 
