📄 snsn.asp
字号:
<td colspan="2" bgcolor="#FFFFFF"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="27%"> <input type="checkbox" name="fapiao" value="1">
是否要发票？
<input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>>
<input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>>
<input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>>
<input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>>
<input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>>
<input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>>
<input name="songhuofangshi" type="hidden" value=<%=trim(request("songhuofangshi"))%>>
<input name="zhifufangshi" type="hidden" value=<%=trim(request("zhifufangshi"))%>>
<input name="feiyong" type="hidden" value=<%=feiyong%>>
<input name="zongji" type="hidden" value=<%=zongji%>>
<input name=shopid2 type=hidden value="<%=request("shopid")%>" >
</td>
<td width="42%">您对此订单的特殊说明(30字内)
<br> <input type="text" name="liuyan" size="30" maxlength="30" class="wenbenkuang">
</td>
<td width="31%" align="center" height="60">
<input type="button" name="Submit222" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)">
<input type="submit" name="Submit422" class="go-wenbenkuang" value="完成">
</td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
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
if session("xiadan")<>minute(now) then
'再判断库存
'未写
set rs=server.CreateObject("adodb.recordset")
rs.open "select sum(shopcount) as Sum_jianshu,sum(zonger) as Sum_zonger from shop_action where username='"&session("tmp_usersessionid")&"' and zhuangtai=7",conn,1,1
if (rs("Sum_jianshu")>cint(pifa_s)) or (rs("Sum_zonger")>cint(pifa_e)) then
tmpPIFA=1
else
tmpPIFA=0
end if
rs.close
dim shijian,dingdan
shijian=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action where username='"&session("tmp_usersessionid")&"' and zhuangtai=7",conn,1,3
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs.eof
'得到价格，减库存
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_snsn where shopid="&rs("shopid"),conn,1,3
if tmpPIFA=1 then
danjia=rs2("vipjia")
else
danjia=rs2("shichangjia")
end if
'danjia=rs2("shichangjia")
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("shopcount")
rs2("kucun")=rs2("kucun")-rs("shopcount")
rs2.update
rs2.close
set rs2=nothing
rs("actiondate")=shijian
if request("zhifufangshi")=17 then '送货上门或预存款支付，直接改为订单完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("userzhenshiname"))
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")=request("zongji")
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request("userid")
'新增
if request("fapiao")<>1 then
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=request("feiyong")
rs("danjia")=danjia
rs("zonger")=danjia*rs("shopcount")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'添加到＿FHY表
conn.execute "insert into shop_action_fhy (username,actiondate,shopid,shopcount,dingdan,zhuangtai,shouhuoname,shouhuodizhi,youbian,liuyan,zhifufangshi,songhuofangshi,shousex,zonger,userzhenshiname,useremail,usertel,userid,danjia,feiyong,fapiao,fhsj) select username,actiondate,shopid,shopcount,dingdan,zhuangtai,shouhuoname,shouhuodizhi,youbian,liuyan,zhifufangshi,songhuofangshi,shousex,zonger,userzhenshiname,useremail,usertel,userid,danjia,feiyong,fapiao,fhsj FROM shop_action where username='"&session("tmp_usersessionid")&"'"
'删除原表
conn.execute "delete from shop_action where username='"&session("tmp_usersessionid")&"'"
session("xiadan")=minute(now)
end if
'/////////////HTML
'发送邮件
set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing
on error resume next
'发送注册邮件
topic="您在" & webname & "的订单信息"
mailbody="<html>"
mailbody=mailbody & "<title>订单信息</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & request.cookies("snsn")("username")&"("&trim(request("userzhenshiname"))&")"&"，您好：<br><br>"
mailbody=mailbody & "感谢您在本购物中心，我们将提供给您最好的服务！<br>"
mailbody=mailbody & "下面是您在" & webname & "的订单信息：<br><br>"
mailbody=mailbody & "订单号："& dingdan &"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "<center><font color=red>再次感谢您使用本系统！</font>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient trim(request("useremail"))
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
if SendMail="OK" then
sendmsg="<li>您的订单信息已经发往您的邮箱，请注意查收。</li>"
else
sendmsg="<li>由于系统错误，给您发送的订单信息未成功。</li>"
end if
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr class="a1">
<td height="23" bgcolor="#FFFFFF" > <div align="center"><b>您的订单已经成功提交，我们会在第一时间进行处理，请记清您的订单号以备查询。</b></div></td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >订单号：<%=dingdan%></td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >订单查询：由于您不是本站会员，可能无法查到订单状态。</td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >购物积分：
由于您不是本站会员没有积分待遇。</td>
</tr>
<%if request("zhifufangshi")=17 then %>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >您是通过预存款支付的，我们会尽快地给你发货的！</td>
<script language=javascript>alert('您是通过预存款支付的，我们会尽快地给你发货的！');</script>
</tr>
<%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="货到付款" then
rs.close
set rs=nothing
%>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px'>您是选择的“货到付款”，我们会尽快给您送货的！</td>
<script language=javascript>alert('您是选择的“货到付款”，请确认您的订单，我们会尽快给您送货的！');</script>
</tr>
<%else
rs.close
set rs=nothing%>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！</td>
<script language=javascript>alert('请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！');</script>
</tr>
<%end if%>
<%end if%>
<tr>
<td height="22" bgcolor="#FFFFFF" style='PADDING-LEFT: 100px' >
<div align="right"><a href="#" onClick=javascript:window.close()>
关闭窗口</a> 订单完成
创建时间：<%=shijian%> </div></td>
</tr>
</table>
<br>
<%end select%>
</td>
</tr>
</table></td>
<td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</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 + -