📄 hqtgame02_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") = "" Then Msg "您尚未登录，不能进行游戏。"
If nickname = "" Then Msg "您尚未登录，不能进行游戏。"
If nickname = "聊天室管理员" Then Msg "不能以聊天室管理员的身份进行游戏。"
If Session("hxf_g_game02") = "" Then Response.Redirect "hqtgame02_100.asp"
game = Split(Session("hxf_g_game02"), "|")
card = Split(game(1), ",")
game(2) = Int(game(2))
game(3) = Int(game(3))
game(4) = Int(game(4))
If game(3) = 0 Then
 game(3) = CardNum(card(game(2) + 1))
 game(4) = CardNum(card(game(2) + 2))
 game(5) = card(game(2) + 1)
 game(6) = card(game(2) + 2)
 game(2) = game(2) + 2
End If
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
 game(3) = game(3) + CardNum(card(game(2) + 1))
 game(5) = game(5) & "," & card(game(2) + 1)
 game(2) = game(2) + 1
End If
Function CardNum (v1)
 cnv = Left(v1, Len(v1) - 1)
 Select Case cnv
  Case "A"
   cnv = 1
  Case "J", "Q", "K"
   cnv = 10
  Case Else
   cnv = Int(cnv)
 End Select
 CardNum = cnv
End Function
Function CardShow (v1)
 csv = Replace(v1, "W", "<font color=black face=Symbol>&ordf;</font>")
 csv = Replace(csv, "X", "<font color=black face=Symbol>§</font>")
 csv = Replace(csv, "Y", "<font color=red face=Symbol>&copy;</font>")
 csv = Replace(csv, "Z", "<font color=red face=Symbol>¨</font>")
 csv = Replace(csv, ",", "<br>")
 CardShow = csv
End Function
Session("hxf_g_game02") = Join(game, "|")
If game(3) >= 21 Then Response.Redirect "hqtgame02_103.asp"
%>
<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("如果您的总点数超过 21 点，您将输掉这场游戏。\n\n您真的继续要牌吗？")){
  document.send.Submit.disabled = 1;
  document.send.Exit.disabled = 1;
  return true;
 }
 else{
  return false;
 }
}
function exit(){
 if(confirm("您真的不再要牌了吗？")){
  document.send.Submit.disabled = 1;
  document.send.Exit.disabled = 1;
  top.location.replace("hqtgame02_103.asp");
 }
}
</script>
</head>
<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>
<table border="0" align="center" width="100%" height="100%">
<tr> 
<form method="post" name="send" action="hqtgame02_102.asp" onSubmit="return(check())">
<td>
<table border="0" align="center" cellspacing="3" cellpadding="3" width="80%">
<tr align="center" bgcolor="#009900"> 
<td colspan="3"><big><font color="#FFFFFF">您下注金额为：<font color=FFFF00><b><%=game(0)%></b></font>￥</font></big></td>
</tr>
<tr align="center"> 
<td bgcolor="#EEEEFF">&nbsp;</td>
<td bgcolor="#FFFFFF">人　方</td>
<td bgcolor="EEEEFF">机　方</td>
</tr>
<tr align="center"> 
<td bgcolor="#EEEEFF">总点数:</td>
<td bgcolor="#FFFFFF"><font color=red><big><b><%=game(3)%></b></big></font> 点</td>
<td bgcolor="EEEEFF"><font color=red><big><b><%=game(4)%></b></big></font> 点</td>
</tr>
<tr align="center"> 
<td bgcolor="#EEEEFF">牌　面:</td>
<td bgcolor="#FFFFFF" valign="top"><big><%=CardShow(game(5))%></big></td>
<td bgcolor="EEEEFF" valign="top"><big><%=CardShow(game(6))%></big></td>
</tr>
<tr align="center">
<td colspan="3">&nbsp;</td>
</tr>
<tr align="center"> 
<td colspan="3"> 
<input type="submit" name="Submit" value="我还要牌(R)" accesskey="r"<%If game(3) >= 21 Then Response.Write " disabled"%>>
<input type="button" name="Exit" value="不要牌了(E)" accesskey="e" OnClick="javascript:exit()">
</td>
</tr>
</table>
</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 + -