📄 submore.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="md5.asp" -->
<link href=inc/css.css rel=STYLESHEET type=text/css>
<%if Request.Cookies("venshop")("user_name")="" and Request.Cookies("venshop")("guest")="" then
response.write "您还没有定购任何产品，或者您您的登录超时。 <a href=login.asp>登录</a> <a href=reg.asp>注册</a>"
response.end
elseif Request.Cookies("venshop")("user_name")<>"" then
user_name=Request.Cookies("venshop")("user_name")
elseif Request.Cookies("venshop")("guest")<>"" then
user_name=Request.Cookies("venshop")("guest")
end if
set rs=server.createobject("adodb.recordset")
if request("action")="zt" then
sql="select * from sub where sub_name='"&user_name&"' and sub_id="&request("sub_id")
rs.open sql,conn,1,3
if rs.eof then
response.write "没有此订单信息，或者此订单已通过管理员确认"
response.end
rs.close
else
rs("sub_zt")=request("sub_zt")
rs.update
response.write "<center>"
response.write rs("sub_number")+"号"
response.write "订单状态修改成功. <a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a> "
rs.close
end if
elseif request("action")="del" then
sql="select * from sub where sub_name='"&user_name&"' and sub_id="&request("sub_id")
rs.open sql,conn,1,3
sub_number=rs("sub_number")
rs.delete
rs.update
rs.close
sql="select * from basket where sub_number='"&sub_number&"'"
rs.open sql,conn,1,3
do while not rs.eof
rs.delete
rs.movenext
loop
rs.close
response.write "此订单信息已经删除. <a href=# onClick=history.go(-2)><font color=#ff0000>返回</font></a> "
else
sql="select * from sub where sub_name='"&user_name&"' and sub_id="&request("sub_id")
rs.open sql,conn,1,1
if rs.eof then
response.write "没有此订单信息"
rs.close
else
totime=rs("sub_totime")
sub_pay=rs("sub_pay")
sub_ps=rs("sub_ps")
user_name=rs("sub_name")
zt=rs("sub_zt")
sub_number=rs("sub_number")
%><title>订单详情<%=sub_number%></title>
<table border="0" width="600" cellspacing="1" cellpadding="5" bgcolor="#808080"><tr>
<td bgcolor="#EEEEEE" colspan="5" align="center">定单号：<font color="#FF0000"><%=rs("sub_number")%><%sub_number=rs("sub_number")%></font>
日期：<font color="#808080"><%=rs("sub_date")%></font>
用户名：<%=rs("sub_name")%></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<form method="POST" action="submore.asp?sub_id=<%=rs("sub_id")%>&action=zt">
<tr><td>订单状态：<%if rs("sub_zt")=0 then response.write "无效订单"%>
<%if rs("sub_zt")=1 then response.write "未处理"%>
<%if rs("sub_zt")=2 then response.write "已付款等待发货"%>
<%if rs("sub_zt")=3 then response.write "已收款发货中"%>
<%if rs("sub_zt")=4 then response.write "已发货注意收货"%>
<%if rs("sub_zt")=5 then response.write "已收货（归档）"%></td>
<td><%if rs("sub_zt")<5 then%>修改状态：<select size="1" name="sub_zt">
<%if rs("sub_zt")=1 then%>
<option value="0">取消订单</option>
<option value="2">已付款等待发货</option>
<option value="5">已收货（归档）</option>
<%elseif rs("sub_zt")=0 then%>
<option value="1">激活订单</option>
<option value="2">已付款等待发货</option>
<option value="5">已收货（归档）</option>
<%elseif rs("sub_zt")=2 then%>
<option value="5">已收货（归档）</option>
<%elseif rs("sub_zt")=3 then%>
<option value="5">已收货（归档）</option>
<%elseif rs("sub_zt")=4 then%>
<option value="5">已收货（归档）</option>
<%elseif rs("sub_zt")=5 then%>
<%end if%></select><input type="submit" value="修改" name="submit"><%end if%></td></tr></form></table></td></tr>
<tr><td bgcolor="#F0F0F0" colspan="5">订 货 人：<b><%=rs("sub_from")%></b></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">地 址：<%=rs("sub_fromadds")%></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">邮 编：<%=rs("sub_frompost")%></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">邮 箱：<%=rs("sub_frommail")%></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">电 话：<%=rs("sub_fromtel")%></td></tr>
<tr><td bgcolor="#F0F0F0" colspan="5">收 货 人：<b><%=rs("sub_to")%></b></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">收货地址：<b><%=rs("sub_adds")%></b></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">邮 编：<%=rs("sub_post")%></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">邮 箱：<b><%=rs("sub_mail")%></b></td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5">电 话：<b><%=rs("sub_tel")%></b></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">到货时间：<%set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from totime where id="&totime&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("totime")%><%
end if
rsp.close
%></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">付款方式：<%rsp.open "select * from pay where pay_id="&sub_pay&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("pay_name")%><%
end if
rsp.close
%></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">送货方式：<%rsp.open "select * from ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("ps_name")%><%
end if
rsp.close
%></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">需要发票：<%if rs("sub_fapiao")=1 then%>需要<%else%>不需要<%end if%></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">缺货处理：<%if rs("sub_fapiao")=1 then%>等待到货<%else%>从订单取消<%end if%></td></tr>
<tr><td height="20" bgcolor="#FFFFFF" colspan="5">其它说明：<%=rs("sub_other")%></td></tr>
<tr bgcolor="#f0f0f0"><td colspan="5"> <p align="center">订购货物列表</p></td></tr>
<tr bgcolor="#f7f7f7"><td align="center">货物名称</td><td align="center">单价</td><td align="center">数量</td><td align="center">备注</td><td align="center">合计</td></tr>
<%sql="select * from basket where sub_number='"&sub_number&"'"
rsp.open sql,conn,1,1
if rsp.eof then
response.write "没有此订单信息"
else
do while not rsp.eof%>
<tr><td bgcolor="#FFFFFF" align="center"><a href="product/pro<%=rsp("hw_id")%>.htm" target=_blank><%=rsp("hw_name")%></a></td>
<td bgcolor="#FFFFFF" align="center"><%=rsp("hw_price")%> 元</td>
<td bgcolor="#FFFFFF" align="center"><%=rsp("basket_count")%></td>
<td bgcolor="#FFFFFF" align="center"><%=rsp("kxa")%> <%=rsp("kxb")%></td>
<td bgcolor="#FFFFFF" align="center"> <%=rsp("hw_price")*rsp("basket_count")%>元</td></tr>
<%totalcash=totalcash+rsp("hw_price")*rsp("basket_count")
totaljifen=totaljifen+rsp("hw_jifen")*rsp("basket_count")
rsp.movenext
loop
rsp.close%>
<tr><td bgcolor="#FFFFFF" colspan="5" align="right"><p style="margin-right: 10px; line-height:150%">
<%sql="select * from [user] where username='"&user_name&"'"
rsp.open sql,conn,1,1
if rsp.eof then
zhekou=100
usertype_name="一般用户"
rsp.close
else
usertype=rsp("user_type")
rsp.close
sql="select * from usertype where usertype_id="&usertype&""
rsp.open sql,conn,1,1
if rsp.eof then
zhekou=100
usertype_name="一般用户"
else
zhekou=rsp("usertype_zhekou")
usertype_name=rsp("usertype_name")
end if
rsp.close
end if
rsp.open "select * from ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then
pei_name="没有选择收货方式"
ps_fei=0
else
ps_name=rsp("ps_name")
ps_fei=rsp("ps_fei")
end if
rsp.close
%><%=usertype_name%>享受折扣<%=zhekou%>% 收货方式：<%=ps_name%> 附加费用：<%=ps_fei%> 价格总计<font color=red><%totalcash=totalcash*zhekou/100+ps_fei%><%=totalcash%></font>元
积分总计：<%=totaljifen%>
<table border="0" cellpadding="0" cellspacing="0">
<%
sql="select * from payonline"
rsp.open sql,conn,1,1
if rsp("payonline")=1 then
c_mid = rsp("pay_cncard")
c_order = sub_number
c_orderamount = totalcash
c_ymd = year(date())*10000+month(date())*100+day(date())
c_moneytype = "0"
c_retflag = "0"
c_paygate = ""
c_returl = rsp("pay_url")
c_memo1 = "Venshop"
c_memo2 = "70"
c_pass = rsp("pay_cncardp")
notifytype = "0"
c_language = "0"
srcStr = c_mid & c_order & c_orderamount & c_ymd & c_moneytype & c_retflag & c_returl & c_paygate & c_memo1 & c_memo2 & notifytype & c_language & c_pass
c_signstr = MD5(srcStr)
%>
<form name="payForm1" action="https://www.cncard.net/purchase/getorder.asp" method="POST" target="_blank"><tr>
<td colspan="2" align="center" height="45">
<input type="hidden" name="c_name" value="<%=trim(rs("sub_to"))%>">
<input type="hidden" name="c_address" value="<%=trim(rs("sub_adds"))%>">
<input type="hidden" name="c_tel" value="<%=trim(rs("sub_tel"))%>">
<input type="hidden" name="c_post" value="<%=trim(rs("sub_post"))%>">
<input type="hidden" name="c_email" value="<%=trim(rs("sub_mail"))%>">
<input type="hidden" name="c_mid" value="<%=c_mid%>">
<input type="hidden" name="c_order" value="<%=c_order%>">
<input type="hidden" name="c_orderamount" value="<%=c_orderamount%>">
<input type="hidden" name="c_ymd" value="<%=c_ymd%>">
<input type="hidden" name="c_moneytype" value="<%=c_moneytype%>">
<input type="hidden" name="c_retflag" value="<%=c_retflag%>">
<input type="hidden" name="c_paygate" value="<%=c_paygate%>">
<input type="hidden" name="c_returl" value="<%=c_returl%>">
<input type="hidden" name="c_memo1" value="<%=c_memo1%>">
<input type="hidden" name="c_memo2" value="<%=c_memo2%>">
<input type="hidden" name="c_language" value="<%=c_language%>">
<input type="hidden" name="notifytype" value="<%=notifytype%>">
<input type="hidden" name="c_signstr" value="<%=c_signstr%>">
<input type="submit" alt="点击支付" value="立即在线支付 - 系统采用云网支付@网平台" name="submit"></td></tr></form>
<%elseif rsp("payonline")=2 then%>
<form method="post" action="https://payment.nps.cn/pay/PayCar.jsp" target="_blank"><tr>
<td colspan="2" align="center" height="45">
<input Type="hidden" Name="M_ID" value="<%=rsp("pay_nps")%>"> <!----商家号-------->
<input Type="hidden" Name="MODate" value="<%=year(date())&month(date())&day(date())%>"> <!---不可以为空的--->
<input Type="hidden" Name="MOrderID" value="<%=sub_number%>"> <!----定单号-------->
<input Type="hidden" Name="MOAmount" value="<%=totalcash%>"> <!----定单金额------>
<input Type="hidden" Name="MOCurrency" value="1"><!----支付状态------>
<input Type="hidden" name="M_URL" value="null"> <!----此项默认为空不起作用------>
<input Type="hidden" Name="M_Language" value="1"><!----语言默认------>
<input Type="hidden" Name="S_Name" value="<%=rs("sub_from")%>"> <!----消费者姓名------>
<input Type="hidden" Name="S_Address" value="<%=rs("sub_fromadds")%>"> <!----消费者地址------>
<input Type="hidden" Name="S_PostCode" value="<%=rs("sub_frompost")%>"> <!----消费者邮编------>
<input Type="hidden" Name="S_Telephone" value="<%=rs("sub_fromtel")%>"> <!----消费者电话------>
<input Type="hidden" Name="S_Email" value="<%=rs("sub_frommail")%>"> <!----消费者电邮------>
<input Type="hidden" Name="R_Name" value="<%=rs("sub_to")%>"> <!----收货人姓名------>
<input Type="hidden" Name="R_Address" value="<%=rs("sub_adds")%>"> <!----收货人地址------>
<input Type="hidden" Name="R_PostCode" value="<%=rs("sub_post")%>"> <!----收货人邮编------>
<input Type="hidden" Name="R_Telephone" value="<%=rs("sub_tel")%>"> <!----收货人电话------>
<input Type="hidden" Name="R_Email" value="<%=rs("sub_mail")%>"> <!----收货人电邮------>
<input Type="hidden" name="MOComment" value="null"> <!----备注------>
<input Type="hidden" Name="State" value="0"> <!----支付状态默认------>
<input type="submit" alt="点击支付" value="立即在线支付 - 系统采用NPS在线支付平台" name="submit">
</td></tr></form>
<%elseif rsp("payonline")=3 then%>
<form name=theForm action=http://www.1st-pay.net/work/work.asp method=post target=_blank><tr>
<td colspan="2" align="center" height="45">
<input type="hidden" name="softwareid" value="268">
<input type="hidden" value=<%=rsp("pay_qpay")%> name=username>
<input type="hidden" value=3 name=leixing>
<input type="hidden" value=1 name=language>
<input type="hidden" value=2.0 name=ver>
<input type="hidden" value=1 name=payfangshi>
<input type="hidden" value=01 name=fangshi>
<input type="hidden" name=name value="<%=rs("sub_to")%>">
<input type="hidden" name=email value="<%=rs("sub_mail")%>">
<input type="hidden" value=<%=rs("sub_tel")%> name=handphone>
<input type="hidden" name=address value=<%=rs("sub_adds")%>>
<input type="hidden" value=<%=sub_number%> name=shopname>
<input type="hidden" value=<%=totalcash%> name=cash>
<input type=submit value="立即在线支付 - 采用易达信动在线支付平台" name=Submit>
</td></tr></form>
<%else%><tr><td colspan="2" align="center" height="45"><input type=button value="请及时付款，以便我们及早给您发货!"></td></tr><%end if%>
<%if rsp("alipay")=1 or rsp("paypal")=1 then%>
<tr><%if rsp("alipay")=1 then%>
<td align="center" height="30"><a target="_blank" title="欢迎使用支付宝安全支付平台，安全购物有保障。" href="https://www.alipay.com/payto:<%=rsp("pay_zhifubao")%>?partner=2088002046268961&subject=<%=sub_number%>&body=<%=sub_number%>&price=<%=totalcash%>&type=1&readonly=<%=rsp("pay_change")%>">
<img border="0" src="img/pay/alipay_buy.gif"></a></td><%end if%>
<%if rsp("paypal")=1 then%>
<td align="center" height="30"><table border="0" cellpadding="0" cellspacing="0" width="100%"><form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
<tr><td><input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="<%=rsp("pay_paypal")%>">
<input type="hidden" name="item_name" value="<%=sub_number%>">
<input type="hidden" name="amount" value="<%=totalcash%>">
<input type="hidden" name="no_note" value="1">
<input type="hidden" name="currency_code" value="CNY">
<input type="hidden" name="bn" value="PP-BuyNowBF">
<input type="image" src="img/pay/paypal_buy.gif" border="0" name="submit" width="115" height="24" alt="请注意：使用Paypal支付的价格包含运费！"></td></tr></form></table></td><%end if%></tr>
<%end if%>
<%rsp.close
set rsp=nothing%>
</table>
</td></tr>
<tr><td bgcolor="#FFFFFF" colspan="5" align="center">
<%if zt=0 then%><a href="ad_submore.asp?sub_id=<%=request("sub_id")%>&action=del">删除此订单</a><%end if%>
<a href="print.asp?sub_id=<%=request("sub_id")%>">订单打印</a></td></tr>
<%end if%></table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -