📄 search.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/cardshop.asp" -->
<%
if len(Request.form("cardname"))<9 then
Response.Write("您输入的卡号不正确，请返回重新输入。")
response.end()
end if
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.form("cardname") <> "") Then
Recordset1__MMColParam = Request.form("cardname")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "1"
If (Request.form("cardpass") <> "") Then
Recordset1__MMColParam2 = Request.form("cardpass")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cardshop_STRING
Recordset1.Source = "SELECT * FROM cardatabase WHERE cardname = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND cardpass = '" + Replace(Recordset1__MMColParam2, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.form("cardname") <> "") Then
Recordset2__MMColParam = Request.form("cardname")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_cardshop_STRING
Recordset2.Source = "SELECT * FROM operate WHERE cardnumber = '" + Replace(Recordset2__MMColParam, "'", "''") + "'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<html>
<head>
<title>查询系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
cardname=trim(Request.form("cardname"))
card=right(cardname , len(cardname)-3)
'''''card=left(card, len(card)-2)
pass=clng(card)\99
cardpass=trim(Request.form("cardpass"))
if cstr(pass) <> cstr(left(cardpass,len(pass))) then
Response.Write("您输入的卡号或密码不正确,或该卡号密码效验错误")
response.End()
end if
%>
<%
if recordset1.bof and recordset1.eof then
Response.Write("您输入的卡号或密码不正确,或该卡不存在")
response.End()
end if
%>
<%
if (Recordset1.Fields.Item("valid").Value)="disablecard" then
Response.Write("该卡已经在" & Recordset1.Fields.Item("operatedate").Value & "被使用过了<br>")
Response.Write("游戏名称:" & (Recordset2.Fields.Item("gamename").Value) & "<br>")
Response.Write("金额:" & (Recordset2.Fields.Item("cost").Value) & "<br>")
Response.Write("充值状态:" & (Recordset2.Fields.Item("finish").Value) & "<p>")
end if
%>
<%
aaa=left(Request.form("cardname"),3)
aaa=right(aaa,1)
select case aaa
case "a"
cost=5
case "b"
cost=10
case "c"
cost=15
case "d"
cost=20
case "e"
cost=25
case "f"
cost=30
case "g"
cost=35
case "h"
cost=40
case "i"
cost=45
case "j"
cost=50
case "k"
cost=55
case "l"
cost=60
case "m"
cost=65
case "n"
cost=70
case "o"
cost=75
case "p"
cost=80
case "q"
cost=85
case "r"
cost=90
case "s"
cost=95
case "t"
cost=100
case "u"
cost=12
case "v"
cost=14
case "w"
cost=16
case "x"
cost=18
case "y"
cost=32
case "z"
cost=48
end select
if (Recordset1.Fields.Item("valid").Value)="enablecard" then
Response.Write("该卡未被使用过<br>")
Response.Write("金额:" & cost & "元<br>")
end if
%>
<td valign="top"> <p> </p>
<p>如果提示已充值过，请到下面卡数据详细查询系统查询</p>
<form action="wind.asp" method="post" name="form1" onSubmit="MM_validateForm('cardname','','R');return document.MM_returnValue">
<p>请输入卡号：
<input name="cardnumber" type="text" id="cardnumber">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form></td></body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -