<!-- #include file="setup.asp" -->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3

username=Request.Cookies("username")

select case Request("menu")
case "buy"
succtitle="成功购买汽车"
buy
end select

%>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="car.asp">社区汽车</a></td>
</tr>
</table><br>


<html>
<head>
<title>社区汽车</title>
<table width="700" border="0" cellspacing="0" cellpadding="0" height="352" align="center">
  <tr> 
    <td height="97" width="245" valign="top"><img src="images/car/carlogo.gif" border="0" width="200" height="130"></td>
    <td height="97" width="455" valign="top"> 
      <table width="100" border="0" cellspacing="0" cellpadding="0" height="20">
        <tr> 
          <td>　</td>
        </tr>
      </table>
       <fieldset style="border:1px solid #a4b6d7;WIDTH: 440" >
       <legend>你的状态</legend> 
      <table border="0" cellspacing="0" cellpadding="0" height="105" align="center" width="408">
        <tr> 
          <td width="91">社区昵称：</td>
          <td width="136"><%=rs("username")%></td>
          <td width="91">注册日期：</td>
          <td width="136"> <%=rs("regtime")%></td>
        </tr>
<tr> 
          <td width="91">发表贴数：</td>
          <td width="136"> <%=rs("posttopic")+rs("postrevert")%></td>
          <td width="84">精华贴数：</td>
          <td width="97"><%=rs("goodtopic")%></td>
        </tr>
        <tr> 
 <td width="84">社区金币：</td>
          <td width="97"><%=rs("money")%></td>
          <td width="84">体 力 值：</td>
          <td width="97"><%=rs("userlife")%></td>
          
        </tr>
<tr> 
          <td width="91">经 验 值：</td>
          <td width="136"> <%=rs("experience")%></td>
          <td width="84"> 魅 力 值：</td>
          <td width="97"> <%=rs("magicpower")%></td>
        </tr>
                <tr> 
          <td width="91">登陆次数：</td>
          <td width="136"> <%=rs("degree")%></td>
<td width="84">当前门派：</td>
          <td width="97"> 
            <%
if ""&rs("faction")&""="" then
response.write "无"
else
response.write rs("faction")
end if
%>
          </td>
          
        </tr>
       
<tr> 
          <td width="95">社区威望：</td>
          <td width="142"> 
           <%=rs("power")%>
          </td>
 <td width="95">社区头衔：</td>
          <td width="142"> 
            <%
if ""&rs("honor")&""="" then
response.write "无"
else
response.write rs("honor")
end if
%>
          </td>
</tr>
        <tr> 
          <td width="91">社区住宅：</td>
          <td width="136"> 
            <%
if ""&rs("building")&""="" then
response.write "无"
else
response.write rs("building")
end if
%>
          </td>
          <td width="91">社区伴侣：</td>
          <td width="136"> 
         <%
if ""&rs("consort")&""="" then
response.write "无"
else
response.write rs("consort")
end if
%>
          </td>
        </tr>
      </table>
      <br>
     &nbsp;&nbsp; 要买汽车,经验值必须在500以上!&nbsp;&nbsp;&nbsp;您现在的汽车是：<font color="#0066CC"><%
if ""&rs("car")&""="" then
response.write "无"
else
response.write rs("car")
end if
%>
</font></fieldset>
      <br>
      <br> </td>
  </tr>
  <tr valign="top" align="center"> 
    <td colspan="2"> 
      <form name="form1" method="post" action="?menu=buy">
        <fieldset style="border:1px solid #a4b6d7;WIDTH: 670">
<legend>汽车选购</legend>
        <table width="650" border="0" cellspacing="0" cellpadding="0" height="80">
           <tr> 
            <td height="90" width="121"><img src="images/car/b1.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>法拉利575M</B><br>
              法拉利575M Maranello能够成为世界上最好的轿车之一，V-12发动机是主要原因。而从1998年开始，法拉利就立志脚踏实地对其进行改进，采用最新实用的技术，成就了如今的575M Maranello，其中575代表着发动机排量从5.5升增加到5.75升。<br>
              价格：5000元<br>
              <input type="radio" name="radiobutton" value="1">
              购买</td>
            <td height="90" width="117"><img src="images/car/b2.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="222"> <B>法拉利360Modena</B><br>
              360 Modena采用1965年面视的Dinoberlinxtta车款为蓝本，塑造出宽大平扁的车头线条，并加入了玻璃引擎舱盖设计，标榜出“法拉利”的传统技术精华。<br>
              价格：8000元<br>
              <input type="radio" name="radiobutton" value="2">
              购买</td>
          </tr>
          <tr> 
            <td height="90" width="121"><img src="images/car/b3.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>法拉利Enzo</B><br>
              时至2002年，“Enzo Ferrari”出现了，这是对终极性能概念的完整表达，将世界上最先进的F1赛车技术概念贯穿于整个街道量产车的开发中去，法拉利是唯一的。这亦是“Enzo Ferrari”独有的优势，法拉利拥有3次世界F1制<br>
              价格：12000元<br>
              <input type="radio" name="radiobutton" value="3">
              购买</td>
            <td height="90" width="117"><img src="images/car/b4.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="222"> <B>法拉利360Spider</B><br>
              去年于日内瓦车展面世的法拉利新一代车型360Modena，轰动地向世界表明了法拉利的技术实力。<br>
              价格：15000元<br>
              <input type="radio" name="radiobutton" value="4">
              购买</td>
          </tr>
          <tr> 
            <td height="90" width="121"><img src="images/car/b5.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>阿尔法-罗米欧166</B><br>
              Alfa Romeo旗舰具备许多超凡品质：出色的安全性、优雅、舒适，并具有不负Alfa盛名的性能。最重要的是所有这些都保证使驾驶变得轻松、愉快!<br>
              价格：20000元<br>
              <input type="radio" name="radiobutton" value="5">
              购买</td>
            <td height="90" width="117"><img src="images/car/b6.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="222"> <B>阿尔法-罗米欧Gtv</B><br>
               Alfa Romeo的系列展示最后推出的是一种具有特色鲜明、马力强劲、高舒适度和在任何驾驶环境中具有超群的动态性能的车型：Alfa Gtv<br>
              价格：30000元<br>
              <input type="radio" name="radiobutton" value="6">
              购买</td>
          </tr>
          <tr> 
            <td height="90" width="121"><img src="images/car/b7.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>阿尔法.罗米欧147</B><br>
              阿尔法147不同于以往的阿尔法车系，它是辆外形漂亮、充满朝气的溜背式轿车。它的定位是为那些苦苦寻找一种紧凑、充满运动感且外形具有活力的轿车的人士设计的。<br>
              价格：50000元<br>
              <input type="radio" name="radiobutton" value="7">
              购买</td>
            <td height="90" width="117"><img src="images/car/b8.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="222"> <B>玛莎拉蒂3200GT</B><br>
              玛莎拉蒂SPYDER为典型的敞篷跑车造型，其优美的车身线条出自名家乔治亚罗之手，椭圆形的前大灯、半张口的进气格栅、圆滑利落的发动机盖及收敛的车身腰部，给人要向前冲的感觉<br>
              价格：80000元<br>
              <input type="radio" name="radiobutton" value="8">
              购买</td>
          </tr>
          <tr> 
            <td height="90" width="121"><img src="images/car/b9.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>玛莎拉蒂spyder</B><br>
              玛莎拉蒂SPYDER为典型的敞篷跑车造型，其优美的车身线条出自名家乔治亚罗之手，椭圆形的前大灯、半张口的进气格栅、圆滑利落的发动机盖及收敛的车身腰部，给人要向前冲的感觉<br>
              价格：100000元<br>
              <input type="radio" name="radiobutton" value="9">
              购买</td>
            <td height="90" width="117"><img src="images/car/b10.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="222"> <B>保时捷911Turbo_Coupe</B><br>
              保时捷911Turbo_Coupe,可选配带大玻璃车顶且车顶和后窗可以分别开启.新增加的加价供应的大显示屏幕通信中心.<br>
              价格：200000元<br>
              <input type="radio" name="radiobutton" value="10">
              购买</td>
          </tr>
          <tr> 
            <td height="90" width="121"><img src="images/car/b11.jpg" width="100" height="75" border="1"></td>
            <td height="90" width="190"> <B>保时捷 Boxster</B><br>
              采用了可变式进气凸轮轴,发动机功率提高了8马力,而且更省油也更清洁!<br>
              价格：500000元<br>
              <input type="radio" name="radiobutton" value="11">
              购买</td>
            <td height="90" colspan="2" valign="middle" align="center"> 看了这么多漂亮的汽车，哪辆令你心动了呢？<br>
              快快选择购买吧！当然你的钱可要带够噢！
              <input type="submit" name="Submit" value="确定购买" class=input>
            </td>
          </tr>
        </table></fieldset>
      </form>
    </td>
  </tr>
</table>

<%
rs.close
htmlend

sub buy
rs.close
int price
car=Request("radiobutton")
if car="" then
error("你还没有选择你喜欢的汽车呢!")
end if
select case car
case "1"
price=5000
info="<a href=# onclick=javascript:open('mycar.asp?car=1&username="&username&"','','width=282,height=248')><font color=#0066CC>法拉利575M</font></a>"
case "2"
price=8000
info="<a href=# onclick=javascript:open('mycar.asp?car=2&username="&username&"','','width=282,height=248')><font color=#0066CC>法拉利360Modena</font></a>"
case "3"
price=12000
info="<a href=# onclick=javascript:open('mycar.asp?car=3&username="&username&"','','width=282,height=248')><font color=#0066CC>法拉利Enzo</font></a>"
case "4"
price=15000
info="<a href=# onclick=javascript:open('mycar.asp?car=4&username="&username&"','','width=282,height=248')><font color=#0066CC>法拉利360Spider</font></a>"
case "5"
price=20000
info="<a href=# onclick=javascript:open('mycar.asp?car=5&username="&username&"','','width=282,height=248')><font color=#0066CC>阿尔法-罗米欧166</font></a>"
case "6"
price=30000
info="<a href=# onclick=javascript:open('mycar.asp?car=6&username="&username&"','','width=282,height=248')><font color=#0066CC>阿尔法-罗米欧Gtv</font></a>"
case "7"
price=50000
info="<a href=# onclick=javascript:open('mycar.asp?car=7&username="&username&"','','width=282,height=248')><font color=#0066CC>阿尔法.罗米欧147</font></a>"
case "8"
price=80000
info="<a href=# onclick=javascript:open('mycar.asp?car=8&username="&username&"','','width=282,height=248')><font color=#0066CC>玛莎拉蒂3200GT</font></a>"
case "9"
price=100000
info="<a href=# onclick=javascript:open('mycar.asp?car=9&username="&username&"','','width=282,height=248')><font color=#0066CC>玛莎拉蒂spyder</font></a>"
case "10"
price=200000
info="<a href=# onclick=javascript:open('mycar.asp?car=10&username="&username&"','','width=282,height=248')><font color=#0066CC>保时捷911Turbo_Coupe</font></a>"
case "11"
price=500000
info="<a href=# onclick=javascript:open('mycar.asp?car=11&username="&username&"','','width=282,height=248')><font color=#0066CC>保时捷 Boxster</font></a>"

end select
rs.Open "select consort,money,experience,car from [user] where username='"&username&"'",Conn,1,3
if rs("money")<price then
error("<li>你的钱不够,以后带够钱再来!")
end if
if rs("experience")<500 then
error("<li>你的经验值低于500,不能购买汽车!")
end if
if rs("consort")<>empty then consort1=rs("consort")
rs("car")=info
rs("money")=rs("money")-price
rs.update
rs.close
if consort1<>empty then
rs.Open "select car from [user] where username='"&consort1&"'",Conn,1,3
rs("car")=info
rs.update
rs.close
end if

sql="select * from ecc"
rs.Open sql,Conn,1
rs("trend5")="<font color=blue>"&Request.Cookies("username")&"</font>花了<font color=#FF0000>"&price&"</font>金币买了一辆"&info&"<a href=car.asp>"
rs.update
rs.close


succeed("<li>恭喜你,你已经成功购买了"&info&"<br><br><li><a href=car.asp>马上返回</a>")
end sub



%>