📄 myorder.asp
字号:
<!--#include file="menkan2.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->
<%
action=request.querystring("action")
fa=request.querystring("fa")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Image/Main.css" rel="stylesheet" type="text/css" />
<title>我的订单</title>
</head>
<body>
<!--#include file="top.asp"-->
<%
select case action
case"list"
%>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td colspan="6">
【<a href="?action=list&fa=false">未发货订单</a>】
【<a href="?action=list&fa=true">已发货订单</a>】</td>
</tr>
<tr>
<td colspan="6" align="center" bgcolor="#eeeeee">订单列表</td>
</tr>
<tr>
<td width="5%" align="center">ID</td>
<td width="25%" align="center">订单编号</td>
<td width="20%" align="center">总件数</td>
<td width="15%" align="center">总金额</td>
<td width="15%" align="center">是否发货</td>
<td width="20%" align="center">操作</td>
</tr>
<%
uid=session("userid")
Set mypage=new xdownpage
mypage.getconn=conn
if fa="false" then
mypage.getsql="select * from orders where userid="&uid&" and fahuo=0 order by orderID desc"
elseif fa="true" then
mypage.getsql="select * from orders where userid="&uid&" and fahuo=-1 order by orderID desc"
end if
mypage.pagesize=16
set rspage=mypage.getrs()
Response.Write("<br/>")
for i=1 to mypage.pagesize
if not rspage.eof then
orderid=rspage("orderid")
orders=rspage("orders")
%>
<tr>
<td align="center"><%=i%></td>
<td align="left"><%=rspage("orders")%></td>
<td align="center"><%=rspage("TotalNum")%></td>
<td align="center"><%=rspage("TotalMoney")%></td>
<td align="center"><%if rspage("fahuo")=true then%><font color="#009900">已发货</font><%else%><font color="#FF0000">请等待</font><%end if%></td>
<td align="center">
<a href="?action=show&orderid=<%=orderid%>&orders=<%=orders%>">查看</a> |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from shouhou where orders='"&rspage("orders")&"'"
rs.open sql,conn,1,1
if rs.recordcount<1 then
%>
<a href="?action=shouhou&orders=<%=orders%>">联系客服</a>
<%else%>
<a href="myshouhou.asp?action=shouhoulist&orders=<%=rspage("orders")%>">联系客服</a>
<%end if%>
</td>
</tr>
<%
rspage.movenext
else
exit for
end if
next
%>
<tr>
<td colspan="6" align="right"><%mypage.showpage()%></td>
</tr>
</table>
<%
Set mypage=nothing
case"show"
orderid=request.querystring("orderid")
orders=request.querystring("orders")
%>
<table width="760" height="14" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td colspan="2" align="left">【<a href="javascript:history.go(-1);">返回</a>】</td>
</tr>
<tr>
<td width="15%" align="right">订单编号：</td>
<td align="left"><font color="#0000FF"><%=orders%></font></td>
</tr>
<tr>
<td align="right">购买商品：</td>
<td align="left">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Orders_Particular where orderid="&orderid
rs.open sql,conn,1,1
do while not rs.eof
set rso=server.CreateObject("adodb.recordset")
sqlo="select * from product where productid="&rs("ProductId")
rso.open sqlo,conn,1,1
if not(rso.bof or rso.eof) then
productname=rso("productname")
end if
rso.close
set rso=nothing
response.Write "商品："&productname&" 数量："&rs("buynum")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
%> </td>
</tr>
</table>
<%
case"shouhou"
orders=request.querystring("orders")
%>
<table width="760" height="14" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<form action="?action=saveshouhou" method="post" name="shouhou">
<tr>
<td colspan="2" align="left">【<a href="javascript:history.go(-1);">返回</a>】</td>
</tr>
<tr>
<td width="15%" align="right">订单编号：</td>
<td align="left">
<font color="#0000FF"><%=orders%></font>
<input name="orders" type="hidden" value="<%=orders%>">
</td>
</tr>
<tr>
<td align="right">购买商品：</td>
<td align="left">
<%
strSql="select OrderId,orders from [orders] where orders='"&orders&"'"
Set rs=conn.Execute(strSql)
OrderId=rs("OrderId")
set rs=server.CreateObject("adodb.recordset")
sql="select * from Orders_Particular where orderid="&orderid
rs.open sql,conn,1,1
do while not rs.eof
set rso=server.CreateObject("adodb.recordset")
sqlo="select * from product where productid="&rs("ProductId")
rso.open sqlo,conn,1,1
if not(rso.bof or rso.eof) then
productname=rso("productname")
end if
rso.close
set rso=nothing
response.Write "商品："&productname&" 数量："&rs("buynum")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
%> </td>
</tr>
<tr>
<td align="right">服务要求：</td>
<td align="left"><textarea name="scontent" cols="60" rows="5" id="scontent"></textarea></td>
</tr>
<tr>
<td align="right"> </td>
<td align="left"><input type="submit" name="Submit2" value="提 交">
<input type="reset" name="Submit22" value="重 置"></td>
</tr>
</form>
</table>
<%
case"saveshouhou"
orders=request.form("orders")
scontent=request.form("scontent")
if scontent="" then
response.write "<SCRIPT language=JavaScript>alert('请输入服务要求!');"
response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
conn.execute("insert into shouhou(orders,userid,scontent) Values('"&orders&"',"&session("userid")&",'"&scontent&"')")
response.Write"<script>alert('提交完成！');location.href('myshouhou.asp?action=list&ok=false');</script>"
case else
response.redirect "?action=list&fa=false"
end select
%>
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -