📄 xs.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="..\ADOVBS.INC"-->
<%
CurrPage=cint(Request("CurrPage"))
DbPath = SERVER.MapPath("..\bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from customer where staus='0' "
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.RecordCount<=0 then
response.redirect "sorry.htm"
response.end
else
i=0
rs.PageSize=10
end if
PageCount=clng(rs.PageCount)
if CurrPage<=0 or CurrPage="" then
CurrPage=1
end if
if CurrPage>=PageCount then
CurrPage=PageCount
end if
BookNum=rs.RecordCount
rs.absolutePage = CurrPage
%>
<html>
<head>
<title>账单信息一览表</title>
</head>
<body bgcolor="#ffffff" background="../FOTO/039.gif">
<table border="0" align="center" width="90%" >
<tr>
<td colspan="5" align="left" height="25"><font size="2" color="#006600">选择当前页：</font></td>
<td colspan="5" align="left" height="25"><font size="2" color="#006600">总页数：</font><font size="3"><% =PageCount %></font></td>
<td colspan="5" align="left" height="25"><font size="2" color="#006600">当前页：</font><font size="3"><% =CurrPage %></font></td>
<td colspan="5" align="left" height="25"><font size="2" color="#006600">每页记录数：</font><font size="3"><% =rs.PageSize %></font></td>
</tr>
<% LinePage=18
for i=0 to PageCount\LinePage-1 %>
<tr> <% for j=1 to LinePage %>
<td><font size="2" color="#006600"><a href=xs.asp?CurrPage=<% =i*LinePage+j %>>[<% =i*LinePage+j %>]</a></font></td>
<% next %>
</tr>
<% next %> <% EndPage=PageCount mod LinePage %>
<tr>
<% for j=1 to EndPage %>
<td><font size="2" color="#006600"><a href=xs.asp?CurrPage=<% =i*LinePage+j %>>[<% =i*LinePage+j %>]</a></font></td>
<% next %>
</tr>
</table>
<hr width="90%">
<table Border="1" width="90%" align="center" cellspacing="0" bordercolor="#666600">
<tr>
<td colspan="5" align="center" bgcolor="#6666ff"><font size="6" color="#FFFFFF">未处理账单信息一览表</font></td>
</tr>
<tr bgcolor="#CCCCFF" align="center">
<td width="17%" >客户</td>
<td width="18%" >电话</td>
<td width="20%" >邮编</td>
<td width="35%">购买时间</td>
<td width="10%">详情</td>
</tr>
<% i=0
do until rs.eof %>
<tr bgcolor="#CCCCFF" align="center">
<td width="17%"><%=rs("lxr")%></td>
<td width="18%"><% =rs("phone") %> </td>
<td width="20%"><% =rs("zip") %> </td>
<td width="35%"><% =rs("inputtime") %> </td>
<td width="10%"><a href="khxq.asp?custid=<% =rs("custid") %>" target="_blank">详情</a></td>
</tr>
<%
i=i+1
if i>=rs.PageSize then exit do
rs.movenext
loop
rs.close
conn.close
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -