?? snsn.asp
字號:
<td width="23%" height="23" align="center" >郵編<br> </td>
<td width="77%" height="23" > <%=trim(request("youbian"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="23" align="center" >地址<br> </td>
<td width="77%" height="23" > <%=checkFFSQLStr(trim(request("shouhuodizhi")))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="23" align="center" >電話<br> </td>
<td width="77%" height="23" > <%=checkFFSQLStr(trim(request("usertel")))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="23" align="center" >郵箱 </td>
<td width="77%" height="23" > <%=request("useremail")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="23" align="center" >送貨 </td>
<td width="77%" height="23" >
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&nosql(request("songhuofangshi")),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="23" align="center" >支付</td>
<td width="77%" height="23" >
<%
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" bgcolor="#FFFFFF">
<table width="98%" border="0" align="right" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
<tr align="center" >
<td height="22" colspan="2" 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
response.write "<script language=javascript>alert('您尚未注冊會員，無法使用預存款支付，請更換支付方式！');history.go(-1);</script>"
end if
%>
<tr>
<td height="23" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td height="23" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px' >您的送貨費用計： <%=feiyong%> 元</td>
</tr>
<tr>
<td height="23" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px' >(其中 基價：<%=jijia%>元)</td>
</tr>
<tr>
<td height="23" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px' >(浮動價：<%=fudongjia%>元)</td>
</tr>
<tr>
<td height="23" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td height="23" align=right bgcolor="#FFFFFF" style='PADDING-right: 20px' ><b><font color="#FF0000">您的訂單總金額： <%=feiyong+zongji%> 元</font></b></td>
</tr>
<tr>
<td height="23" align=right bgcolor="#FFFFFF" ><a href="help.asp?action=feiyong" target=_blank>查看送貨費用說明</a> </td>
</tr>
</table></td>
</tr>
<form name="shouhuoxx" method="post" action="snsn.asp?action=ok">
<tr align="center">
<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="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=shopid type=hidden value="<%=nosql(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"
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("tmp_usersessionid"))&"' and zhuangtai=7",conn,1,1
if (rs("Sum_jianshu")>clng(pifa_s)) or (rs("Sum_zonger")>clng(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='"&nosql(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("pifajia")
else
danjia=rs2("shichangjia")
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("actiondate")=now()
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")=nosql(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
'添加到＿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='"&nosql(session("tmp_usersessionid"))&"'"
'刪除原表
conn.execute "delete from shop_action where username='"&nosql(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 & 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 + -