📄 userorderlog.asp
字号:
<!--#include file="adminconn.inc" -->
<%
'如果删除
if request("del")<>"" then
conn.Execute("delete * from orders where id="&request("del"))
end if
'如果完成交易
if request("comp")<>"" then
conn.execute ("update orders set comp=true where id="&request("comp"))
'set rst=server.createobject("adodb.recordset")
'sqlt="select * from orders where id = "&request("comp")&""
'rst.open sqlt,conn,1,3
'email=rst("email")
'fromemail="admin@certasp.com"
'password=888888
'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'objCDOMail.From =fromemail
'objCDOMail.To = email
'objCDOMail.Subject ="恭喜!恭喜!elabzone会员注册成功"
'objCDOMail.Body = "您的密码为:"&password
'objCDOMail.Body = "恭喜,您的密码为:" &password& "谢谢您选择我们的服务，如果有任何问题请信admin@certasp.com"
'objCDOMail.Send
'Set objCDOMail = Nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/guhongying.css" type="text/css">
<title>腾科B2C在线购物-用户订单管理</title>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<body bgcolor="6699CC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
<tr>
<td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 您可以在这里查看帐号的订单信息</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50"> </td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'加入判断:是交易后定单，还是未交易定单，是全部订单，还是个人订单，
'未交易
'是否查看已交易订单
if request("viewcomp")="" then
'是否查看未交易订单
if request("viewf")="" then
'是否是个人定单
if request("username")<>"" then
sql="select * from orders where username='"&request("username")&"' order by id desc"
else
sql="select * from orders order by id desc"
end if
else
'查看所有订单
if request("username")<>"" then
sql="select * from orders where username='"&request("username")&"' and comp=false order by id desc"
else
sql="select * from orders where comp=false order by id desc"
end if
end if
else
'已交易
if request("username")<>"" then
sql="select * from orders where username='"&request("username")&"' and comp=true order by id desc"
else
sql="select * from orders where comp=true order by id desc"
end if
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<BR>"
response.write"=== 暂无符合条件之订单 ==="
response.write"<BR><BR>"
response.end
end if
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="75%" align="center">
<tr bgcolor="#336699"> <% if rs.pagecount=1 then %>
<td height="30" colspan="4" > <%if key<>"" then response.write "<font color=ffffff>您正在编辑 <b>" & key & " </b>的订单</font> "%>
<font class="ver" color="#FFFFFF">共有[<%=rs.recordcount%>]张订单 以下是[1～<%=rs.recordcount%>]张
</font>
<%if request("viewcomp")="" then%>
<a href="userorderlog.asp?viewcomp=true&username=<%=request("username")%>"><font color=eeeeee>已交易订单</font></a><%else%>
<a href="userorderlog.asp?viewf=true&username=<%=request("username")%>"><font color=eeeeee>未交易订单</font></a>
<%end if%>
<a href="userorderlog.asp?username=<%=request("username")%>"><font color=eeeeee>所有订单</font></a>
</td>
</tr>
<%else%>
<tr bgcolor="#336699">
<td height="30" colspan="4" ><font class=ver> <font color="#FFFFFF"><%if key<>"" then response.write "您正在编辑" & key & " 的订单 "%>
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[<%=rs.recordcount%>]张订单 以下是[<%=page_start%>～<%=page_end%>]张 <%if request("viewcomp")="" then%>
<a href="userorderlog.asp?viewcomp=true&username=<%=request("username")%>"><font color=eeeeee>观看已交易订单</font></a><%else%>
<a href="userorderlog.asp?username=<%=request("username")%>"><font color=eeeeee>观看未交易订单</font></a>
<%end if%>
<a href="userorderlog.asp?username=<%=request("username")%>"><font color=eeeeee>所有订单</font></a>
</font></font></td>
</tr>
<tr bgcolor="#7C96B8">
<td height="35" colspan="4" > <% response.write"<form name=go2to form method=Post action='userorderlog.asp?key="+key+"'>"
response.write "<font class=ver>◆ </font>"
if pagecount=1 then
response.write "<font class=ver>首页 上一页</font> "
else
response.write "<a href=userorderlog.asp?page=1&key="+key+"><font class=ver>首页</font></a> "
response.write "<a href=userorderlog.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font class=ver>下一页 尾页</font>"
else
response.write "<a href=userorderlog.asp?page="+cstr(pagecount+1)+"&key="+key+"><font class=ver>下一页</font></a> "
response.write "<a href=userorderlog.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font class=ver>尾页</font></a>"
end if
response.write "<font class=ver> 页次:<font class=ver>"&pagecount&"</font>/"&rs.pagecount&"页</font>"
response.write "<font class=ver> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font> "
response.write "<input class=button1 type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>" %>
</td>
</tr>
<%end if%>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="75%" align="center">
<tr>
<td width="8%" height="28" class=ver bgcolor="336699">
<p align="center"><font color="#FFFFFF">ID</font></p>
</td>
<td width="17%" bgcolor="#7C96B8" >
<div align="center"><font color="#FFFFFF">订单号</font></div>
</td>
<td width="17%" bgcolor="#336699" >
<div align="center"><font color="#FFFFFF">支付金额</font></div>
</td>
<td width="17%" bgcolor="#7C96B8" >
<p align="center"><font color="#FFFFFF">支付方式</font></p>
</td>
<td width="17%" bgcolor="#336699" >
<div align="center"><font color="#FFFFFF">订购日期</font></div>
</td>
<td width="8%" bgcolor="#7C96B8">
<p align="center"><font color="#FFFFFF">详情 </font>
</td>
<td width="8%" bgcolor="#336699">
<p align="center"><font color="#FFFFFF">删除 </font>
</td>
<td width="8%" bgcolor="#7C96B8">
<p align="center"><font color="#FFFFFF">完成 </font>
</td>
</tr>
<% do while not rs.eof %>
<tr>
<td height="35" bgcolor="336699" >
<p align="center"><%=rs("id")%> </p>
</td>
<td bgcolor="#7C96B8" >
<p align="center"><font color=ffffff><%=rs("inBillNo")%></font></p>
</td>
<td bgcolor="#336699" >
<p align="center"><%=rs("summoney")%></p>
</td>
<td bgcolor="#7C96B8" >
<p align="center"><font color=ffffff><%=rs("paymenttype")%></font></p>
</td>
<td bgcolor="#336699" >
<p align="center"><%=rs("ordertime")%></p>
</td>
<td bgcolor="#7C96B8" >
<p align="center"><font color="#eeeeee">[</font><a href="orderslog.asp?search=<%=rs("id")%>" target="_blank"><font class=ver>详</font></a><font color="#eeeeee">]</font>
</td>
<td bgcolor="#336699" >
<p align="center"><font color="#eeeeee">[</font><a href="userorderlog.asp?del=<%=rs("id")%>&username=<%=request("username")%>&comp=<%=request("comp")%>"><font class=ver>删</font></a><font color="#eeeeee">]</font>
</td>
<td bgcolor="#7C96B8" ><%if rs("comp")=false then%>
<p align="center"><font color="#eeeeee">[</font>
<a href="userorderlog.asp?username=<%=request("username")%>&comp=<%=rs("id")%>"><font class=ver>完</font></a><font color="#eeeeee">]</font>
<%end if%>
</td>
</tr>
<%
i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -