📄 shopping.asp
字号:
'///判断送货方式读取加收金额
dim gongji,gongjijiner,fujiafei '共计金额
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)&"元 共计："
gongji=formatnumber(iiii+rs3("jsmoney"),2)&"元"
response.Write gongji
gongjijiner=round(ccur(iiii+rs3("jsmoney")),2) '//总金额
fujiafei=ccur(rs3("jsmoney")) '//加收金额
end if
rs3.close
set rs3=nothing
else '超过100元，不记邮费
gongji=iiii
response.write "<font color=#ff6600>购书总金额超过100元不记邮费，</font>"
response.write "共计："&formatnumber(iiii,2)&"元"
end if
%>
</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<%dim usernames '用户真实姓名，用于发邮件使用
if request.Cookies("bookshop")("grtt")=1 then
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select companyname from [shop_users] where username='"&request.Cookies("bookshop")("username")&"' ",conn,1,1
usernames=trim(rs3("companyname"))
rs3.close
set rs3=nothing
else
usernames=trim(rs("userzhenshiname"))
end if%>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'><%
if request.cookies("bookshop")("grtt")=1 then
response.write "订货公司："
else
response.write "订货人姓名："
end if%> <font color=#FF6600><%=usernames%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>收货人姓名：<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="#FDE6A4" STYLE='PADDING-LEFT: 20px'>所在省/市：<%=trim(request("shengshi"))%></td>
</tr>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>收货详细地址：<font color=#FF6600><%=trim(request("shouhuodizhi"))%> </font></td>
</tr>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>地址类型：<font color=#FF6600><%=request("dizhileixing")%></font></td>
</tr>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>邮编：<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="#FDE6A4" STYLE='PADDING-LEFT: 20px'>配送方式：<font color=#FF6600>
<%'///送货方式
dim shfs
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
shfs=trim(rs3("subject"))
response.Write shfs
end if
rs3.close
set rs3=nothing
%>
</font> 支付方式：<font color=#FF6600>
<%'///支付方式
dim zffs
if int(request("zhifufangshi"))=9999 then
response.write "使用预付款"
else
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
zffs=trim(rs3("subject"))
response.Write zffs
end if
rs3.close
set rs=nothing
end if%>
</font></td>
</tr>
<%if trim(request("liuyan"))<>"" then%>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>配送说明：
<%if int(request("fangshi"))=0 then
response.write "需电话确认，配送时间："&trim(request("time1"))
else
response.write "无需电话确认,直接配送,配送日期范围："&trim(request("date2"))&"<br>配送时间："&trim(request("time2"))
end if%></td>
</tr>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>您的留言：<%=trim(request("liuyan"))%></td>
</tr>
<%end if%>
<tr>
<td height="18" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'><%
'//判断预付款是否完全可以承受购物总金额
dim chenggong,chenggongs '//预付款是否成功
if int(request("zhifufangshi"))=9999 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select yufukuan from [shop_users] where username='"&request.cookies("bookshop")("username")&"' ",conn,1,3
yufukuan=ccur(rs("yufukuan"))
response.write "<font color=#FF0000>成交前您共有预付款："&yufukuan&"元人民币</font><br>"
if yufukuan < gongjijiner then
chenggong="no"
chenggongs="<font color=#FF0000>您的预付款金额还未能够完全支付此订单，您需要补交"&gongjijiner-yufukuan&"元人民币<br><br>我们的发货标准是：您的预付款为正数或为0时。<br><br>当您将金额补齐和在订单管理栏目中检查订单无误后，请及时修改订单状态。</font>"
response.write chenggongs
else
chenggong="yes"
chenggongs="<font color=#FF0000>您已通过您的预付款进行了在线支付，请到本站订单管理栏目中进行订单查看，当您检查无误后请手动修改订单状态。</font>"
response.write chenggongs
end if
dim shengyufu '//所剩预付款
shengyufu=yufukuan-gongjijiner
response.write "<br><font color=#FF0000>您还剩预付款："&yufukuan&"-"&gongjijiner&"="&shengyufu&"元人民币</font>"
rs("yufukuan")=shengyufu
rs.update
rs.close
set rs=nothing
else
%>
请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！<br> <font color="#FF0000">当您汇款完毕后，请到订单管理栏目修改您的订单状态。</font>
<%end if%></td>
</tr>
<!--#include file="char.asp"-->
<tr>
<td height="26" bgcolor="#FDE6A4" STYLE='PADDING-LEFT: 20px'>
<%if int(request("zhifufangshi"))=9999 then
response.write ""
else
response.write "<p><font color=#ff6600>本店付款方式：</font><font color=#666666><br>"
dim huikuanfangshi '汇款方式
set rs=server.CreateObject("adodb.recordset")
rs.open "select huikuanfangshi from shop_config",conn,1,1
huikuanfangshi=ubbcode(trim(rs("huikuanfangshi")))
response.Write huikuanfangshi
rs.close
set rs=nothing
end if%>
</font></p></td>
</tr>
<tr>
<td height="18" bgcolor="#FF8E19" STYLE='PADDING-LEFT: 20px'><div align="right"><a href="#" onclick=javascript:window.close()>关闭窗口</a><font color="#999999"> <font color="#333333">订单完成
创建时间：<%=now%></font> </font></div></td>
</tr>
</table>
<%call sendemail()%>
<%sub sendemail()
if sendmail>0 then
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select jmailuser,jmailmail,jmailsmtp,jmailpassword from shop_config",conn,1,1
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'发送邮件参数设置
smtpserver = trim(rs1("jmailsmtp")) '//邮件服务器
smtpuser = trim(rs1("jmailuser")) '//用户名
smtpemail = trim(rs1("jmailmail")) '//邮件地址
smtppwd = trim(rs1("jmailpassword")) '//密码
rs1.close
set rs1=nothing
email=trim(request("useremail")) '//收信人地址
title="您在"&webname&"下的订单" '//标题
if int(request("zhifufangshi"))=9999 then
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")&"（"&usernames&"）您好：<br> 您在《"&webname&"》成功提交了图书订单：<br> 订单号：<font color=red>"&dingdanhao&"</font> 总金额：<font color=red>"&gongji&"人民币</font><br> 您选择的支付方式：<font color=red>使用预付款</font> 配送方式：<font color=red>"&shfs&"</font><br></td></tr><tr><td bgcolor=#F7F7F7 style='padding-left:30px'><br><font color=#FF0000 >成交前您共有预付款："&yufukuan&"元人民币，成交后你还剩预付款："&shengyufu&"元人民币。</font><br><br>"&chenggongs&"<br><br></td></tr><tr><td align=right>"&webname&"<br>"&year(date)&"年"&month(date)&"月"&day(date)&"日</td></tr></table>"
else
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")&"（"&usernames&"）您好：<br> 您在《"&webname&"》成功提交了图书订单：<br> 订单号：<font color=red>"&dingdanhao&"</font> 总金额：<font color=red>"&gongji&"人民币</font><br> 您选择的支付方式：<font color=red>"&zffs&"</font> 配送方式：<font color=red>"&shfs&"</font><br> 请您在一周内按您选择的支付方式进行付款，汇款时请注明您的<FONT color=#ff0000>订单号</FONT>，付款方式如下：</font><br></td></tr><tr><td bgcolor=#F7F7F7><br>"&huikuanfangshi&"<br></td></tr><tr><td><font color=red > 汇款完毕后，请您登陆我们的网站("&weburl&")选择订单管理功能及时更改订单状态，以便我们尽快的给您发货。</font></td></tr><tr><td align=right>"&webname&"<br>"&year(date)&"年"&month(date)&"月"&day(date)&"日</td></tr></table>" '//信件内容
end if
'发送邮件
select case sendmail
case 1
Set jmail= server.CreateObject ("jmail.message")
JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
jmail.Silent = true
jmail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
jMail.ContentType = "text/html"
jmail.From = smtpemail '//这里是发信人地址
jmail.FromName = webname '//发信人姓名
jmail.Subject = title '//标题
jmail.AddRecipient email '//地址
jmail.Body = msg '//内容
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if err then
'SendMail= err.description
sendmailZ="由于系统出错邮件未发出。<br>"
err.clear
else
SendMailZ="一封订单信已发入您的邮箱，请注意查收。<br>"
end if
jmail.Close
set jmail = nothing
'Response.Write SendMailZ
case 2
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.bodyFormat=0 '/支持html
objCDO.mailFormat=0 '/支持html
objCDO.To = email
objCDO.From = smtpemail & "("& webname &")"
'objCDO.bcc = "janedoe@aol.com" ’Blind cc 抄送
objCDO.Subject = title
objCDO.Body = msg
objCDO.Importance = 2 'High importance!
'objCDO.AttachFile("\\server\jane\resume.doc","Resume.doc") //附件
objCDO.Send 'Send off the email!
'Cleanup
Set objCDO = Nothing
end select
end if
end sub
set rs=server.CreateObject("adodb.recordset")
rs.open "select chengjiaocount,yuexiaoshou from shop_books where bookid in ("&bookid&")" ,conn,1,3
do while not rs.eof
rs("chengjiaocount")=int(rs("chengjiaocount"))+1
rs("yuexiaoshou")=int(rs("yuexiaoshou"))+1
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end select
conn.close
set conn=nothing%>
</body>
</html>
<%sub onlinezhifu()
response.write "<table align=center><FORM METHOD=POST ACTION='http://pay.7721.net/pay.php?' target=_blank><tr><td>"
response.write "<INPUT TYPE=hidden name=payid value=134>"
response.write "<INPUT TYPE=hidden name=spname value="&dingdanhao&" >"
response.write "<INPUT TYPE=hidden name=jiage value="&gongjijiner&" >"
response.write "<INPUT TYPE=hidden name=sbdaima value="&usernames&">"
response.write "<INPUT TYPE=submit value=点这里进入在线支付！>"
response.write "</td></tr></FORM> </table>"
end sub%>
<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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -