📄 hqtgame01_100.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") = "" Then Msg "您尚未登录，不能购买彩票。"
If nickname = "" Then Msg "您尚未登录，不能购买彩票。"
If nickname = "聊天室管理员" Then Msg "不能以聊天室管理员的身份购买彩票。"
If Session("hxf_g_game01") <> "" Then Response.Redirect "hqtgame01_102.asp"
%>
<html>
<head>
<title><%=Application("wsaxhxf_c_chatroomname")%>-彩票</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(){
 f1v = document.send.f1.value;
 if(f1v == ""){
  alert("请输入认购金额。");
  return false;
 }
 if(isNaN(f1v)){
  alert("认购金额必须为数字！");
  return false;
 }
 if(Math.floor(f1v) != f1v){
  alert("认购金额必须为整数！")
  return false;
 }
 if(f1v < 10 || f1v > 100){
  alert("认购金额必须是大于 10 且小于 100 的整数！");
  return false;
 }
 document.send.Submit.disabled = 1;
 return true;
}
</script>
</head>
<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>
<table border="0" align="center" width="346" height="141">
<tr> 
<form method="post" name="send" action="hqtgame01_101.asp" onSubmit="return(check())">
<td height="162"> 
<hr>
<div align=center>请输入认购金额：<input type="text" name="f1" size="12" maxlength="3">
<input type="submit" name="Submit" value="认购(S)" accesskey="s">
<input type="reset" name="reset" value="重写(R)" accesskey="r" onclick="document.send.f1.focus()">
</div>
<hr>
　　【说明】聊天室资金库里还有货币 <font color=red><%=Application("wsaxhxf_c_chatmoney")%></font> ￥,先输入认购金额（10－100间的整数），然后以认购金额为底数，有七次翻倍的机会。每次都有三个选项供选择，各选项随机对应倍数：0、1、2，如果选到 
2 则奖金翻倍，选到 1 则奖金保持不变，选到 0 则认购金额上交聊天室资金库。假设你奖金已经达到 6400￥，还有第七关未闯，但聊天室资金库仅有 7000￥，则第七关就取消了，你只能得到 
6400￥。<font color=red>另:至少要过三关!</font><br>
最高奖金可达：<font color="blue">100 * 2 * 2 * 2 * 2 * 2 * 2 * 2 =</font><font color="red">12800￥</font><br>
</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>
<script Language=JavaScript>
 document.send.f1.focus();
</script>
</body></html>
⌨️ 快捷键说明

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