📄 shopping.asp
字号:
rs2.movenext
loop
rs2.close
set rs2=nothing
session("xiadan")=minute(now)
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="98%" 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="#000000">
<tr>
<td height="23" bgcolor="#EFefef">
<div align="center"><font color="#FF6600">恭喜，您已成功的提交了此订单！详细信息如下：</font></div>
</td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>订单号：<font color=#FF6600><%=rs("dingdan")%></font></td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>商品列表：</td>
</tr>
<tr>
<td height="91" bgcolor="#EFefef" >
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EFefef" height="22">
<div align="center">商品名称</div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center">市场价</div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center">会员价</div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center">数量</div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center">小计</div>
</td>
</tr>
<%dim iiii '计算总额
do while not rs.eof
iiii=rs("huiyuanjia")*rs("bookcount")+iiii%>
<tr>
<td bgcolor="#EFefef" height="22">
<%response.Write "<a href=book.asp?id="&rs("bookid")&" target=_blank>"&rs("bookname")&"</a>"%>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center"><%=formatnumber(rs("shichangjia"),2)&"元"%></div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center"><%=formatnumber(rs("huiyuanjia"),2)&"元"%></div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center"><%=rs("bookcount")%></div>
</td>
<td bgcolor="#EFefef" height="22">
<div align="center"><%=formatnumber(rs("huiyuanjia")*rs("bookcount"),2)&"元"%> </div>
</td>
</tr>
<%rs.movenext
loop
rs.movefirst
%>
<tr>
<td colspan="5" bgcolor="#EFefef" height="22">
<div align="right">
<%response.write "<font color=#FF6600>您选择的送货方式是："
'///判断送货方式读取加收金额
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from shop_songhuo where songid="&int(rs("songhuofangshi")),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
response.write " +"&formatnumber(0,2)&"元 共计："
response.write formatnumber(iiii,2)&"元"
else
response.Write trim(rs3("subject"))
response.write " +"&formatnumber(rs3("jsmoney"),2)&"元 共计："
response.write formatnumber(iiii+rs3("jsmoney"),2)&"元"
end if
rs3.close
set rs3=nothing%>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>订货人姓名：<font color=#FF6600><%=trim(rs("userzhenshiname"))%></font></td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" 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="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>收货详细地址：<font color=#FF6600><%=trim(request("shouhuodizhi"))%></font></td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" 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="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>送货方式：<font color=#FF6600>
<%'///送货方式
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from shop_songhuo where songid="&request("songhuofangshi"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs3=nothing
%>
</font> 支付方式：<font color=#FF6600>
<%'///支付方式
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from shop_songhuo where songid="&request("zhifufangshi"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs=nothing%>
</font></td>
</tr>
<%if trim(request("liuyan"))<>"" then%>
<tr>
<td height="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>您的留言：<%=trim(request("liuyan"))%></td>
</tr>
<%end if%>
<tr>
<td height="22" bgcolor="#EFefef" style='PADDING-LEFT: 100px'>请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！</td>
</tr>
<tr>
<td height="22" bgcolor="#EFefef" 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="22" bgcolor="#efefef" style='PADDING-LEFT: 100px'>
<div align="right"><a href="#" onClick=javascript:window.close()>
关闭窗口</a><font color="#999999"> 订单完成
创建时间：<%=shijian%> </font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</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);
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -