?? payment.asp
字號:
<tr>
<td align=right><a href="help.asp?action=expense" target=_blank>查看送貨費用說明</a></td>
</tr>
</table>
</td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=ok">
<tr bgcolor="#FFF9E6" 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">
是否要發票？
<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">
</td>
<td width="31%" align="center" height="60">
<input type="button" name="Submit22" value="上一步" onClick="javascript:history.go(-1)">
<input type="submit" name="Submit42" 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 [sh_user] where username='"&request.cookies("shopzhiwang")("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
'再判斷庫存
'未寫
dim shijian,dingdan
shijian=now()
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write bookid
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_action where username='"&request.cookies("shopzhiwang")("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 sh_chanpin where bookid="&rs("bookid"),conn,1,3
if request.Cookies("shopzhiwang")("reglx")=2 then
danjia=rs2("vipjia")
else
danjia=rs2("huiyuanjia")
end if
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("bookcount")
rs2("kucun")=rs2("kucun")-rs("bookcount")
rs2.update
rs2.close
set rs2=nothing
'rs.addnew
'rs("username")=trim(request.cookies("bookshop")("username"))
'rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
'rs("bookcount")=CInt(Request("shopzhiwang"&rs2("bookid")))
if request("zhifufangshi")=7 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.update
'rs.close
'set rs=nothing
'conn.execute "delete from sh_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
rs.movenext
loop
rs.close
set rs=nothing
'再改獎品
z_point=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_action_jp where username='"&request.cookies("shopzhiwang")("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_point=z_point+rs("point")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'減去積分
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [sh_user] where username='"&request.cookies("shopzhiwang")("username")&"'",conn,1,3
rs("point")=rs("point")-z_point
'如果是在線支付，要扣預存款
if request("zhifufangshi")=7 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
%>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr>
<td height="23" bgcolor="FFF9E6">
<div align="center"><font color="#FF6600"><b>您的訂單已經成功提交，我們會在第一時間進行處理，請記清您的訂單號以備查詢。</b></font></div>
</td>
</tr>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>訂單號：<font color=red><%=dingdan%></font></td>
</tr>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>訂單查詢：您可通過“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=myinfo','','')">用戶中心</a>”>>“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=myorder','','')">我的訂單</a>”查詢您的訂單處理情況。</td>
</tr>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>關于積分：請收到商品后通過“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=myinfo','','')">用戶中心</a>”>>“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=myorder','','')">我的訂單</a>”及時更改您的訂單狀態為“完成”，因為每筆訂單的積分只有在訂單完成后才能累計到您的購物積分中。
</td>
</tr>
<%if request("zhifufangshi")=7 then %>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>您是通過預存款支付的，我們會盡快地給你發貨的！</td>
<script language=javascript>alert('您是通過預存款支付的，我們會盡快地給你發貨的！');</script>
</tr>
<%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="貨到付款" then
rs.close
set rs=nothing
%>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>您是選擇的“貨到付款”，我們會盡快給您送貨的！</td>
<script language=javascript>alert('您是選擇的“貨到付款”，請確認您的訂單，我們會盡快給您送貨的！');</script>
</tr>
<%else
rs.close
set rs=nothing%>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>請您在一周內依照您選擇的支付方式進行匯款，匯款時請注明您的<font color="#FF0000">訂單號</font>或通過我們公布的聯系方式通知我們您的<font color="#FF0000">訂單號</font>！</td>
<script language=javascript>alert('請您在一周內依照您選擇的支付方式進行匯款，匯款時請注明您的訂單號！');</script>
</tr>
<%end if%>
<%end if%>
<tr>
<td height="22" bgcolor="FFF9E6" style='PADDING-LEFT: 100px'>
<div align="right"><a href="#" onClick=javascript:window.close()>
關閉窗口</a><font color="#999999"> 訂單完成
創建時間：<%=shijian%> </font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end select%>
</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 + -