result.asp

asp构建网站bbs.采用B/S架构

<!--#include file="conn.asp"-->
<%h1="艾基脑"
h2="马虎"
h3="赤马尾"
h4="玛雅侠"
h5="雷电"
h6="蒙面怪客"
h7="NASAKI"
h8="极度凶兽"%>
<%Dim h1,h2,h3,h4,h5,h6,h7,h8,horsewin,TableWidth,tablebackcolor,tableTitleColor,TableFontColor,tablebodycolor
horsewin=Request.Form("horsewin")
 dim horsename(8)
 horsename(1)=h1
 horsename(2)=h2
 horsename(3)=h3
 horsename(4)=h4
 horsename(5)=h5
 horsename(6)=h6
 horsename(7)=h7
 horsename(8)=h8
 dim horse(7)
horse(0)=Request.Form("horse0")
horse(1)=Request.Form("horse1")
horse(2)=Request.Form("horse2")
horse(3)=Request.Form("horse3")
horse(4)=Request.Form("horse4")
horse(5)=Request.Form("horse5")
horse(6)=Request.Form("horse6")
horse(7)=Request.Form("horse7")
membername=request.cookies(cn)("lgname")
sqlstr="update user set qian=int(qian)+"&horse(horsewin)*8&" where name='"&request.cookies(cn)("lgname")&"'"
myconn.Execute sqlstr
%>
<script language=vbscript>  
 if confirm("比赛结果公布：您赢得现金 <%=horse(horsewin)*8%> NG！     第一名：(<%=horsewin+1%>) <%=horsename(horsewin+1)%>      重新开始？") then  
  location.href = "horse.asp"
 else
  location.href = "index.asp"
 end if
</script>