📄 xssll.asp
字号:
<!--#include file="../conn.inc" -->
<%
Sub ShowPage(rs,page) '显示结果集中的指定页
Response.write("<center><table border=1>")
Response.write("<tr bgcolor=#ddeeff>")
For i=0 to rs.Fields.Count-1
response.write("<td>" & rs.Fields(i).Name & "</td>")
next
response.write("</tr>")
rs.AbsolutePage=Page
For i=1 to rs.PageSize
response.write("<tr>")
response.write("<td><a href=xssno.asp?id=" & rs.Fields(0).Value & ">" & rs.Fields(0).Value & "</a></td>")
response.write("<td>" & rs.Fields(1).Value & "</a></td>")
response.write("<td><a href=xssdq.asp?dq=" & rs.Fields(2).Value & ">" & rs.Fields(2).Value & "</a></td>")
for j=3 to rs.Fields.Count-1
response.write("<td>" & rs.Fields(j).Value & "</td>")
next
response.write("</tr>")
rs.MoveNext
if rs.eof then exit for
next
response.write("</table></center>")
End Sub
set rs=Server.createobject("adodb.Recordset")
sql = "select XSBH as '销售商编号',XSMC as '销售商名称',DQ as '所在地区',FZR as '负责人',DH as '电话' from XSS"
rs.open sql,conn,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body background="../img/bg-1.gif">
<%
rs.PageSize=10
Page=CInt(Request("PageText"))
if Page<1 then Page=1
if Page>rs.PageCount then Page=rs.PageCount
ShowPage rs,Page
%>
<div align=center>
<form action="xssll.asp" method="get">
<%
if Page<>1 then
response.write("<a href=xssll.asp?PageText=1 target=main>第一页</a>")
response.write("<a href=xssll.asp?PageText=" & (Page-1) & " target=main>上一页</a>")
end if
if Page<>rs.PageCount then
response.write("<a href=xssll.asp?PageText=" & (Page+1) & " target=main>下一页</a>")
response.write("<a href=xssll.asp?PageText=" & rs.PageCount & " target=main>最后一页</a>")
end if
%>
<p>输入页号：<input type=text name="PageText" size=3>
总页数：<font color="red"><%=Page%>/<%=rs.PageCount%></font></p>
</form></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -