📄 hqtgame01_103.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
userip=Request.ServerVariables("REMOTE_ADDR")
nickname=Session("hxf_u_nickname")
If Session("hxf_u_inthechat") = "" 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(9) = Int(game(9))
n = Year(Date)
y = Month(Date)
r = Day(Date)
s = Hour(Time())
f = Minute(Time())
m = Second(Time())
If Len(y) = 1 Then y = "0" & y
If Len(r) = 1 Then r = "0" & r
If Len(s) = 1 Then s = "0" & s
If Len(f) = 1 Then f = "0" & f
If Len(m) = 1 Then m = "0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
If game(9) > 0 Then
 If Int(game(0)) < 3 Then Response.Redirect "hqtgame01_102.asp"
 zzfs = game(9)
 Set conn=Server.CreateObject("ADODB.CONNECTION")
 Set rs=Server.CreateObject("ADODB.RecordSet")
 connstr=Application("wsaxhg_connstr")
 conn.open connstr
 sql = "SELECT hb FROM reginfo WHERE kill = '0' AND username = '" & nickname & "'"
 rs.open sql, conn, 1, 3
 If rs.Eof And rs.Bof Then
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
  Msg "用户名“" & nickname & "”不存在，不能购买彩票！"
 End If
 huobi = Int(rs("hb"))
 huobi = huobi + zzfs
 rs("hb") = huobi
 rs.Update
 rs.Close
 Session("hxf_u_hb") = huobi
 sql = "SELECT value FROM system WHERE name='chatmoney'"
 rs.open sql, conn, 1, 3
 chatmoney = Int(rs("value")) - zzfs
 rs("value") = chatmoney
 rs.Update
 rs.Close
 Application.Lock
  Application("wsaxhxf_c_chatmoney") = chatmoney
 Application.UnLock
 sql = "INSERT INTO logs (type, logtime, name, ip, opertion) VALUES ('1', '" & sj & "', '" & nickname & "', '" & userip & "', '认购彩票：<font color=red>" & game(8) & "￥</font>，闯过 [<font color=red>" & game(0) & "</font>] 关：<font color=blue>" & game(10) & "</font>，获得奖金：<font color=red>" & game(9) & "￥</font>。')"
 conn.Execute sql
 conn.Close
 Set rs = Nothing
 Set conn = Nothing
End If
Session("hxf_g_game01") = ""
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fnpath = Server.MapPath("log/hqtgame01.txt")
Application.Lock
 If fs.FileExists(fnpath) Then
  Set thisfile = fs.OpenTextFile(fnpath, 8)
 Else
  Set thisfile = fs.CreateTextFile(fnpath, 1, False)
 End If
 thisfile.writeline "[" & sj & "] [" & nickname & "] [" & game(8) & "] [" & game(9) & "] [" & game(10) & "]"
 thisfile.Close
 Set thisfile = Nothing
Application.UnLock
Set fs = Nothing
%>
<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>
</head>
<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>
<table border="0" align="center" width="320">
<tr> 
<form>
<td> 
<hr>
您认购彩票金额：<font color="red"><%=game(8)%>￥</font><br><br>
您共闯了 [<font color="red"><%=game(0)%></font>] 关：<font color="blue"><%=game(10)%></font><br>
<br>
<%If game(9) > 0 Then%>
<div align=center style="font-size:10.5pt"><b>恭喜您，您已获得奖金：<font color=red><%=game(9)%>￥</font>。</b></div>
<%Else%>
<div align=center style="font-size:10.5pt"><b>谢谢您，为聊天室捐资：<font color=red><%=game(8)%>￥</font>。</b></div>
<%End If%>
<br>
<hr>
<div align="center">
<input type="button" name="re" value="我还要买(R)" onClick="JavaScript:top.location.replace('hqtgame01_100.asp')">
<input type="button" name="cw" value="关闭窗口(C)" onClick="JavaScript:top.window.close()">
</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 + -