📄 shopping.asp
字号:
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("songhuofangshi")=int(request("songhuofangshi"))
rs("shousex")=int(request("shousex"))
rs("liuyan")=HTMLEncode2(trim(request("liuyan")))
rs("zonger")=rs2("huiyuanjia")*CInt(Request("ckxp"&rs2("bookid")))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request.QueryString("userid")
rs.update
rs.close
set rs=nothing
conn.execute "delete from shop_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
rs2.movenext
loop
rs2.close
set rs2=nothing
session("xiadan")="fadf"
session.Timeout=1
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if
'/////////////HTML
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_action.shousex,shop_action.userzhenshiname,shop_action.shouhuoname,shop_action.dingdan,shop_action.youbian,shop_action.liuyan,shop_action.zhifufangshi,shop_action.songhuofangshi,shop_action.zonger,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 and dingdan='"&dingdan&"' ",conn,1,1
%>
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td height="18" bgcolor="#EFF5FE"><div align="center"><font color="#FF6600">恭喜，您已成功的提交了此订单！详细信息如下：</font></div></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>订单号：<font color=#FF6600><%=rs("dingdan")%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>商品列表：</td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" ><table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EFF5FE"><div align="center">商品名称</div></td>
<td bgcolor="#EFF5FE"><div align="center">市场价</div></td>
<td bgcolor="#EFF5FE"><div align="center">会员价</div></td>
<td bgcolor="#EFF5FE"><div align="center">数量</div></td>
<td bgcolor="#EFF5FE"><div align="center">小计</div></td>
</tr>
<%dim iiii '计算总额
do while not rs.eof
iiii=rs("huiyuanjia")*rs("bookcount")+iiii%>
<tr>
<td bgcolor="#EFF5FE"><%response.Write "<a href=book.asp?id="&rs("bookid")&" target=_blank>"&rs("bookname")&"</a>"%></td>
<td bgcolor="#EFF5FE"><div align="center"><%=formatnumber(rs("shichangjia"),2)&"元"%></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%=formatnumber(rs("huiyuanjia"),2)&"元"%></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%=rs("bookcount")%></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%=formatnumber(rs("huiyuanjia")*rs("bookcount"),2)&"元"%> </div></td>
</tr><%rs.movenext
loop
rs.movefirst
%>
<tr>
<td colspan="5" bgcolor="#EFF5FE"><div align="right"><%response.write "<font color=#FF6600>您选择的送货方式是："
dim qita
select case rs("songhuofangshi")
case "1"
qita=6
response.write "普通平邮"
case "2"
qita=20
response.write "特快专递（EMS）"
end select
response.write " +"&formatnumber(qita,2)&"元 共计："
response.write formatnumber(iiii+qita,2)&"元"%> </font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>订货人姓名：<font color=#FF6600><%=trim(rs("userzhenshiname"))%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>收货人姓名：<font color=#FF6600><%response.Write trim(request("shouhuoname"))
if request("shousex")=0 then
response.Write " (先生)"
else
response.Write " (女士)"
end if%>
</font></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>收货详细地址：<font color=#FF6600><%=trim(request("shouhuodizhi"))%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>邮编：<font color=#FF6600><%=trim(request("youbian"))%></font> 电话：<font color=#FF6600><%=trim(request("usertel"))%></font> 电子邮件：<font color=#FF6600><%=trim(request("useremail"))%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>送货方式：<font color=#FF6600>
<%select case request("songhuofangshi")
case "1"
response.Write "普通平邮"
case "2"
response.Write "特快专递（EMS）"
end select%>
</font> 支付方式：<font color=#FF6600>
<%select case request("zhifufangshi")
case "1"
response.Write "邮局汇款"
case "2"
response.Write "建设银行汇款"
case "3"
response.Write "交通银行汇款"
end select%>
</font></td>
</tr>
<%if trim(request("liuyan"))<>"" then%>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>您的留言：<%=trim(request("liuyan"))%></td>
</tr>
<%end if%>
<tr>
<td height="18" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'>请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！</td>
</tr>
<tr>
<td height="26" bgcolor="#EFF5FE" STYLE='PADDING-LEFT: 100px'><p><font color=#666666>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select huikuanfangshi from shop_config",conn,1,1
response.Write trim(rs("huikuanfangshi"))
rs.close
set rs=nothing%>
</font></p></td>
</tr>
<tr>
<td height="18" bgcolor="#D0E2FD" STYLE='PADDING-LEFT: 100px'><div align="right"><a href="#" onclick=javascript:window.close()>关闭窗口</a><font color="#999999"> 订单完成
创建时间：<%=shijian%> </font></div></td>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select chengjiaocount from shop_books where bookid in ("&bookid&")" ,conn,1,3
do while not rs.eof
rs("chengjiaocount")=rs("chengjiaocount")+1
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end select%>
</body>
</html>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkshouhuoxx()
{
if(checkspace(document.shouhuoxx.shouname.value)) {
document.shouhuoxx.shouname.focus();
alert("对不起，请填写收货人姓名！");
return false;
}
if(checkspace(document.shouhuoxx.shengshi.value)) {
document.shouhuoxx.shengshi.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(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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -