'函数名称：loadpages
'功能说明：搜索指定表，每页显示Pagesize条记录，将每页第一条记录及最后一条记录的id以逗号分隔组成一个字符串保存到Application对象中并更新Global.asa文件
'参数说明：sTable:搜索表名
'其他说明：1.必须先新有Connection对象实例conn
'          2.数据库中必须有id字段，类型为自动编号
'          3.注意Global.asa文件路径
Sub loadpages(sTable)
    '以下更新Application对象中的值
    Dim Pagesize,LoadSql,LoadRs
    Pagesize = 20
    Application.Lock
    Application("pages") = ""
    LoadSql = "Select * from " & sTable & " order by id desc"
    Set LoadRs = Server.CreateObject("ADODB.RecordSet")
    LoadRs.open LoadSql,conn,1,2
    If not LoadRs.eof then
        If LoadRs.RecordCount < Pagesize then
            Application("pages") = Application("pages") & LoadRs("id") & ","
            LoadRs.movelast
            Application("pages") = Application("pages") & LoadRs("id")
        Else
            Dim i
            Do while not LoadRs.eof
                Application("pages") = Application("pages") & LoadRs("id") & ","
                LoadRs.move(Pagesize)
            Loop
            If LoadRs.RecordCount mod Pagesize <> 1 then
                LoadRs.movelast
                Application("pages") = Application("pages") & LoadRs("id") & ","
            End if
            Application("pages") = Left(Application("pages"),len(Application("pages"))-1)
        End if
    Else
        Application("pages") = "nopages"
    End if
    LoadRs.close
    Set LoadRs = nothing
    Application.Unlock
    
    '以下更新Global.asa文件
    Dim fso,path
    path = Server.MapPath("Global.asa")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path) then
        Dim TextFile,content
        Set TextFile = fso.OpenTextFile(path,2,true)
        content = "<Script language=""VBScript"" runat=""server"">" & vbcrlf
        content = content & "Sub application_onstart" & vbcrlf
        content = content & "Application.lock" & vbcrlf
        content = content & "Application(""pages"")=""" & Application("pages") & """" & vbcrlf
        content = content & "Application.Unlock" & vbcrlf
        content = content & "End Sub" & vbcrlf
        content = content & "</Script>" & vbcrlf
        TextFile.write content
        Set TextFile = nothing
    End if
    Set fso = nothing
End Sub

'函数名称：pageslist
'功能说明：显示分页列表
'参数说明：newview：浏览信息面文件名
'其他说明：1.page_no为当前页面参数
Sub pageslist(newview)
    Dim arr,pages,page_no
    arr = Split(Application("pages"),",")
    pages = Ubound(arr)
    page_no = request.QueryString("page_no")
    page_no = Cint(page_no)
    If page_no <1 then page_no = 1
    If page_no >pages then page_no = pages
    '首页
    Response.write "<a href=""" & newview & "?page_no=1"">首页</a>"
    '上一页
    If page_no = 1 then
        Response.write "上一页"
    Else
        Response.write "<a href=""" & newview & "?page_no=" & page_no-1 & """>上一页</a>"
    End if
    '下一页
    If page_no = pages then
        Response.write "下一页"
    Else
        Response.write "<a href=""" & newview & "?page_no=" & page_no+1 & """>上一页</a>"
    End if
    '尾页
    Response.write "<a href=""" & newview & "?page_no=" & pages & """>尾页</a>"
End Sub

<!--#include file="Conn.asp" -->
<%
Dim arr,pages,page_no
arr = Split(Application("pages"),",")
pages = Ubound(arr)
page_no = request.QueryString("page_no")
If isnull(page_no) then page_no = 1
page_no = Cint(page_no)
If page_no <1 then page_no = 1
If page_no >pages then page_no = pages
Dim sqlstr,rs
If page_no = pages then
    sqlstr = "select * from news2 where id<=" & arr(page_no-1) & " and id>=" & arr(page_no) & " order by id desc"
Else
    sqlstr = "select * from news2 where id<=" & arr(page_no-1) & " and id>" & arr(page_no) & " order by id desc"
End if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sqlstr,conn,1,2
do while not rs.eof
    Response.write rs("id") & ","
    rs.movenext
Loop
Call pageslist("newsview.asp")
rs.close
Set rs = nothing
conn.close
Set conn = nothing
%>