<%@ 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_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
http=Request.ServerVariables("HTTP_REFERER") 
'if InStr(http,"Center/jhjs")=0 then 
'Response.Write "<script language=javascript>{alert('对不起，程序拒绝您的操作！！！\n     按确定返回！');parent.history.go(-1);}</script>" 
'Response.End 
'end if
vhid=trim(Request.querystring("id"))
if not IsNumeric(vhid) then
	Response.Write "<script language=JavaScript>{alert('滚吧，你想做什么？想捣乱吗？！');}</script>"
	Response.End 
end if

Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT a,g,h,i,j FROM vh where id="&vhid,conn
If Rs.Bof OR Rs.Eof then
	rs.close
	set rs=nothing	
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你想做什么？想捣乱吗？！');parent.history.go(-1);}</script>"
	Response.End
end if
vhname=rs("a")
vhpic=rs("h")
vhnj=rs("i")
nickname=rs("g")
vhj=rs("j")
rs.close
rs.open "select c,h,j,m from b where a='"&vhname&"'",conn
if vhnj*2>rs("j") and not vhj then
	rs.close
	set rs=nothing	
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：座驾现在的状态良好，不需要维修！');location.href = 'javascript:history.go(-1)';}</script>"
	Response.End
end if
randomize
vhrnd=int(rnd()*10)/100+0.28
vhtt=int(rs("m")/vhrnd+sqr(rs("h"))*vhrnd)
vhc=rs("c")
vhh=rs("h")
vhm=rs("m")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE><%=Application("zhbg_chatroomname")%>--交通工具维修场</TITLE>
<link href="../../css.CSS" rel="stylesheet" type="text/css">
<BODY bgColor=#000000 topMargin=5>
<table width="90%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center" > 
[ <%=Application("zhbg_chatroomname")%>--交通工具维修场]<img border="0" src="../../chat/img/car3.gif" width="70" height="36">
</td>
  </tr>
<tr>    
    <td colspan="2" align="center" ><a href="myvh.asp" target="_self"  title="装备交通工具及定制进入退出聊天室公告">点击这儿返回[装备座驾]页面</a></td>    
</tr> 
</table>
<table width="90%" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>
    <td width="180" align="center" valign="middle" bgcolor="#660000"  rowspan="2"><img src='images/<%=vhpic%>'><br>
      [<%=vhname%>]</td>
    <td  align="center" valign="middle" > 
      <b>本维修场属官方维修场，质量保证！童叟不欺！</b><br>
      <br>
      <font color="#ff6600"> 你的
      <%if nickname<>"" then%>
      [<%=nickname%>]
      <%else%>
      [<%=vhname%>]
      <%end if%>
      维修需要花费银两：<%=int(vhh*0.6+0.5)%>两；金币：<%=int(vhm*0.6+0.5)%>个<br>
  保证能够恢复到九成新以上，若是达不到可以退款！（还没被人投诉过呢！）<br>
  </font>
  <form  method="post" action="rpvhok.asp">
  <input type="hidden" name="type" value="1">
  <input type="hidden" name="id" value="<%=vhid%>">
  怎么样？就选择在这儿维修吧？！<input type="submit" name="submit" value="确定">
  </form>
  </td></tr>
<tr>
    <td  align="center" valign="middle" > 
      <% if vhc<>"飞行器" and vhc<>"战车" then%>
      <b>本私人维修场信誉良好，价格公道！欢迎光顾！</b><br>
      <br>
 <font color="#ff6600">
  你的<%if nickname<>"" then%>[<%=nickname%>]<%else%>[<%=vhname%>]<%end if%>维修需要花费银两：<%=int(vhh*vhrnd+0.5)%>两；金币：<%=int(vhm*vhrnd+0.5)%>个<br>
   一定能够恢复到六成新以上！信誉保证！（有人相信吗？20%机率会被修坏！）</font><br>
  <form  method="post" action="rpvhok.asp">
  <input type="hidden" name="type" value="2">
  <input type="hidden" name="tt" value="<%=vhtt%>">
  <input type="hidden" name="vhrnd" value="<%=vhrnd*100%>">
  <input type="hidden" name="id" value="<%=vhid%>">
  怎么样？就选择在这儿维修吧？！<input type="submit" name="submit" value="确定">
  </form>
      <%end if%>
    </td>
  </tr>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>