📄 subuser.asp
字号:
response.Write "<tr><td height=22 bgcolor=#ffffff><div align=right>暂存款总计：</div></td><td bgcolor=#ffffff>0.00元</td></tr>"
response.Write "<tr><td height=2 bgcolor=#ffffff><div align=right>是否订阅本站最新商品信息：</div></td><td bgcolor=#ffffff>暂不支持此功能</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
%>
<table width="740" border="0" cellspacing="0" cellpadding="0" 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" height="205" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td height="210" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="55%">
<div align="right"><font color="#FF6600">我 的 订 单</font></div>
</td>
<td 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=1" >未作任何处理</option>
<option value="myuser.asp?action=dingdan&zhuangtai=2" >用户已经划出款</option>
<option value="myuser.asp?action=dingdan&zhuangtai=3" >服务商已经收到款</option>
<option value="myuser.asp?action=dingdan&zhuangtai=4" >服务商已经发货</option>
<option value="myuser.asp?action=dingdan&zhuangtai=5" >用户已经收到货</option>
</select>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#666666">
<td>
<div align="center"><font color="#FFFFFF">订单号</font></div>
</td>
<td>
<div align="center"><font color="#FFFFFF">合计金额</font></div>
</td>
<td>
<div align="center"><font color="#FFFFFF">收货人</font></div>
</td>
<td>
<div align="center"><font color="#FFFFFF">订货人</font></div>
</td>
<td>
<div align="center"><font color="#FFFFFF">付款方式</font></div>
</td>
<td>
<div align="center"><font color="#FFFFFF">收货方式</font></div>
</td>
<td>
<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 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<5 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 bgcolor="#EFEFEF">
<td>
<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>
<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>
<div align="center"><%=trim(rs("shouhuoname"))%></div>
</td>
<td>
<div align="center"><%=trim(rs("userzhenshiname"))%></div>
</td>
<td>
<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>
<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>
<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 "用户已经收到货"
end select%>
</div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end sub
'////////////////////////用户登陆
sub logins()
dim url
url=Request.ServerVariables("HTTP_REFERER")
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=#ffffff><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><input name=comeurl type=hidden value="&url&"> <a href=reg.asp>还没有注册？</a></td></tr>"
response.write "<tr bgcolor=#ffffff><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=#ffffff><td height=28 colspan=2 style='padding-left:6px'><div align=center><input type=submit name=Submit value=登陆系统 onClick='return checkuu();'></div></td></tr>"
response.write "</form></table>"
end sub
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -