📄 shopping.asp
字号:
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;
}
{
document.all.item("ddd").disabled=true;
shouhuoxx.submit();
}
}
//-->
</script>
<%
case "ok"
'/////////////////////////////////////////////////
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
dim shijian,dingdan
shijian=now()
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write bookid
if int(request("songhuofangshi"))=1 then
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select bookid,bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid in ("&bookid&") order by bookid ",conn,1,1
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action",conn,1,3
rs.addnew
rs("username")=trim(request.cookies("bookshop")("username"))
rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
rs("bookcount")=CInt(Request("ckxp"&rs2("bookid")))
rs("zhuangtai")=11
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("shouhuoname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
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=7"
rs2.movenext
loop
rs2.close
set rs2=nothing
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=11 and dingdan='"&dingdan&"' ",conn,1,1
else
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select bookid,bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid in ("&bookid&") order by bookid ",conn,1,1
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action",conn,1,3
rs.addnew
rs("username")=trim(request.cookies("bookshop")("username"))
rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
rs("bookcount")=CInt(Request("ckxp"&rs2("bookid")))
rs("zhuangtai")=1
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("shouhuoname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
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=7"
rs2.movenext
loop
rs2.close
set rs2=nothing
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
end if
%>
<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=product.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>您选择的送货方式是："
'///判断送货方式读取加收金额
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%>
</font></div></td>
</tr>
</table></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>
<%'///送货方式
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="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="center">
<input style="background-color: #A5C1E0; background-repeat: repeat; background-attachment: scroll; color: #000000; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; height: 18px; line-height: normal; border: 1px solid #000000; background-position: 0% 50%" type="button" name="Submit22" value="关闭窗口" onclick=javascript:window.close()>
<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
sub sendemail()
dim sendmail
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo,objCDOMail
'收件人信息
dim grtts,mimawenti
email=trim(request("useremail")) '//收信人地址
title="您在"©right&"的订单成功递交！" '//标题
msg="<table width=80% border=0 cellspacing=1 cellpadding=1 ID=Table1 style=FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: verdana;'><tr><td>亲爱的用户"&request.Cookies("bookshop")("username")&"您好：<br> 您在"©right&"成功提交了商品订单。<br><br> <image src='http://www.suqun.cn'> 若您选择送货上门方式，则您只需等待我们的确认电话即可。<br> <image src='http://www.suqun.cn'> 若您选择邮政包裹或EMS方式，则您可以到{帐户管理}关注您的订单状态。<br><br> 欢迎您再次访问我们的网站 <a href=http://"&weburl&" target=_blank><font color=red >"©right&"</font></a><br> 若您需要咨询服务，请发邮件至<a href=mailto:"&webemail&">"&webemail&"</a>。<br> (此邮件不可以直接回复，否则我们的客户服务部收不到您的来信。)</td></tr><tr><td style='line-height:14pt'><br><div align=right>"©right&"<br>"&year(date)&"年"&month(date)&"月"&day(date)&"日</div></td></tr></table>"
'//信件内容
'发送邮件
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="sy998815@hotmail.com" '发信者的EMAIL
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.To = email '收信者的EMAIL
objCDOMail.Subject = title 'EMAIL的标题
objCDOMail.Body = msg 'EMAIL的内容
objCDOMail.Send
Set objCDOMail = Nothing
end sub
%>
</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 + -