📄 hqtgame01_102.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript codepage ="936" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
 Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>紫风铃彩票</title><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
 Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
 Response.End
End Sub
nickname=Session("hxf_u_nickname")
If Session("hxf_u_inthechat") <> 1 Then Msg "您尚未登录，不能购买彩票。"
If nickname = "" Then Msg "您尚未登录，不能购买彩票。"
If nickname = "聊天室管理员" Then Msg "不能以聊天室管理员的身份购买彩票。"
If Session("hxf_g_game01") = "" Then Response.Redirect "hqtgame01_100.asp"
game = Split(Session("hxf_g_game01"), "|")
game(0) = Int(game(0))
game(9) = Int(game(9))
If game(0) >= 7 Then Response.Redirect "hqtgame01_103.asp"
f1 = Request.Form("f1")
If f1 <> "" Then
 If Not IsNumeric(f1) Then f1 = 0
 f1 = Int(f1)
 If f1 < 0 Or f1 > 2 Then f1 = 0
 game(0) = game(0) + 1
 da = Split(game(game(0)), ",")
 xz = da(f1)
 If game(0) = 1 Then
  game(9) = Int(game(8)) * xz
  game(10) = xz
 Else
  game(9) = game(9) * xz
  game(10) = game(10) & "," & xz
 End If
 Session("hxf_g_game01") = Join(game, "|")
 If xz = 0 Then Response.Redirect "hqtgame01_103.asp"
 If game(0) >= 7 Then Response.Redirect "hqtgame01_103.asp"
Else
 If game(0) > 0 Then
  da = Split(game(game(0)), ",")
 Else
  Dim da(2)
 End If
 xz = Right(game(10), 1)
End If
%>
<html>
<head>
<title>红蜻蜓彩票</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;}
textarea{font-family:宋体;font-size:9pt;}
a{font-family:'宋体';color:blue;text-decoration:none}
a:hover{font-family:'宋体';color:blue;text-decoration:underline}
</style>
<script language=Javascript>
function check(){
 if(confirm("真的要选择这个选项吗？")){
  document.send.OK.disabled = 1;
  return true;
 }
 else{
  return false;
 }
}
function so(){
 if(confirm("真的不再继续闯关啦？")){
  document.send.SO.disabled = 1;
  top.location.replace("hqtgame01_103.asp")
 }
}
</script>
</head>
<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>
<table border="0" align="center" width="320">
<tr> 
<form method="post" name="send" action="hqtgame01_102.asp" onSubmit="return(check())">
<td> 
<hr>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>您认购彩票的金额：<font color=red><%=game(8)%>￥</font></td>
<td align="right">当前已累积奖金：<font color=red><%=game(9)%>￥</font></td>
</tr>
</table>
<hr>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>上一关答案：A [<font color="red"><%=da(0)%></font>]　B [<font color="red"><%=da(1)%></font>]　C [<font color="red"><%=da(2)%></font>]</td>
<td align="right">您选中了： [<font color="red"><%=xz%></font>] </td>
</tr>
</table>
<hr>
现在是第 [<font color="red"><b><font color="blue"><%=game(0) + 1%></font></b></font>] 关，请选择： 
<input type="radio" name="f1" value="0" checked>
A　
<input type="radio" name="f1" value="1">
B　
<input type="radio" name="f1" value="2">
C 
<hr>
<div align="center">
<%If game(0) >= 3 Then%><input type="button" name="SO" value="见好就收啦(S)" onClick="javascript:so()" accesskey="s">
　<%End If%><input type="submit" name="OK" value="我已经选好(O)" accesskey="o">
</div>
<hr>
<div align=center><font color=999999>☆ ☆ 祝 ☆ 您 ☆ 好 ☆ 运 ☆ ☆</font></div>
</td>
</form>
</tr>
</table>
<div id='dh' style="position:absolute; left:-800px; top:-800px; width:0px; height:0px; z-index:1">
<input type=button value='-' name='goppp' onclick='Javascript:window.close();' accesskey='q'>
</div>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -