?? jszx.asp
字號:
<%
snsn.movenext
wend%>
</table>
<%end if
snsn.close
set snsn=nothing%><br>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="594" align="center" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
<tr align="center" bgcolor="#C0E9F5" class="a1">
<td height="23" colspan="2" ><b>您的訂單信息</b></td>
</tr><tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >姓名<br> </td>
<td width="84%" > <%=checkFFSQLStr(trim(request("userzhenshiname")))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >郵編<br> </td>
<td width="84%" > <%=trim(request("youbian"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >地址<br> </td>
<td width="84%" > <%=checkFFSQLStr(trim(request("shouhuodizhi")))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >電話<br> </td>
<td width="84%" > <%=checkFFSQLStr(trim(request("usertel")))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >郵箱 </td>
<td width="84%" > <%=trim(request("useremail"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >送貨 </td>
<td width="84%" > <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_sys where songid="&nosql(request("songhuofangshi")),conn,1,1
response.write rs("fsh")
rs.close
set rs=nothing%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="center" bgcolor="#FFFFFF" >支付</td>
<td width="84%" > <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&nosql(request("zhifufangshi")),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%></td>
</tr>
</table></td>
<td width="356" align="center" valign="top">
<table width="98%" border="0" align="right" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
<tr align="center" >
<td height="23" colspan="2" align="center" bgcolor="#C0E9F5" class="a1"><b>送貨費計算</b></td>
</tr>
<%
'計算費用
'先取出參數
set rsfy=server.CreateObject("adodb.recordset")
rsfy.open "select * from shop_sys where songid="&nosql(cint(request("songhuofangshi")))&"",conn,1,1
if zongji>=rsfy("je") then
jijia=rsfy("fy")-rsfy("mje")
else
jijia=rsfy("fy")
end if
rsfy.close
'算商品基價+浮動價=費用
feiyong=jijia+fudongjia
if request("zhifufangshi")=1 then
'得到預存款
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select yucun from [shop_user] where username='"&nosql(session("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
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 name="fapiao" type="checkbox" id="fapiao" value="1">
要求發票<font color="#FF3300"> </font>
<input name="shopname" type="hidden" value=<%=nosql(shopname)%>>
<input name="userzhenshiname" type="hidden" value=<%=nosql(trim(request("userzhenshiname")))%>>
<input name="shousex" type="hidden" value=<%=nosql(trim(request("shousex")))%>>
<input name="useremail" type="hidden" value=<%=nosql(trim(request("useremail")))%>>
<input name="shouhuodizhi" type="hidden" value=<%=nosql(trim(request("shouhuodizhi")))%>>
<input name="youbian" type="hidden" value=<%=nosql(trim(request("youbian")))%>>
<input name="usertel" type="hidden" value=<%=nosql(trim(request("usertel")))%>>
<input name="songhuofangshi" type="hidden" value=<%=nosql(trim(request("songhuofangshi")))%>>
<input name="zhifufangshi" type="hidden" value=<%=nosql(trim(request("zhifufangshi")))%>>
<input name="feiyong" type="hidden" value=<%=nosql(feiyong)%>>
<input name="zongji" type="hidden" value=<%=nosql(zongji)%>>
<input name=userid type=hidden value="<%=nosql(request("userid"))%>" >
</td>
<td width="42%">您對此訂單的特殊說明(30字內) <br>
<input name="liuyan" type="text" class="wenbenkuang" id="liuyan" size="30" maxlength="30">
</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"
'修改用戶的送貨信息
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,3
rs("userzhenshiname")=nosql(trim(request("userzhenshiname")))
rs("sex")=nosql(trim(request("shousex")))
rs("useremail")=nosql(trim(request("useremail")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("youbian")=nosql(trim(request("youbian")))
rs("usertel")=nosql(trim(request("usertel")))
rs("songhuofangshi")=nosql(trim(request("songhuofangshi")))
rs("zhifufangshi")=nosql(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='"&nosql(session("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='"&nosql(session("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 (session("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")=now()
rs("zhuangtai")=1
rs("dingdan")=dingdan
rs("youbian")=nosql(int(request("youbian")))
rs("shouhuoname")=nosql(trim(request("userzhenshiname")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("zhifufangshi")=nosql(int(request("zhifufangshi")))
rs("songhuofangshi")=nosql(int(request("songhuofangshi")))
rs("shousex")=nosql(int(request("shousex")))
rs("liuyan")=HTMLEncode2(checkFFSQLStr(trim(request("liuyan"))))
rs("userzhenshiname")=nosql(trim(request("userzhenshiname")))
rs("useremail")=nosql(trim(request("useremail")))
rs("usertel")=nosql(trim(request("usertel")))
rs("userid")=nosql(request("userid"))
'新增
if request("fapiao")<>1 then
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=nosql(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='"&nosql(session("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='"&nosql(session("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 & "的訂單信息"
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 & session("username")&"("&trim(request("userzhenshiname"))&")"&"，您好：<br><br>"
mailbody=mailbody & "下面是您在" & webname & "的訂單信息：<br><br>"
mailbody=mailbody & "訂單號："& dingdan &"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody&""&webname&" ◎ 客戶服務中心<br>"
mailbody=mailbody&"================================================== <br>電話："&dianhua&"<br>"
mailbody=mailbody&"Email："&webemail&"?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -