📄 check.asp

📁 用ASP写的电子购物系统
💻 ASP
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>邮政资费支付卡</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background="images/card.jpg" bgcolor="#ffffec">
<%

cardnum=request("cardnum")
password=request("password")

'Response.Write cardnum

set check=server.CreateObject ("eprojm.epro")
password=check.epropassword (cardnum,password)
checkstr=check.eprocmp(cardnum)

set connbj=server.CreateObject ("adodb.connection")
connbj.Open "DSN=Web ORA;UID=zj;PWD=zj;"

'检验用户
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from tbaccount where cardnum='"  + cardnum + "'",connbj,1,3

if rs.RecordCount <>1 then 
Response.Write "您所输入的账号不存在，请您查实后再交易！<br>"
Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

set check=nothing
rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing

Response.End 
else
'Response.Write checkstr
'Response.Write "<br>"
'Response.Write rs("checkstr")
'Response.End
if rs("checkstr")<>checkstr then 
 Response.Write "您所输入的账号有误，请您查实后再交易！<br>"
 Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

 set check=nothing
 rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing

Response.End 
else

'检验口令
'Response.Write password&" "&rs("password")
if password<>rs("password") then
Response.Write "您所输入的密码有误，请您查实后再交易！<br>"
Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

set check=nothing
rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing

Response.End 
else


'检验死户
if rs("state")<>0 then
Response.Write "您的账户已被冻结，请您与邮储部门联系！<br>"
Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

set check=nothing
rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing

Response.End 
else

'检验待扣额
'Response.Write check.eprorecremains(rs("cardnum"),rs("remains"))
'Response.End 
remains=clng(check.eprorecremains(rs("cardnum"),rs("remains")))

if remains = 0 then
  Response.Write "您的账户上余额为零！<br>"
  Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

 set check=nothing
 rs.Close 
 set rs=nothing
 connbj.Close
 set connbj=nothing
 Response.End 
else
'remains=clng(rs("remains"))
'Response.Write check.eprorecremains(rs("cardnum"),rs("remains"))
'Response.End 
total=clng(rs("recoup"))+remains

'Response.Write "a"&rs("recoup")&" "&remains&" "&total
if (clng(rs("recoup"))<0) or (remains<0) or (total<>20000) then
  Response.Write "您的账户有问题，请您去邮储部门查实！<br>"
  Response.Write "<a href=""#"" onClick=""history.back(-1)"">返回</a>"

 set check=nothing
 rs.Close 
 set rs=nothing
 connbj.Close
 set connbj=nothing
 Response.End 
else

end if
end if
end if
end if
end if
end if

set check=nothing
rs.Close 
set rs=nothing
connbj.Close
set connbj=nothing
Response.Write "可以交易！"
'Response.Write cardnum

session("atm_cardnum")=cardnum
session("atm_password")=request("password")

%>
<br>
<a href="" language=javascript onclick="return end()">已通过身份验证，可以进行交易！</a>
</BODY>
</HTML>

<script language=javascript>
function end() {
         //alert(cardnum);
         //window.opener.orderdata.cardnum.value=cardnum;
         //window.opener.orderdata.password.value=password;
         window.close();
}
</script>
⌨️ 快捷键说明

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