newhorse.asp

赌马程序,可以进行社区虚拟赌马哦

<%
if Session.Contents("UserName")="" then
  response.write("SORRY！您没有<a href=../../index.htm>登录</a>。")
else

DBPath = Server.MapPath("../../../data/horses.asp")
set conn=server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

 set horses=server.createobject("adodb.recordset")
 horses.open "Select * From horses where name='蒙那利莎'",conn,0,1
       if not horses.eof then
%>
<script language=vbscript>
  MsgBox "蒙那利莎已经被人买走了，请等下次机会啦！"
  location.href = "javascript:history.back()"
</script>
<%
else
   conn.execute("Insert Into horses(name,owner) values('蒙那利莎','"&Session.Contents("UserName")&"')")
%>
<script language=vbscript>
  MsgBox "蒙那利莎已经属于您的了，请刷新版面看看 ^_^"
  location.href = "javascript:history.back()"
</script>
<%
DBPath = Server.MapPath("../../../data/members.asp")
set userconn=server.createobject("adodb.connection")
userconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set users=server.createobject("adodb.recordset")
   userconn.execute("Update users set cash=cash-500 where name='"&Session.Contents("UserName")&"'")             

    horses.close
    set horses=nothing
    set conn=nothing
end if
end if
%>