pay1.asp
来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 446 行
ASP
446 行
<%@ Language=VBScript %>
<%
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
res.source="select number from tempgwc where s_id='"&Session.SessionID&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic
if res.recordcount<1 then
%>
<font style="font-size: 9pt">对不起，您还没有挑选要购买的书！</font>
<%
Res.Close ()
con.Close ()
Response.End
end if
Res.Close ()
if Session("log_name")="" then
Session("after_log_to")="../payment/pay1.asp"
Response.Redirect ("../userlog/login.htm")
else
Session("after_log_to")=""
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function form_onsubmit(theForm) {
if (theForm.name.value == "")
{
alert("请输入 \"收货人姓名\" .");
theForm.name.focus();
return (false);
}
if (theForm.name.value.length > 50)
{
alert("Please enter at most 50 characters in the \"name\" field.");
theForm.name.focus();
return (false);
}
if (theForm.comaddr.value == "")
{
alert("请输入 \"收货人通信地址\" .");
theForm.comaddr.focus();
return (false);
}
if (theForm.comaddr.value.length > 100)
{
alert("Please enter at most 100 characters in the \"comaddr\" field.");
theForm.comaddr.focus();
return (false);
}
if (theForm.zipcode.value == "")
{
alert("请输入 \"收货人邮编\" .");
theForm.zipcode.focus();
return (false);
}
if (theForm.zipcode.value.length < 6)
{
alert("\"邮政编码\" 输入错误.");
theForm.zipcode.focus();
return (false);
}
if (theForm.zipcode.value.length > 6)
{
alert("\"邮政编码\" 输入错误.");
theForm.zipcode.focus();
return (false);
}
var checkOK = "0123456789";
var checkStr = theForm.zipcode.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("\"邮政编码\" 输入错误.");
theForm.zipcode.focus();
return (false);
}
if (theForm.tel.value == "")
{
alert("请输入 \"收货人联系电话\".");
theForm.tel.focus();
return (false);
}
var checkOK = "0123456789()-";
var checkStr = theForm.tel.value;
var allValid = true;
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
}
if (!allValid)
{
alert("请重输 \"收货人联系电话\".");
theForm.tel.focus();
return (false);
}
if (theForm.e_mail.value == "")
{
alert("请输入 \"e_mail\" .");
theForm.e_mail.focus();
return (false);
}
if (theForm.e_mail.value.length > 50)
{
alert("Please enter at most 50 characters in the \"e_mail\" field.");
theForm.e_mail.focus();
return (false);
}
if (theForm.othercom.value.length > 100)
{
alert("Please enter at most 100 characters in the \"othercom\" field.");
theForm.othercom.focus();
return (false);
}
return (true);
}
//-->
</SCRIPT>
</head>
<body text=Blue style="font-size: 9pt">
<%
log_name=Session("log_name")
res.source="select name,e_mail,comaddr,zipcode,detaddr,othercom,tel from User_login where log_name='"&log_name&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic
name=""
comaddr=""
zipcode=""
tel=""
e_mail=""
detaddr=""
othercom=""
if res.recordcount<1 then
Response.Write "没有查找到您的个人信息！"
else
name=Res("name").value
comaddr=Res("comaddr").value
zipcode=Res("zipcode").value
tel=Res("tel").value
e_mail=Res("e_mail").value
detaddr=Res("detaddr").value
othercom=Res("othercom").value
end if
Res.close
con.Close
%>
<div align="center">
<center>
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#FF00FF">
<p align="center"><b><font color="#0000A0">请输入收货人信息</font></b></td>
</tr>
</table>
</center>
</div>
<form method="POST" action="pay4.asp" enctype="GB2312" name="form" LANGUAGE=javascript onsubmit="return form_onsubmit(this)">
<table border="0" width="100%" style="font-size: 9pt" align=center>
<tr>
<td width="16%" align=right><font color="#FF0000">*</font>姓名</td>
<td width="13%" align=right>
<p align="left"><input type="text" name="name" style="font-size: 9pt" value="<%=name%>" size="11"></p>
</td>
<td width="5%">
<p align="right"><font color="#FF0000">*</font>邮编</td>
<td width="10%"><input type="text" name="zipcode" style="font-size: 9pt" value="<%=zipcode%>" maxlength=6 size="7"></td>
<td width="10%">
<p align="right"><font color="#FF0000">*</font>联系电话</td>
<td width="22%"><input type="text" name="tel" style="font-size: 9pt" value="<%=tel%>"></td>
<td width="7%">
<p align="right"><font color="#FF0000">*</font>E-mail</td>
<td width="18%"><input type="text" name="e_mail" style="font-size: 9pt" value="<%=e_mail%>"></td>
</tr>
<tr>
<td width="16%" align=right><font color="#FF0000">*</font>通信地址</td>
<td width="88%" align=right colspan="7">
<p align="left"><input type="text" name="comaddr" style="font-size: 9pt" value="<%=comaddr%>" size=65></td>
</tr>
<tr>
<td width="13%" align=right>详细地址</td>
<td width="89%" align=right colspan="7">
<p align="left"><input type="text" name="detaddr" style="font-size: 9pt" value="<%=detaddr%>" size=65></p>
</td>
</tr>
<tr>
<td width="13%" align=right>
<p align="right">其他联系方式</p>
</td>
<td width="89%" align=right colspan="7">
<p align="left"><textarea rows=4 name="othercom" style="font-size: 9pt" cols=63><%=othercom%></textarea></p>
</td>
</tr>
</table>
<p>
<div align="center">
<center>
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#FF00FF">
<p align="center"><b><font color="#0000A0">请选择送货方式</font></b></td>
</tr>
</table>
</center>
</div>
<table border="0" width="100%" style="font-size: 9pt" height="323">
<tr bgcolor="PapayaWhip">
<td width="100%" colspan="2" height="21">
<input type="radio" value="送货上门"
name="R1">
送货上门: 四环以内 亚运村 中关村 上地 望京小区</td>
</tr>
<tr>
<td width="100%" colspan="2" height="26">对北京四环以内地区及亚运村、中关村、上地、望京等地区一次性购买超过100元产品的用户，
款到后2-10日内为您<font color="#FF0000">免费</font>送货上门。小于或等于100元的加收<font
color="#FF0000">4.80元</font>送书费。</td>
</tr>
<tr>
<td width="50%" height="25">请选定您方便的收货时间：
<input type="text"
name="send_time" size="20">
</td>
<td width="50%" height="25">留言：
<input type="text" name="leave_word" size="32">
</td>
</tr>
<tr>
<td width="100%" bgcolor="PapayaWhip" colspan="2" height="21">
<input type="radio"
name="R1" value="大陆平邮" checked>
大陆平邮：</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">一次性购书500元(含)以下，邮寄费为<font color="#FF0000">书籍定价的15%</font>；</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">一次性购书500元以上、1000元(含)以下，邮寄费为<font color="#FF0000">书籍定价的10%</font>；</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">一次性购书1000元以上，<font color="#FF0000">免收邮寄费</font>。</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">填完订单并确认发送后，请尽快到就近的银行或邮局办理付款手续，以便款到后我们为您及时发货。</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">海外递送： 付款金额=书款+发送费+手续费 (手续费：所有海外客户，每笔订单均收取手续费<font
color="#FF0000">$5.00</font>，折合人民币<font color="#FF0000">44元</font>)</td>
</tr>
<tr>
<td width="100%" colspan="2" height="14">海外客户享有与大陆客户同等价格，所有书款不另加价。</td>
</tr>
<tr bgcolor="#CCCC00">
<td width="100%" colspan="2" height="14">港澳台地区</td>
</tr>
<tr>
<td width="100%" bgcolor="PapayaWhip" colspan="2" height="21">
<input type="radio"
name="R1" value="港澳台地区平邮">
A：平邮 发送费为总书款的<font
color="#FF0000">50%</font></td>
</tr>
<tr>
<td width="100%" bgcolor="PapayaWhip" colspan="2" height="21">
<input type="radio"
name="R1" value="港澳台地区空运">
B：空运，发送费为总书款的<font
color="#FF0000">150%</font></td>
</tr>
<tr bgcolor="#CCCC00">
<td width="100%" colspan="2" height="14">其他国家或地区</td>
</tr>
<tr>
<td width="100%" bgcolor="PapayaWhip" colspan="2" height="21">
<input type="radio"
name="R1" value="其他国家或地区平邮">
A：平邮 发送费为总书款<font
color="#FF0000">100%</font></td>
</tr>
<tr>
<td width="100%" bgcolor="PapayaWhip" colspan="2" height="21">
<input type="radio"
name="R1" value="其他国家或地区空运">
B：空运，发送费为总书款<font
color="#FF0000">300%</font></td>
</tr>
</table>
<div align="center"><center><p></center></div>
<div align="center">
<center>
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#FF00FF">
<p align="center"><b><font color="#0000A0">请选择付款方式</font></b></td>
</tr>
</table>
</center>
</div>
请选择付款方式（除另有说明外，以下方式全国通用）
<table border="0" width="100%" style="font-size: 9pt">
<tr bgcolor="PapayaWhip">
<td width="100%">
<input type="radio" value="货到付款" name="pay_method">
货到付款</td>
</tr>
<tr>
<td width="100%">目前只开通北京市四环以内 亚运村 中关村 上地
望京小区 </td>
</tr>
<tr>
<td width="100%">对北京四环以内地区及亚运村、中关村、上地、望京等地区一次性购买超过100元商品的用户，我们将在2-10工作日内为您<font color="#ff0000">免费</font>送货上门并且同时收取货款。
小于或等于100元的加收<font color="#ff0000">4.80元</font>送书费。</td>
</tr>
<tr bgcolor="PapayaWhip">
<td width="100%">
<input type="radio" name="pay_method" value="银行汇款、银行转帐">
银行汇款、银行转帐</td>
</tr>
<tr>
<td width="100%">国内单位请通过银行转帐，请电汇到以下帐户：<br>
户 名：<font color="#FF0000">北京新华通力图书信息技术有限公司</font><br>
开户银行：<font color="#FF0000">北京工商行南礼士路分理处</font><br>
帐 号：<font color="#FF0000">６６６５３-２２</font></td>
</tr>
<tr bgcolor="PapayaWhip">
<td width="100%">
<input type="radio" name="pay_method" value="邮局汇款" checked>
邮局汇款</td>
</tr>
<tr>
<td width="100%">国内用户可以通过邮局汇款，请汇到：<br>
<font color="#FF0000">北京市北礼士路１３５号北京新华通力图书信息技术有限公司</font> 邮编：<font color="#FF0000">１０００３７</font><br>
</td>
</tr>
<tr>
<td width="100%"><font color="#ff0000">（为使您尽快收到所购买的书，我们特别提醒您：请务必在汇款单中注明您的订单号！）</font></td>
</tr>
<tr></tr>
<tr>
<td width="100%">网上直接划付，我们已开通了以下银行的网上支付：</td>
</tr>
<tr bgcolor="PapayaWhip">
<td width="100%">
<input type="radio" name="pay_method" value="招商银行一网通">
招商银行一网通（北京24小时内完成结算）（也可直接选招行一网通）</td>
</tr>
<tr>
<td width="100%" height="25"></td>
</tr>
</table>
<div align="center"><center><p>
<input type="submit" value="下一步" name="B1">
<input type="reset" value="重填" name="B2">
</p>
</center></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?