?? search.asp
字號(hào):
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>郵政資費(fèi)支付卡</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<script Language=JavaScript>
function Update(){
var newpwd=document.update.newpassword.value;
var oldpwd=document.update.conpassword.value;
if (newpwd!=oldpwd) {
alert('請(qǐng)您再次確認(rèn)新密碼！');
return false;
}
else
//alert(newpwd.length);
//alert(oldpwd);
if (newpwd.length!=6) {
alert('請(qǐng)您的新密碼不足六位！');
return false;
}
else return true;
}
</script>
<BODY background="images/card.jpg" bgcolor="#ffffec">
<%
cardnum=request("cardnum")
password=request("password")
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;"
'檢驗(yàn)用戶
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from tbaccount where cardnum='" + cardnum + "'",connbj,1,3
if rs.RecordCount <>1 then
Response.Write "您所輸入的賬號(hào)不存在，請(qǐng)您查實(shí)后再交易！<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 "您所輸入的賬號(hào)有誤，請(qǐng)您查實(shí)后再交易！<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
'檢驗(yàn)口令
if password<>rs("password") then
Response.Write "您所輸入的密碼有誤，請(qǐng)您查實(shí)后再交易！<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
'檢驗(yàn)死戶
if rs("state")<>0 then
Response.Write "您的賬戶先被凍結(jié)，請(qǐng)您與郵儲(chǔ)部門聯(lián)系！"
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
'檢驗(yàn)待扣額
'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 "您的賬戶有問(wèn)題，請(qǐng)您去郵儲(chǔ)部門查實(shí)！<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_r=right(remains,2)
remains_l=cstr(clng(clng(clng(remains)-clng(remains_r))/100))
remains=remains_l+"."+remains_r+"元"
%>
<form name="update" action="update.asp">
<center>
<table border="0">
<tr>
<td align="center">賬 號(hào)：</td>
<td align="right"><%=cardnum%></td><input type="hidden" name="cardnum" value="<%=cardnum%>">
</tr>
<tr>
<td align="center">余 額：</td>
<td align="right"><%=remains%></td>
</tr>
<tr>
<td align="center">原 密 碼：</td>
<td align="center"><input name="oldpassword" maxlength="6" size="6" type="password"></td>
</tr>
<tr>
<td align="center">新 密 碼：</td>
<td align="center"><input name="newpassword" maxlength="6" size="6" type="password"></td>
</tr>
<tr>
<td align="center">確認(rèn)密碼：</td>
<td align="center"><input name="conpassword" maxlength="6" size="6" type="password"></td>
</tr>
<tr align="center">
<td align="center"><a href="#" onclick="history.back(-1)">返回</a></td>
<td>
<input type="submit"value="修改" language=javascript onclick="return Update()" id=submit1 name=submit1>
<input type="reset" id=reset1 name=reset1>
</td>
</tr>
</table>
</center>
</form>
<%
end if
end if
end if
end if
end if
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%>
</BODY>
</HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -