📄 mycart.asp
字号:
<td align="center"><br> <input class="go-wenbenkuang" type="button" name="Submit222" value="上一步" onClick="javascript:history.go(-1)">
<input class="go-wenbenkuang" type="submit" name="Submit42" value="完 成"></td>
</tr>
</table>
<br></td>
</tr>
</form>
</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 [user] where username='"&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()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from orders where username='"&username&"' and zhuangtai=7",conn,1,3
if request.cookies("Cnhww")("username")<>"" then
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if
do while not rs.eof
'得到价格，减库存
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from products where bookid="&rs("bookid"),conn,1,3
if request.cookies("Cnhww")("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("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.update
rs.movenext
loop
rs.close
set rs=nothing
z_jifen=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ordersaward where username='"&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 [user] where username='"&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
%>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td background="images/body/pdbg01.gif" height=28>
<a href=index.asp><%=webname%></a> >>定单提交成功</td>
</tr>
</table>
<br> <br> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#F1F1F1">
<tr bgcolor="#ffffff">
<td height="30" colspan="2" align="center" bgColor="#F1F1F1"><strong>恭喜订单提交成功！我们会在第一时间进行处理，请记下您的订单号以备查询。</strong></td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单号：<font color=red><%=dingdan%></font></td>
</tr>
<%if request.cookies("Cnhww")("username")<>"" then%>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单查询：您可通过“<a href="javascript:;" onClick="javascript:window.open('user.asp','','')"><font color="ff0000">我的账户</font></a>”>>“<a href="javascript:;" onClick="javascript:window.open('user.asp?action=dindan','','')"><font color="ff0000">我的订单</font></a>”查询您的订单状态。</td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">购物积分：请在收货后通过“<a href="javascript:;" onClick="javascript:window.open('user.asp','','')"><font color="ff0000">我的账户</font></a>”>>“<a href="javascript:;" onClick="javascript:window.open('user.asp?action=dindan','','')"><font color="ff0000">我的订单</font></a>”及时更改您的订单状态为“完成”，因为每笔订单的积分只有在订单完成后才能累计到您的购物积分中。
</td>
</tr>
<%else%>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">订单查询：您不是我们的会员，所以您不能查询您的订单状态。</td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">购物积分：因为您不是我们的会员，所以您不能获得积分奖励。
</td>
</tr>
<%
end if
if request("zhifufangshi")=17 then %>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是通过预存款支付的，我们会尽快地给你发货的！</td>
<script language=javascript>alert('您是通过预存款支付的，我们会尽快地给你发货的！');</script>
</tr>
<%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from deliver where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="货到付款" then
rs.close
set rs=nothing
%>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是选择的“货到付款”，我们会尽快给您送货的！</td>
<script language=javascript>alert('您是选择的“货到付款”，请确认您的订单，我们会尽快给您送货的！');</script>
</tr>
<%else
rs.close
set rs=nothing%>
<tr>
<td height="30" colspan="2" bgcolor="ffffff" style="PADDING-LEFT: 30px">请您及时依照您选择的支付方式进行汇款，一周以内没有汇款此订单自动作废，汇款时请注明您的<font color="#FF0000">订单号</font>！</td>
</tr>
<%end if%>
<%end if%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from deliver where songid="&request("zhifufangshi"),conn,1,1
if rs.eof and rs.bof then
'response.write "方式已经被删除"
else
'response.write rs("subject")
dim payway
end if
rs.close
set rs=nothing
%>
<tr>
<td height="30" colspan="2" bgcolor="#FFFFFF" STYLE='PADDING-LEFT: 20px'>
<div align="center" class="style1"><a href="pay/check.asp" target="_blank" class="style3">
<%
exec="select * from webinfo"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
checkid=rs("paytype")
if checkid="3" then
elseif checkid="1" then
%>
<img src="images/zhifu_wangyin.gif" width="237" height="81" border="0">
<% elseif checkid="4" then %>
<img src="images/zhifu_99bill.gif" width="237" height="81" border="0">
<% elseif checkid="6" then %>
<img src="images/zhifu_y.gif" width="237" height="81" border="0">
<% elseif checkid="5" then %>
<img src="images/zhifu_nps.gif" width="237" height="81" border="0">
<%else%>
<img src="images/zhifu_westpay.gif" width="237" height="81" border="0">
<%end if %>
</a>
<% if alipaytype="0" then %>
<%
Dim body,out_trade_no,price,subject,sDate,show_url
Dim myAlipayObj,ResponseTxt
'****************以下为产品相关信息
'生成日期字符串，如果您的网站没有自动生成订单编号，可以考虑用这个日期字符串做订单编号（订单编号不允许重复）
sDate = Now()'生成订单编号，建议使用您网站自己系统的订单编号，否则可用日期时间的方式生成唯一订单编号
sDate = Year(sDate) & Right(("00" & Month(sDate)),2) & Right(("00" & Day(sDate)),2) & Right(("00" & Hour(sDate)),2) & Right(("00" & Minute(sDate)),2) & Right(("00" & Second(sDate)),2)
body = "http://"&weburl '商品描述
out_trade_no = sDate '商户网站订单
price = session("payall") '商品价格
subject = "订单号"&session("dingdan") '商品名称
show_url = weburl '商品展示网址
'********************
'创建一个myAlipay实例,并初始化myAlipay_Initialize()
Set myAlipayObj = New myAlipay
myAlipayObj.myAlipay_Initialize()
'普通Payto
ResponseTxt1 = myAlipayObj.generateURLForSW(body,s_logistics_fee,s_logistics_payment,s_logistics_type,s_logistics_fee_1,s_logistics_fee_2,s_logistics_payment_1,s_logistics_payment_2,s_logistics_type_1,s_logistics_type_2,s_notify_url,out_trade_no,price,s_return_url,s_myAlipayEmail,subject,partner,key,show_url,input_charset)
Response.Write "<a href='" & ResponseTxt1 & "' target='_blank'><img src=images/zhifu_zhfb.gif border=0></a>"
%>
<script language="javascript">
function doClipBoard()
{
var textValue = document.getElementsByName("myTxt")[0].value;
window.clipboardData.setData("text", textValue);
}
</script>
<%else
end if
%>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td width="60%" height="30" align="right" bgcolor="ffffff" ><img src="images/mingle/index.gif" width="17" height="20"><a href="index.asp">返回首页
</a><img src="images/mingle/close.gif" width="26" height="20"><a href="#" onClick=javascript:window.close()>关闭窗口</a><font color="#999999"> </font>
</td>
<td width="36%" align="right" bgcolor="ffffff" ><font color="#999999"> 订单提交时间：<%=shijian%></font></td>
<td width="4%" align="center" bgcolor="ffffff" > </td>
</tr>
</table>
<%
response.cookies("Cnhww")("dingdanusername")=""
end select%></TD>
</TR>
</TBODY>
</TABLE></td>
<td width="68" valign="top"style="BORDER-left:#FF67A0 1px solid;"> </td>
</tr>
</table>
<!--#include file="include/foot.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 + -