📄 confirmed.asp
字号:
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")
usersql="select * from tbaccount where cardnum='" + cardnum + "'"
'Response.Write usersql
rs.Open usersql,connbj,1,3
if rs.RecordCount <> 1 then
'Response.Write rs.RecordCount
'Response.End
errorList="您所输入的账号不存在，请您查实后再输！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
Response.End
else
'Response.Write checkstr
'Response.Write "<br>"
'Response.Write rs("checkstr")
'Response.End
if rs("checkstr")<>checkstr then
errorList="您所输入的账号有误，请您查实后再输！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
Response.End
else
'检验口令
if password<>rs("password") then
errorList="您所输入的密码有误，请您查实后再输！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
Response.End
else
'检验死户
if rs("state")<>0 then
errorList= "您的账户先被冻结，请您与邮储部门联系！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
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
errorList="您的账户有问题，请您去邮储部门查实！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
Response.End
else
'检验余额是否足够
remains=remains-clng(tradesum)
if remains<0 then
errorList="您的余额不足！"
set check=nothing
rs.Close
set rs=nothing
connbj.Close
set connbj=nothing
%><!--#INCLUDE FILE="include/error1.asp" --><%
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
end if
%>
</td>
</tr>
<tr>
<td width="720">
<table width="600" align="center">
<tr>
<td bgColor=<%=tdcolor4%> height="28" width="100"><font color="#0000FF">付款方式：</font></td>
<td bgColor=<%=tdcolor4%> colspan=4 height="28" ><font color="#000000" ><%=bill_to_method%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人姓名：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_name%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人姓名：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_name%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人位置：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_state%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人位置：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_state%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人城市：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_city%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人城市：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_city%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人地址：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_street%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人地址：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_street%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人电话：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_phone%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人电话：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_phone%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人邮政编码：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_zip%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人邮政编码：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_zip%></font></td>
</tr>
<tr>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">收件人Email：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=ship_to_email%></font></td>
<td bgColor=<%=tdleft4%> height="28" width="100"><font color="#0000FF">付款人Email：</font></td>
<td bgColor=<%=tdleft4%> height="28" width="200"><font color="#000000" ><%=bill_to_email%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table cellpadding=0 cellspacing=0 border=0 width="600" align="center">
<tr>
<td align="center">
<form action="xt_order_add.asp">
<input type="hidden" name="ship_to_name" value="<%=ship_to_name%>">
<input type="hidden" name="ship_to_street" value="<%=ship_to_street%>">
<input type="hidden" name="ship_to_state" value="<%=ship_to_state%>">
<input type="hidden" name="ship_to_city" value="<%=ship_to_city%>">
<input type="hidden" name="ship_to_zip" value="<%=ship_to_zip%>">
<input type="hidden" name="ship_to_phone" value="<%=ship_to_phone%>">
<input type="hidden" name="ship_to_email" value="<%=ship_to_email%>">
<input type="hidden" name="bill_to_name" value="<%=bill_to_name%>">
<input type="hidden" name="bill_to_street" value="<%=bill_to_street%>">
<input type="hidden" name="bill_to_state" value="<%=bill_to_state%>">
<input type="hidden" name="bill_to_method" value="<%=bill_to_method%>">
<input type="hidden" name="bill_to_city" value="<%=bill_to_city%>">
<input type="hidden" name="bill_to_zip" value="<%=bill_to_zip%>">
<input type="hidden" name="bill_to_phone" value="<%=bill_to_phone%>">
<input type="hidden" name="bill_to_email" value="<%=bill_to_email%>">
<input type="hidden" name="note" value="<%=description%>">
<input name="cardnum" maxlength="18" type="hidden" value="<%=cardnum%>">
<input name="password" maxlength="6" type="hidden" value="<%=request("password")%>">
<INPUT TYPE="submit" value="确定" id=submit1 name=submit1>
<input type="button" value="返回" onclick="javascript:history.back(-1);" id=button1 name=button1>
</FORM>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#INCLUDE FILE = "include/footer.asp" -->
</body>
</html>
<%else%>
<!--#INCLUDE FILE="include/error.asp" -->
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -