📄 subuser.asp
字号:
if rs("zonger")>0 then
chengjiaozonger=formatnumber(rs("zonger"),2)
else
chengjiaozonger=0
end if
rs.close
rs.open "select distinct(dingdan) from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 and zhuangtai>3",conn,1,1
chengjiao=rs.recordcount
set rs=nothing
'//HTML显视
response.Write "<table width=96% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<tr><td colspan='2' bgcolor=#5F95D3><div align=left><font color=#FFFFFF>以下是您在本站的一些历史记录的统计信息</font></div></td></tr>"
response.Write "<tr><td width=22% height=14 bgcolor=#EFF5FE><div align=right>会员注册日期：</div></td><td width=78% bgcolor=#EFF5FE> "&zhucedate&"</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>下单次数：</div></td><td bgcolor=#EFF5FE> "&xiadan&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>成交次数：</div></td><td bgcolor=#EFF5FE> "&chengjiao&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>成交订单总金额：</div></td><td bgcolor=#EFF5FE> "&chengjiaozonger&"元</td></tr>"
response.Write "<tr><td height=14 bgcolor=#EFF5FE><div align=right>上一次下单时间：</div></td><td bgcolor=#EFF5FE> "&lastxiadan&"</td></tr>"
response.Write "</table>"
end sub
'//////////////////////////订单查讯
sub dingdan()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
%>
<body bgcolor="#FFFFFF">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr >
<td background="images/menu_bar01.jpg" width="55%">
<div align="right"><font color="#FFFFFF"><strong>我 的 订 单</strong></font></div></td>
<td background="images/menu_bar01.jpg" width="49%">
<div align="right">
<select name="zhuangtai" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="myuser.asp?action=dingdan&zhuangtai=0" selected>--请选择查讯状态--</option>
<option value="myuser.asp?action=dingdan&zhuangtai=0" >全部订单状态</option>
<option value="myuser.asp?action=dingdan&zhuangtai=11" >送货上门：请等待电话确认</option>
<option value="myuser.asp?action=dingdan&zhuangtai=12" >送货上门：已确认/货已送出</option>
<option value="myuser.asp?action=dingdan&zhuangtai=1" >邮政包裹/EMS：您还未作任何处理</option>
<option value="myuser.asp?action=dingdan&zhuangtai=2" >邮政包裹/EMS：用户已经划出款</option>
<option value="myuser.asp?action=dingdan&zhuangtai=3" >邮政包裹/EMS：服务商已经收到款</option>
<option value="myuser.asp?action=dingdan&zhuangtai=4" >邮政包裹/EMS：服务商已经发货</option>
<option value="myuser.asp?action=dingdan&zhuangtai=5" >邮政包裹/EMS：用户已经收到货</option>
</select>
</div></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订单号</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">合计金额</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">收货人</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订货人</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">付款方式</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">收货方式</font></div></td>
<td bgcolor="#5F95D3"><div align="center"><font color="#FFFFFF">订单状态</font></div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
dim zhuangtai
zhuangtai=request.QueryString("zhuangtai")
if zhuangtai=0 or zhuangtai="" then
select case zhuangtai
case "0"
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 or username='"&request.cookies("bookshop")("username")&"' and zhuangtai=11 or username='"&request.cookies("bookshop")("username")&"' and zhuangtai=12 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 or username='"&request.cookies("bookshop")("username")&"' and zhuangtai=11 or username='"&request.cookies("bookshop")("username")&"' and zhuangtai=12 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
end if
do while not rs.eof
%>
<tr>
<td bgcolor="#EFF5FE"><div align="center"><a href=# onClick="javascript:window.open('dingdan.asp?dan=<%=trim(rs("dingdan"))%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%dim ckxp,rs2
'////判断送货方式要加收的金额
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where songid="&rs("songhuofangshi"),conn,1,1
set ckxp=server.CreateObject("adodb.recordset")
ckxp.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&formatnumber(ckxp("zonger")+rs2("jsmoney"),2)&"元</font>"
ckxp.close
set ckxp=nothing
rs2.close
set rs2=nothing%></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%=trim(rs("shouhuoname"))%></div></td>
<td bgcolor="#EFF5FE"><div align="center"><%=trim(rs("userzhenshiname"))%></div></td>
<td bgcolor="#EFF5FE"><div align="center">
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where songid="&rs("zhifufangshi"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing%>
</div></td>
<td bgcolor="#EFF5FE"><div align="center">
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_songhuo where songid="&rs("songhuofangshi"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing
%>
</div></td>
<td bgcolor="#EFF5FE"><div align="center">
<%select case rs("zhuangtai")
case "1"
response.write "未作任何处理"
case "2"
response.write "用户已经划出款"
case "3"
response.write "服务商已经收到款"
case "4"
response.write "服务商已经发货"
case "5"
response.write "用户已经收到货"
case "11"
response.write "请等待电话确认"
case "12"
response.write "已确认/货已送出"
end select%>
</div></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end sub
'////////////////////////用户登陆
sub logins()
response.write "<table width=56% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.write "<form name=loginfo method=post action=chkuser.asp>"
response.write "<tr bgcolor=#EFF5FE><td width=27% height=19 style='padding-left:6px'><div align=right>用户名：</div></td><td width=73% style='padding-left:6px'><input name=username type=text id=username size=12> <a href=reg.asp>还没有注册？</a></td></tr>"
response.write "<tr bgcolor=#EFF5FE><td height=18 style='padding-left:6px'><div align=right>密 码：</div></td><td style='padding-left:6px'><input name=userpassword type=password id=password size=12> <a href=myuser.asp?action=repass>忘记密码？</a></td></tr>"
response.write "<tr bgcolor=#EFF5FE><td height=28 colspan=2 style='padding-left:6px'><div align=center><input style='background-color: #A5C1E0; background-repeat: repeat; background-attachment: scroll; color: #000000; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; height: 18px; line-height: normal; border: 1px solid #000000; background-position: 0% 50%' type=submit name=Submit value=登陆系统 onClick='return checkuu();'></div></td></tr>"
response.write "</form></table><br><br>"
response.write"<table align=center width=90% border=0><tr ><td align=center><b>为什么要注册？</b></td></tr>"
response.write"<tr><td align=left>本站用户享受的权利:商城充分利用网络信息技术，并通过信息化管理最大限度的降低运营成本,节省了一大笔不小的日常开支,比如场地费用,人力资源费用,运营费用等等。"
response.write"同时商城的采购渠道均为直接生产厂家，大幅减少了采购成本。我们商城将从这两面节省下来的"
response.write "开支毫无保留的反馈给消费者，从而使商品价格远远低于市场价格。深受广大消费者的青睐。同时您也将享受到本网站快捷的物流运送和完善的售后服务。"
response.write"</td></tr></table>"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -