📄 query.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
dim CardId,CardPwd,rs,sql,rs2,sql2
CardId=request("CardId")
CardPwd=request("CardPwd")
if CardId="" or CardPwd="" then
Response.Redirect "query.htm"
else
CardPwd=Encrypt(CardPwd)
end if
sql="select * from Register where CardId='"&CardId&"' and CardPwd='"&CardPwd&"'"
sql2="select CardId,CardPwd,IsFill from Card where CardId='"&CardId&"' and CardPwd='"&CardPwd&"'"
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,conn,1,1
if not(rs.eof) or not(rs.bof) then
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="10">
<table width="500" height="120" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#0000FF">
<tr>
<td width="40%" align="right">游戏卡号：</td>
<td><%=rs("CardId")%></td>
</tr>
<tr>
<td width="40%" align="right">游戏卡密码：</td>
<td><%=Uencrypt(rs("CardPwd"))%></td>
</tr>
<tr>
<td width="40%" align="right">游戏卡类型：</td>
<td><%=rs("CardType")%></td>
</tr>
<tr>
<td width="40%" align="right">你注册的游戏帐号：</td>
<td><%=rs("GameId")%></td>
</tr>
<tr>
<td align="right">你注册的游戏类型：</td>
<td><%=rs("GameType")%></td>
</tr>
<tr>
<td align="right">自设密码：</td>
<td><%=rs("CName")%></td>
</tr>
<tr>
<td width="40%" align="right">处理情况：</td>
<td style="color:#ff0000"><%=rs("DealCase")%></td>
</tr>
<tr>
<td colspan="2" align="center" height="22"> </td>
</tr>
</table>
</body>
</html>
<%
else
set rs2=server.CreateObject ("adodb.recordset")
rs2.Open sql2,conn,1,1
if not(rs2.EOF) or not(rs2.BOF) then
if rs2(2) then Response.Redirect "messbox.asp?code=72":Response.End
Response.Redirect "messbox.asp?code=71"
else
Response.Redirect "messbox.asp?code=70"
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -