update.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 143 行

ASP
143 行
字号 
<%@ 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("oldpassword")
newpassword=request("newpassword")

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;"


'Response.Write cardnum

'检验用户
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()"">返回</a>"

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

Response.End 
else

'检验口令
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")))
'Response.Write check.eprorecremains(rs("cardnum"),rs("remains"))
'Response.End 
total=clng(rs("recoup"))+remains
if (clng(rs("recoup"))<0) or (remain<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

newpassword=cstr(check.epropassword(cardnum,newpassword))
if newpassword="-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

sql="update tbaccount set password='" + newpassword + "' where cardnum='" + cardnum + "'"
connbj.Execute sql

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 "您已经成功的修改了密码！<br>"
Response.Write "<a href=""input.asp"">返回</a>"

%>

</BODY>
</HTML>

update.asp - 源码说明

本页面展示了「用ASP写的电子购物系统」中的 update.asp 源码文件，采用 ASP 编程语言编写，共 143 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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