<%@LANGUAGE="VBSCRIPT"%>
<% set conn=server.createobject("adodb.connection")
set rspagelist=server.createobject("adodb.recordset")
conn.open "dsn=mysql"
Recordset1__MMColParam = "1"

if (Request.QueryString("search") <> "") then Recordset1__MMColParam = Request.QueryString("search")
rspagelist.open "SELECT * FROM mysql WHERE name LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' ORDER BY id DESC", conn,3
%>
<%
'从地址栏取page数
If Request.QueryString("page") = "" or Request.QueryString("page") <= 0 then
page = 1
Else
page = CInt(Request.QueryString("page"))
End If
%>
<%
'设置记录集参数和显示的分页数
if not (rsPageList.eof or rsPageList.bof) then
rsPageList.MoveFirst
rsPageList.PageSize = 5 '每页显示条数
maxPages = CInt(rsPageList.PageCount) '总记录集页数
If page > rsPageList.PageCount Then
page = rsPageList.PageCount
end if
rsPageList.AbsolutePage = page '当前页码
StartPageNum=1
do while StartPageNum + 10 <= page
StartPageNum = StartPageNum + 10
Loop
EndPageNum = StartPageNum+9 '1到10,11到20,21到30风格的实现
If EndPageNum > rsPageList.Pagecount then EndPageNum = rsPageList.Pagecount
end if
%>
<% '分页子程序
sub MorePages()
if maxpages > 1 then
sScriptName = Request.ServerVariables("script_name")
strPage = "[ "
if page-10 > 0 then
strPage = strPage & " strPage = strPage & "?page=" & StartPageNum - 1
strPage = strPage & """>← " '写出后退10页的标志←
end if

For I = StartPageNum to EndPageNum
if I <> page then
strPage = strPage & "" & I & " "
else
strPage = strPage & I & " "
end if
Next '实现分页，请注意首页和尾页为变量

if EndPageNum < maxpages then
strPage = strPage & "→ " '写出前进10页的标志→
end if
strPage = strPage & "]"
Response.Write (strPage) '写出分页
end if
end sub
%>




















<%
rsPageList.Close()
    conn.close
%>