📄 number.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title>订单号回顾</title>
</head>
<body>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td>
<p align="right"></td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="17">
<tr>
<td background="pic/line_gb.gif" height="1"></td>
</tr>
<tr>
<td height="18" bgcolor="#EEEEEE"> <b>最新订单号</b></td>
</tr>
<tr>
<td height="14">
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="38">
<tr>
<td width="17%" align="center" height="18" bgcolor="#EEEEEE">编
号</td>
<td width="49%" align="center" height="18" bgcolor="#EEEEEE">订 单
号</td>
<td width="34%" align="center" height="18" bgcolor="#EEEEEE">订购日期</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from sub where d_webname='"&session("d_webname")&"' order by sub_id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write"未有订单号"
end if
do while not rs.eof%>
<tr>
<td width="17%" align="center" height="18" bgcolor="#EEEEEE"><%=rs("sub_id")%></td>
<td width="49%" align="center" height="18" bgcolor="#EEEEEE"><%=rs("sub_number")%></td>
<td width="34%" align="center" height="18" bgcolor="#EEEEEE"><%=rs("sub_time")%></td>
</tr>
<%rs.movenext
loop
rs.Close
%>
</table>
</td>
</tr>
<tr>
<td height="1" background="pic/line_gb.gif"></td>
</tr>
<tr>
<td height="18" bgcolor="#EEEEEE"> <b>历史订单号</b></td>
</tr>
<tr>
<td height="14">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="17%" align="center" bgcolor="#EEEEEE" height="18">编
号</td>
<td width="49%" align="center" bgcolor="#EEEEEE" height="18">订 单
号</td>
<td width="34%" align="center" bgcolor="#EEEEEE" height="18">订购日期</td>
</tr>
<%pgsize=10
page=request.querystring("page")
sql="select * from sub where d_webname='"&session("d_webname")&"' order by sub_id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write"未有订单号"
end if
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%>
<tr>
<td width="17%" align="center" bgcolor="#EEEEEE" height="18"><%=rs("sub_id")%></td>
<td width="49%" align="center" bgcolor="#EEEEEE" height="18"><%=rs("sub_number")%></td>
<td width="34%" align="center" bgcolor="#EEEEEE" height="18"><%=rs("sub_time")%></td>
</tr>
<%count=count+1
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td width="100%" height="18" colspan="3">
<p align="center"><a href=number.asp?page=<%=page-1%>>上一页</a>
<a href=number.asp?page=<%=page+1%>>下一页</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" background="pic/line_gb.gif"></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -