📄 shop_pay.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!-- #include file="inc/conn.asp" -->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/func.asp"-->
<!-- #include file="inc_shop/config_shop.asp" -->
<!-- #include file="inc_shop/jk_pagecute.asp" -->
<%
dim shop_session
shop_session=trim(request.cookies(web_cookies)("shop"))
if len(shop_session)<1 then
response.redirect "shop.asp"
response.end
end if
dim pid,num,sum,sdim,snum,tid,tnum,tprice,tprices '--JK
dim strChannel,sqlChannel,rsChannel,ChannelUrl,ChannelName
dim strFileName,MaxPerPage,totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime,founderr, errmsg
dim PageTitle,strPath,strPageTitle
dim SkinID,ClassID,AnnounceCount
dim UserGuestName,UserType,UserSex,UserEmail,UserHomepage,UserOicq,UserIcq,UserMsn
dim WriteName,WriteType,WriteSex,WriteEmail,WriteOicq,WriteIcq,WriteMsn,WriteHomepage
dim WriteFace,WriteImages,WriteTitle,WriteContent,SaveEdit,SaveEditId
dim GuestType,LoginName,AdminReplyContent
dim SubmitType,GuestPath,TitleName,keyword
SkinID=0
strPath= " 您现在的位置： <a href='" & SiteUrl & "'>" & SiteName & "</a>"
strPageTitle= SiteTitle
BeginTime=Timer
ClassID=0
pagetitle=pagetitle & "收 银 台"
%>
<html>
<head>
<title><%=strPageTitle & " >> " & PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="top.asp"-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
<tr>
<td width="180" align="left" valign="top" class="tdbg_leftall">
<TABLE cellSpacing=0 cellPadding=0 width="180" border="0">
<TR>
<td class="title_left2"></td>
</TR>
</table>
<%
call shop_sort()
call shop_left()
%>
</td>
<td width="5" align="left" valign="top"> </td>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height=10></td>
</tr>
</table>
<%
select case action
case "step_2"
call pay_2()
case "step_3"
call pay_3()
case else
call pay_1()
end select
%>
</td>
</tr>
</table>
<% call Bottom() %>
<% call PopAnnouceWindow(400,300) %>
</body>
</html>
<%
call CloseConn()
sub pay_3()
dim nname,address,code,phone,email,payment,remark,isuser,oid,ordernum
nname=code_form(request.form("nname"))
address=code_form(request.form("address"))
code=code_form(request.form("code"))
phone=code_form(request.form("phone"))
email=code_form(request.form("email"))
payment=code_form(request.form("payment"))
remark=code_form(request.form("remark"))
isuser=1
if login_mode="" then
isuser=0:login_username=""
end if
sql="insert into orders(isuser,username,nname,address,code,phone,email,payment,remark,tim,types) " & _
"values("&isuser&",'"&login_username&"','"&nname&"','"&address&"','"&code&"','"&phone&"','"&email&"','"&payment&"','"&remark&"','"&now_time&"',0)"
conn.execute(sql)
sql="select top 1 id from orders where types=0 order by id desc"
set rs=conn.execute(sql)
oid=rs(0)
rs.close
ordernum=rand_num(10-1-len(oid))&"0"&oid
conn.execute("update orders set ordernum='"&ordernum&"' where id="&oid)
sum=0
sdim=split(shop_session,"#")
snum=ubound(sdim)
for i=0 to snum
tid=left(sdim(i),instr(sdim(i),",")-1)
tnum=right(sdim(i),len(sdim(i))-instr(sdim(i),","))
sql="select serial,name,price_1,price_2 from product where hidden and id="&tid
set rs=conn.execute(sql)
if not(rs.eof and rs.bof) then
if login_mode="" then
tprice=rs("price_1")
else
tprice=rs("price_2")
end if
tprices=tprice*tnum
sum=sum+tprices
sql="insert into oorders(oid,pid,serial,name,price,num) values("&oid&","&tid&",'"&rs("serial")&"','"&rs("name")&"',"&tprice&","&tnum&")"
conn.execute(sql)
conn.execute("update product set buy_counter=buy_counter+1 where id="&tid)
end if
rs.close:set rs=nothing
next
erase sdim
response.cookies(web_cookies)("shop")=""
if request.cookies(web_cookies)("iscookies")="yes" then
response.cookies(web_cookies).expires=date+365
end if
response.write table1
%>
<tr class=title><td colspan=2 height=25 align=center class=end><b>购物结算 （第三步）订购成功！请牢记您的订单号</b></td></tr>
<tr<%response.write table3%>><td align=center height=100>订单已经成功递交！订单号为：<font size=5 class=red><b><%response.write ordernum%></b></font></td></tr>
<tr<%response.write table3%>><td align=center height=50>收到您的货款后，我们将按您的订单发货。请牢记您的订单号(<font class=red><%response.write ordernum%></font>)，以便查询！</td></tr>
<tr class=title><td align=center height=30><input type=button value='继续购物' onClick="window.location='shop.asp';"></td></tr>
</table>
<%
end sub
sub pay_2()
response.write table1
%>
<tr <%=table3%> align=center><td class=red height=30 colspan=6>以下是您所选购的物品清单</td></tr>
<tr height=22 class=title align=center>
<td width='23%' class=end><b>产品编号</td>
<td width='39%' class=end><b>产品名称</td>
<td width='13%' class=end><b>产品单价</td>
<td width='12%' class=end><b>产品数量</td>
<td width='13%' class=end><b>产品总价</td>
</tr>
<%
sum=0
sdim=split(shop_session,"#")
snum=ubound(sdim)
for i=0 to snum
tid=left(sdim(i),instr(sdim(i),",")-1)
tnum=right(sdim(i),len(sdim(i))-instr(sdim(i),","))
sql="select serial,name,price_1,price_2 from product where hidden and id="&tid
set rs=conn.execute(sql)
if not(rs.eof and rs.bof) then
if login_mode="" then
tprice=rs("price_1")
else
tprice=rs("price_2")
end if
tprices=tprice*tnum
sum=sum+tprices
%>
<tr align=center<%response.write table3%>>
<td><%response.write rs("serial")%></td>
<td><%response.write rs("name")%></td>
<td><%response.write tprice&pu%></td>
<td><%response.write tnum%></td>
<td><%response.write tprices&pu%></td>
</tr>
<%
end if
rs.close:set rs=nothing
next
erase sdim
%>
<tr<%response.write table4%>><td align=right colspan=6 height=25 class=red>总价格: <%response.write sum&pu%> </td></tr>
</table>
<br>
<% response.write table1 %>
<form name=pay_frm action='?action=step_3' method=post>
<tr class=title><td colspan=2 height=25 align=center class=end><b>购物结算 （第二步）收货人信息确认</b></td></tr>
<tr<%response.write table3%>><td width='20%'>收货人姓名：</td><td width='80%'><input type=hidden name=nname value='<%response.write code_form(request.form("nname"))%>'><%response.write code_form(request.form("nname"))%><%if login_mode<>"" then response.write " <font class=red>（会员："&login_username&"）</font>"%></td></tr>
<tr<%response.write table3%>><td>收货人地址：</td><td><input type=hidden name=address value='<%response.write code_form(request.form("address"))%>'><%response.write code_form(request.form("address"))%></td></tr>
<tr<%response.write table3%>><td>邮政编码：</td><td><input type=hidden name=code value='<%response.write code_form(request.form("code"))%>'><%response.write code_form(request.form("code"))%></td></tr>
<tr<%response.write table3%>><td>联系电话：</td><td><input type=hidden name=phone value='<%response.write code_form(request.form("phone"))%>'><%response.write code_form(request.form("phone"))%></td></tr>
<tr<%response.write table3%>><td>电子信箱：</td><td><input type=hidden name=email value='<%response.write code_form(request.form("email"))%>'><%response.write code_form(request.form("email"))%></td></tr>
<tr<%response.write table3%>><td>付款方式：</td><td><input type=hidden name=payment value='<%response.write code_form(request.form("payment"))%>'><%response.write code_form(request.form("payment"))%></td></tr>
<tr<%response.write table3%>><td valign=top><br>备注信息：</td><td><input type=hidden name=remark value='<%response.write code_form(request.form("remark"))%>'><pre><%response.write code_form(request.form("remark"))%></td></tr>
<tr<%response.write table3%>><td colspan=2 align=center height=30 class=red>您可以点击“上一步”返回修改以上内容</td></tr>
<tr class=title><td colspan=2 align=center height=30> <input type=button value='上一步' onclick="javascript:window.history.go(-1);"> <input type=submit value='信息正确！提交订单'></td></tr>
</form>
</table>
<%
end sub
sub pay_1()
%>
<SCRIPT language=javascript>
<!--
function pay_frm_submit()
{
if (pay_frm.nname.value.length==0)
{
alert("请输入收货人姓名！");
return false;
}
if (pay_frm.address.value.length==0)
{
alert("请输入收货人具体地址！");
return false;
}
if (pay_frm.code.value.length==0)
{
alert("请输入邮政编码！");
return false;
}
if (pay_frm.phone.value.length==0)
{
alert("请输入联系电话！");
return false;
}
if (pay_frm.email.value.length==0)
{
alert("请输入电子邮件！");
return false;
}
}
-->
</SCRIPT>
<%response.write table1%>
<form name=pay_frm action='?action=step_2' method=post>
<tr class=title><td colspan=2 height=25 align=center class=end><b>购物结算 （第一步）填写收货人信息</b></td>
</tr>
<tr<%response.write table3%>><td>收货人姓名：</td><td><input type=text name=nname value='<%response.write login_username%>' size=20 maxLength=20><%if login_mode<>"" then response.write " <font class=red>（会员："&login_username&"）</font>"%></td></tr>
<tr<%response.write table3%>><td>收货人地址：</td><td><input type=text name=address size=50 maxLength=200></td></tr>
<tr<%response.write table3%>><td>邮政编码：</td><td><input type=text name=code size=15 maxLength=6></td></tr>
<tr<%response.write table3%>><td>联系电话：</td><td><input type=text name=phone size=30 maxLength=20></td></tr>
<tr<%response.write table3%>><td>电子信箱：</td><td><input type=text name=email size=30 maxLength=50></td></tr>
<tr<%response.write table3%>><td>付款方式：</td><td><select type=text name=payment>
<option>通过邮局汇款</option>
<option>现金支付，上门提货</option>
<option>银行转帐</option>
<option>招行一卡通支付</option>
<option>电汇支付</option>
</select></td></tr>
<tr<%response.write table3%>><td valign=top><br>备注信息：<br>不超过250个汉字</td><td><textarea name=remark cols=50 rows=5></textarea></td></tr>
<tr<%response.write table3%>><td colspan=2 align=center height=30 class=red>您可以修改以上内容</td></tr>
<tr class=title><td colspan=2 align=center height=30> <input type=button value='上一步' onclick="javascript:window.history.go(-1);"> <input type=submit value='下一步' onclick="return pay_frm_submit(pay_frm)"></td></tr>
</form>
</table>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -