📄 jszx.asp
字号:
if cint(request("songhuofangshi"))=3 then '先看是不是送货
'rs.close
if request.cookies("snsn")("reglx")=2 then
if zongji>=t_sm3 then
jijia=0
else
jijia=t_sm1
end if
else
if zongji>=t_sm2 then
jijia=0
else
jijia=t_sm1
end if
end if
feiyong=jijia+fudongjia
else
'不是送货上门的还要看是什么方式送货
if cint(request("songhuofangshi"))=1 then '看是不是"普通平邮"
'rs.close
if request.cookies("snsn")("reglx")=2 then
if zongji>=t_py2 then
jijia=t_py1-t_py3
else
jijia=t_py1
end if
else
jijia=t_py1
end if
else
rs.close
if request.cookies("snsn")("reglx")=2 then
if zongji>=t_ems2 then
jijia=t_ems1-t_ems3
else
jijia=t_ems1
end if
else
jijia=t_ems1
end if
end if
'算商品基价+浮动价=费用
feiyong=jijia+fudongjia
if request("zhifufangshi")=17 then
'得到预存款
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select yucun from [shop_user] where username='"&request.cookies("snsn")("username")&"'",conn,1,1
yucunkuan=rs2("yucun")
rs2.close
set rs2=nothing
if yucunkuan<feiyong+zongji then
response.write "<script language=javascript>alert('您的预存款不足，请更换支付方式！');history.go(-1);</script>"
end if
end if
end if
zj=feiyong+zongji
%>
<tr>
<td height="22" align="right" bgcolor="#FFFFFF" style='PADDING-right: 20px'>你的总价为：
<%=formatnumber(zj,2)%></td>
</tr>
<tr>
<td height="22" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px'>您的送货费用计： <%=feiyong%>
元</td>
</tr>
<tr>
<td height="22" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px'>(其中 基价：<%=jijia%>元)</td>
</tr>
<tr>
<td height="22" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px'>(浮动价：<%=fudongjia%>元)</td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td height="22" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px'><b><font color="#FF0000">订单总金额
： <%=formatnumber(zj,2)%>元</font></b></td>
</tr>
<tr>
<td height="22" align=right bgcolor="#FFFFFF" ><a href="help.asp?action=feiyong" target=_blank>查看送货费用说明</a></td>
</tr>
</table></td>
</tr>
<form name="shouhuoxx" method="post" action="jszx.asp?action=ok">
<tr bgcolor="#FFFFFF" align="center">
<td colspan="2"> <table width="98%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="27%"> <input type="checkbox" name="fapiao" value="1">
要求发票<font color="#FF3300"> </font>
<input name="shopname" type="hidden" value=<%=shopname%>>
<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=userid type=hidden value="<%=request("userid")%>" >
</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
'修改用户的送货信息
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&request.cookies("snsn")("username")&"'",conn,1,3
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("sex")=trim(request("shousex"))
rs("useremail")=trim(request("useremail"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs.update
rs.close
set rs=nothing
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='"&request.cookies("snsn")("username")&"' and zhuangtai=7",conn,1,1
rs.close
dim shijian,dingdan
shijian=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action where username='"&request.cookies("snsn")("username")&"' 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 (request.Cookies("snsn")("reglx")=2) then
danjia=rs2("vipjia")
else
danjia=rs2("huiyuanjia")
end if
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("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
'再改奖品
z_jifen=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action_jp where username='"&request.cookies("snsn")("username")&"' and zhuangtai=7",conn,1,3
do while not rs.eof
rs("actiondate")=shijian
rs("zhuangtai")=5
rs("dingdan")=dingdan
rs("userid")=request("userid")
z_jifen=z_jifen+rs("jifen")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'减去积分
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&request.cookies("snsn")("username")&"'",conn,1,3
rs("jifen")=rs("jifen")-z_jifen
'如果是在线支付，要扣预存款
if request("zhifufangshi")=17 then
rs("yucun")=rs("yucun")-request("feiyong")-request("zongji")
end if
rs.update
rs.close
set rs=nothing
session("xiadan")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
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
'发送注册邮件
topic="您在" & webname & "的订单信息"
set rs=server.CreateObject("adodb.recordset")
rs.open "select sum(shopcount) as Sum_jianshu,sum(zonger) as Sum_zonger from shop_action where username='"&request.cookies("snsn")("username")&"' and dingdan='"&dingdan&"'",conn,1,1
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.shopid,shop_action.shopcount,shop_action.zonger,shop_snsn.shopname,shop_snsn.anclassid,shop_snsn.banci,shop_snsn.shichangjia,shop_snsn.huiyuanjia,shop_snsn.vipjia from shop_snsn inner join shop_action on shop_snsn.shopid=shop_action.shopid where shop_action.username='"&request.cookies("snsn")("username")&"' and dingdan='"&dingdan&"'",conn,1,1
mailbody="<html>"
mailbody=mailbody & "<title>订单信息</title>"
mailbody=mailbody & "<style type=text/css>"
mailbody=mailbody & ".table-you { border-right-width: 1px; border-right-style: dotted; border-right-color: #cccccc;}"
mailbody=mailbody & ".table-zuo { border-left-width: 1px; border-left-style: dotted; border-left-color: #CCCCCC;}"
mailbody=mailbody & ".table-shang { border-top-width: 1px; border-top-style: dotted; border-top-color: #CCCCCC;}"
mailbody=mailbody & ".table-xia { border-bottom-width: 1px; border-bottom-style: dotted; border-bottom-color: #CCCCCC;}"
mailbody=mailbody & ".table-xiayou {border-bottom-width: 1px;border-bottom-style: solid;border-bottom-color: #cccccc;border-right-width: 1px;border-right-style: solid;border-right-color: #cccccc;}"
mailbody=mailbody & ".table-zuoshang {border-left-width: 1px;border-left-style: solid;border-left-color: #cccccc;border-top-width: 1px;order-top-style: solid;border-top-color: #cccccc;border-top-style: solid;}"
mailbody=mailbody & "</style>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & "<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class='table-zuoshang'>"
mailbody=mailbody & "<tr class=a1>"
mailbody=mailbody & "<td width=21% height=22 > "
mailbody=mailbody & "<div align=center> 商品名称</font></div></td>"
mailbody=mailbody & "<td width=21% height=22 > "
mailbody=mailbody & "<div align=center> 市场价</font></div></td>"
mailbody=mailbody & "<td width=14% height=22 >"
mailbody=mailbody & "<div align=center> 单价 "
if request.cookies("snsn")("reglx")=2 then
mailbody=mailbody & "(VIP)"
else
if tmpPIFA=1 then
mailbody=mailbody & "(批发)"
else
mailbody=mailbody & "(会员)"
end if
end if
mailbody=mailbody & "</font></div></td>"
mailbody=mailbody & "<td width=14% height=22 >"
mailbody=mailbody & "<div align=center> 数量</font></div></td>"
mailbody=mailbody & "<td width=14% height=22 > "
mailbody=mailbody & "<div align=center> 邮寄浮动<br>"
mailbody=mailbody & "(单价)</font></div></td>"
mailbody=mailbody & "<td width=14% height=22 >"
mailbody=mailbody & "<div align=center> 总价</font></div></td>"
mailbody=mailbody & "</tr>"
shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof
mailbody=mailbody & "<tr bgcolor=#FFFFFF> "
mailbody=mailbody & "<td style='PADDING-LEFT: 5px' > "
mailbody=mailbody & "<div align=left><font color=blue>"&rs("shopname")&"</font> "
mailbody=mailbody & "<input name=shopid2 type=hidden value="&rs("shopid")&">"
mailbody=mailbody & "<input name=actionid2 type=hidden value="&rs("actionid")&">"
mailbody=mailbody & "</div></td>"
mailbody=mailbody & "<td align=center ><s>"&rs("shichangjia")&"</s>元</td>"
mailbody=mailbody & "<td > <div align=center>"
if (request.Cookies("snsn")("reglx")=2) or (tmpPIFA=1) then
mailbody=mailbody & rs("vipjia")
else
mailbody=mailbody & rs("huiyuanjia")
end if
mailbody=mailbody & "元</div></td>"
mailbody=mailbody & "<td > <div align=center><font color=#dd6600> "
mailbody=mailbody & rs("shopcount")&"</font></div></td>"
mailbody=mailbody & "<td > <div align=center><font color=#dd6600> "
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then '看是不是“送货上门”
if request.Cookies("snsn")("reglx")=2 then
fudongjia_dj=rs_s("smvip")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -