📄 payment.asp
字号:
<!--#include file="conn.asp"-->
<%if request.cookies("cnhww")("username")="" then
response.write "<script language=javascript>alert('对不起，您还没有登陆！');history.go(-1);</script>"
response.End
end if
%>
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--生成订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%dim bookid,action,i
action=request("action")
set cnhww=server.CreateObject("adodb.recordset")
cnhww.open "select * from wq_action_jp where username='"&request.cookies("cnhww")("username")&"' and zhuangtai=7",conn,1,1
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from wq_action where username='"&request.cookies("cnhww")("username")&"' and zhuangtai=7",conn,1,1
if rs("rec_count")=0 then 'and cnhww.recordcount=0 then 启用后一句，选了奖品时可以进入结算
response.write "<script language=javascript>alert('对不起，您购物车没有商品，请在购物后，再去“结算中心”！');window.close();</script>"
response.End
end if
rs.close
set rs=nothing
select case action
'//////////////////////////////////
case ""
set rs=server.CreateObject("adodb.recordset")
rs.open "select wq_action.actionid,wq_action.bookid,wq_action.bookcount,wq_action.zonger,wq_books.bookname,wq_action.shjiaid,wq_books.shichangjia,wq_books.huiyuanjia,wq_books.vipjia from wq_books inner join wq_action on wq_books.bookid=wq_action.bookid where wq_action.username='"&request.cookies("cnhww")("username")&"' and wq_action.zhuangtai=7",conn,1,1
%>
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<form name='form1' method='post' action=payment.asp?action=txxx>
<tr bgcolor="#FFE697">
<td width=25%> <div align=center><font color="#666666">商品名称</font></div></td>
<td width=15%> <div align=center><font color="#666666">市场价</font></div></td>
<td width=15%> <div align=center><font color="#666666">单价
<%if request.cookies("cnhww")("reglx")=2 then %>
(VIP)
<%else%>
(会员)
<%end if%>
</font></div></td>
<td width=15%> <div align=center><font color="#666666">数量</font></div></td>
<td width=10% bgcolor=#FFE697> <div align=center><font color="#666666">总价</font></div></td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
<tr bgcolor="#FFF9E6">
<td style='PADDING-LEFT: 5px'> <div align=left><font color=blue><%=rs("bookname")%></font>
<input name=bookid type=hidden value="<%=rs("bookid")%>" >
<input name=actionid type=hidden value="<%=rs("actionid")%>" >
</div></td>
<td><%=rs("shichangjia")%></td>
<td> <div align=center>
<%
if request.Cookies("cnhww")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</div></td>
<td> <div align=center><font color=#dd6600> <%=rs("bookcount")%> </font></div></td>
<td bgcolor=#FFF9E6> <div align=center><font color=#FF3300><%=rs("zonger")%></font>元</div></td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor="#FFF9E6">
<td height=36 colspan=7> <div align=center>
<input type="button" name="Submit" value="修改购物车" onClick="javascript:window.open('shopcart.asp?action=show','gouwu','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');window.close()">
<input type="submit" name="Submit3" value="下一步"></div></td>
</tr>
<tr bgcolor="#FFF9E6">
<td height=36 colspan=7> <div align=center>您的购物车里有商品：<%=shuliang%>件 总数量：<%=jianshu%>件 共计：<%=zongji%>元 您有预存款：<%=request.cookies("cnhww")("yucun")%>元
<br>
</div></td>
</tr>
<%set cnhww=server.CreateObject("adodb.recordset")
cnhww.open "select * from wq_action_jp where username='"&request.cookies("cnhww")("username")&"' and zhuangtai=7",conn,1,1
if cnhww.recordcount>0 then%>
<tr bgcolor="#FFF9E6">
<td colspan=6> <table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFCC00" align="center">
<tr bgcolor="#FFF0C4">
<td colspan="2"><b>您已选择的奖品清单</b></td>
</tr>
<tr bgcolor="#FFE697" align="center">
<td><font color="#666666">奖品名称</font></td>
<td><font color="#666666">使用积分</font></td>
</tr>
<%
while not cnhww.eof%>
<tr bgcolor="#FFF9E6">
<td align="center">
<%
set cnhww1=server.CreateObject("adodb.recordset")
cnhww1.open "select * from wq_award where bookid="&cnhww("bookid"),conn,1,1
if cnhww1.recordcount=1 then
response.write "<font color=blue>"&cnhww1("bookname")&"</font>"
end if
cnhww1.close
set cnhww1=nothing%>
</td>
<td align="center"><%=cnhww("point")%></td>
</tr>
<%
cnhww.movenext
wend%>
</table></td>
</tr>
<%end if
cnhww.close
set cnhww=nothing%>
</form>
</table>
<%
'/////////////////////////////////////////
case "txxx"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [wq_user] where username='"&request.cookies("cnhww")("username")&"'",conn,1,1
userid=rs("userid")
%>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">请正确填写以下收货信息</font></b></td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=txxx2" onsubmit="ssxx">
<tr bgcolor="#FFF9E6">
<td width="199" style='PADDING-LEFT: 20px'><b>收货人姓名：</b></td>
<td width="771" height="28" style='PADDING-LEFT: 20px'>
<input name=userid type=hidden value="<%=userid%>" >
<b>
<input name="userzhenshiname" type="text" id="userzhenshiname" size="12" value=<%=trim(rs("userzhenshiname"))%>>
性 别：
<select name="shousex" id="shousex">
<option value=1 <%if rs("sex")="1" then%>selected<%end if%>>男</option>
<option value=2 <%if rs("sex")="0" then%>selected<%end if%>>女</option>
<option value=0 <%if rs("sex")="2" then%>selected<%end if%>>保密</option>
</select>
</b></td>
</tr>
<tr bgcolor="#FFF9E6">
<td style='PADDING-LEFT: 20px' width="199"><b>详细地址：</b></td>
<td height="28" style='PADDING-LEFT: 20px' width="771">
<b>
<input name="shouhuodizhi" type="text" id="shouhuodizhi" size="40" value=<%=trim(rs("shouhuodizhi"))%>>
</b></td>
</tr>
<tr bgcolor="#FFF9E6">
<td style='PADDING-LEFT: 20px' width="199"><b>邮编：</b></td>
<td height="28" style='PADDING-LEFT: 20px' width="771">
<b>
<input name="youbian" type="text" id="youbian" size="10" value="<%=rs("youbian")%>" ONKEYPRESS="event.returnValue=IsDigit();">
<font color="#CC3333"> （我们将按邮政编码划分送货区域，请您正确填写！）</font></b></td>
</tr>
<tr bgcolor="#FFF9E6">
<td style='PADDING-LEFT: 20px' width="199"><b>电话：</b></td>
<td height="28" style='PADDING-LEFT: 20px' width="771">
<b>
<input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>>
</b></td>
</tr>
<tr bgcolor="#FFF9E6">
<td style='PADDING-LEFT: 20px' width="199"><b>电子邮件：</b></td>
<td height="28" style='PADDING-LEFT: 20px' width="771">
<b>
<input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>>
</b></td>
</tr>
<b><%=trim(request("useremail"))%> </b>
<tr bgcolor="#FFF9E6">
<td height="32" colspan="2" align=center>
<input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
<input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function ssxx()
{
if(checkspace(document.shouhuoxx.userzhenshiname.value)) {
document.shouhuoxx.userzhenshiname.focus();
alert("对不起，请填写收货人姓名！");
return false;
}
if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
document.shouhuoxx.shouhuodizhi.focus();
alert("对不起，请填写收货人详细收货地址！");
return false;
}
if(checkspace(document.shouhuoxx.youbian.value)) {
document.shouhuoxx.youbian.focus();
alert("对不起，请填写邮编！");
return false;
}
if(document.shouhuoxx.youbian.value.length!=6) {
document.shouhuoxx.youbian.focus();
alert("对不起，请正确填写邮编！");
return false;
}
if(checkspace(document.shouhuoxx.usertel.value)) {
document.shouhuoxx.usertel.focus();
alert("对不起，请留下您的电话！");
return false;
}
if(document.shouhuoxx.useremail.value.length!=0)
{
if (document.shouhuoxx.useremail.value.charAt(0)=="." ||
document.shouhuoxx.useremail.value.charAt(0)=="@"||
document.shouhuoxx.useremail.value.indexOf('@', 0) == -1 ||
document.shouhuoxx.useremail.value.indexOf('.', 0) == -1 ||
document.shouhuoxx.useremail.value.lastIndexOf("@")==document.shouhuoxx.useremail.value.length-1 ||
document.shouhuoxx.useremail.value.lastIndexOf(".")==document.shouhuoxx.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.shouhuoxx.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.shouhuoxx.useremail.focus();
return false;
}
}
//-->
</script>
<%
'/////////////////////////////////////////
case "txxx2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [wq_user] where username='"&request.cookies("cnhww")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
document.shouhuoxx.songhuofangshi.focus();
alert("对不起，请选择送货方式！");
return false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -