www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > cn/userorder.asp
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net</title>
<meta name="keywords" content="云枫工作室">
<meta name="description" content="云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net">
<meta name="Author" content="李锋,281373943@qq.com">
<link rel="stylesheet" href="css.css" type="text/css">
<SCRIPT src="js.js" type=text/javascript></SCRIPT>
</head>
<noscript><iframe src=*.html></iframe></noscript>
<!-- #include file="conn.asp"-->
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 oncopy="nocopy()">
<!--#include file="top.asp"-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="146" height="276" valign="top" background="images/13.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" background="images/10.jpg" class="STYLE6"> 会员菜单 </td>
</tr>
<tr>
<td> <% If session("memberID")="" Then %>
<table width='94%' height="25" border=0 align="center" cellpadding=2 cellspacing=0 class=tf>
<tr>
<td height=25> 请登录 ！</td>
</tr>
</table> <% Else %>
<tr><td colspan="2"><br>
欢迎: <span class="STYLE7"><%=session("memberID")%></span><br>
<br>
<table width='94%' border=0 align="center" cellpadding=2 cellspacing=0 class=tf>
<tr>
<td height=27 background="images/11.jpg"> <a href="manage.asp">修改信息</a></td>
</tr>
<tr>
<td height=27 background="images/11.jpg"> <a href="changepwd.asp">修改密码</a> </td>
</tr>
<tr>
<td height=27 background="images/11.jpg"> <a href="userorder.asp">订单管理</a></td>
</tr>
</table>
<div align="center"><font color="#FFFFFF"><a href="logout.asp"><br>
<img src="images/dc.jpg" width="80" height="19" border="0" /></a><br />
<br />
</font> </div>
</div></td>
<% End If %></tr>
<tr>
<td height="12" background="images/12.jpg"></td>
</tr>
</table></td>
<td width="632" valign="top" background="images/15.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" valign="bottom" background="images/14.jpg"><table width="100%" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="29"> 会员</td>
</tr>
</table></td>
</tr>
<tr></tr>
</table>
<table width="580" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#EAEBF0">
<tr>
<td width="110" height="26" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">ID</td>
<td width="179" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">产品</td>
<td width="90" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">数量</td>
<td width="90" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">价格</td>
<td width="165" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">购买日期</td>
<td width="165" align="center" bordercolor="#E2E2EC" bgcolor="#CBCDDC" class="STYLE1">当前状态 </td>
</tr>
<%
page1=clng(request("page"))
set rs=server.createobject("adodb.recordset")
sql="select * from orderlist where member='"&session("memberId")&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<tr><td>"
else
rs.pagesize=10
if page1=0 then page1=1
pages=rs.pagecount
if page1 > pages then page=pages
rs.AbsolutePage=page1
i=0
do while not rs.eof
i=i+1
%>
<tr>
<td height="26" align="center" bordercolor="#E2E2EC"><%=rs("orderid")%></td>
<td height="26" align="center" bordercolor="#E2E2EC"><%
set rs1=server.createobject("adodb.recordset")
sql="select * from product where id="&rs("proid")
rs1.open sql,conn,1,1
if rs1.eof then
response.Write "no record"
else
response.Write "<a href='cpzsinfo.asp?id="&rs("proid")&"' target='_blank'>"&rs1("title")&"</a>"
end if
rs1.close
set rs1=nothing
%>
</td>
<td height="26" align="center" bordercolor="#E2E2EC"><%=rs("num")%></td>
<td height="26" align="center" bordercolor="#E2E2EC">￥<%=rs("jiage")%></td>
<td height="26" align="center" bordercolor="#E2E2EC"><%=FormatDateTime(rs("orderdate"),2)%></td>
<td align="center" bordercolor="#E2E2EC">
<%
select case rs("isok")
case 0
response.Write "未完成"
case 1
response.Write "未处理"
case 2
response.Write "未到款"
case 3
response.Write "已到款"
case 4
response.Write "已发货"
case 5
response.Write "处理完毕"
end select
%>
</td>
</tr>
<%
if i>=10 then exit do
rs.movenext
loop
%>
<tr>
<td height="49" colspan="5" align="center"><%if rs.recordcount>10 then%>
<%if Page1<2 then
response.write "Home Previous "
else
response.write "<a href=userorder.asp?page=1>Home</a> "
response.write "<a href=userorder.asp?page=" & page1-1 & ">Previous</a> "
end if
if rs.pagecount-page1<1 then
response.write "Next Last"
else
response.write "<a href=userorder.asp?page=" & (page1+1) & ">"
response.write "Next</a> <a href=userorder.asp?page="&rs.pagecount&">Last</a>"
end if
end if
end if
rs.close
set rs=nothing
%></td>
</tr>
</table></td>
<td width="222" background="images/03.jpg"><p> </p></td>
</tr>
</table>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="778" height="10" valign="top" background="images/08.jpg"></td>
<td width="222" background="images/03.jpg"></td>
</tr>
</table>
<!--#include file="xia.asp"-->
</body>
</html>