小数据量ASP分页类

Class SQL_
Public  Conn
Private   Sub  Class_Initialize()
     Set  Conn = server.CreateObject( " ADODB.Connection " )
    Conn.Open ConnStr
End Sub
Public  RecordCount,PageCount,NowPage,Record_Arr,PageSize
Public   Sub  Exec(szSQL,PS,P)
     if  p = empty   or   isnumeric (p) = false   then  p = 1
    p = cint (p)
     if  p < 1   then  p = 1
    PageSize = PS
     Set  Rs_ = server.CreateObject( " ADODB.RecordSet " )
     On   Error   Resume   Next
    rs_.Open szSQL,conn, 1 , 1
     If  Err  then  err.Clear:RecordCount = 0 :Rs_.Close: Exit   Sub
     If  Rs_.EOF  then
        RecordCount = 0
        Rs_.Close
     Else
        RecordCount = rs_.RecordCount
        rs_.PageSize = PS
         if  p > Rs_.PageCount  then  p = rs_.PageCount
        PageCount = rs_.PageCount
        rs_.AbsolutePage = p
        NowPage = p
        Record_Arr = Rs_.GetRows(PS)
        Rs_.Close
     End   if
End Sub
Public   Function  GoToPage(PageStr)
    dstr = " 共 " & RecordCount & " 部电影/每页 " & PageSize & " 部&nbsp;共 " & PageCount & " 页/当前第 " & NowPage & " 页 "
     if  PageCount < 2   then
        bstr = ""
     else
         if  NowPage < 2   then
            bstr = " 首页&nbsp;上页&nbsp;<a href=""?page= " & NowPage + 1 & PageStr & " "">下页</a>&nbsp;<a href=""?page= " & PageCount & PageStr & " "">末页</a> "
         Else
             If  NowPage = PageCount  then
                bstr = " <a href=""?page=1 " & PageStr & " "">首页</a>&nbsp;<a href=""?page= " & NowPage - 1 & PageStr & " "">上页</a>&nbsp;页&nbsp;末页 "
             Else
                bstr = " <a href=""?page=1 " & PageStr & " "">首页</a>&nbsp;<a href=""?page= " & NowPage - 1 & PageStr & " "">上页</a>&nbsp;<a href=""?page= " & NowPage + 1 & PageStr & " "">下页</a>&nbsp;<a href=""?page= " & PageCount & PageStr & " "">末页</a> "
             End   IF
         End   if
     End   if
    estr = " <script>function clsGO(){x=ThisPageGo.value;window.location.href='?page='+x+' " & PageStr & " ';}</script><input style=""font-size: 10px; border-style: solid; border-width: 1; background-color: #FFFFFF"" type=text size=3 value="" " & NowPage & " "" id=""ThisPageGo"">&nbsp;<input type=button value=""GO"" οnclick=""javascript:clsGO();"" style=""font-size: 10px; border-style: solid; border-width: 1; background-color: #FFFFFF"" id=button1 name=button1> "
    GoToPage = dstr & " &nbsp;&nbsp; " & bstr & " &nbsp;&nbsp; " & estr
End Function
Public   Function  FrontBottomStr(PageStr)
    dstr = " 共 " & RecordCount & " 部电影/每页 " & PageSize & " 部&nbsp;共 " & PageCount & " 页/当前第 " & NowPage & " 页 "
     if  PageCount < 2   then
        bstr = ""
     else
         if  NowPage < 2   then
            bstr = " 首页&nbsp;上页&nbsp;<a href=""?page= " & NowPage + 1 & PageStr & " "">下页</a>&nbsp;<a href=""?page= " & PageCount & PageStr & " "">末页</a> "
         Else
             If  NowPage = PageCount  then
                bstr = " <a href=""?page=1 " & PageStr & " "">首页</a>&nbsp;<a href=""?page= " & NowPage - 1 & PageStr & " "">上页</a>&nbsp;页&nbsp;末页 "
             Else
                bstr = " <a href=""?page=1 " & PageStr & " "">首页</a>&nbsp;<a href=""?page= " & NowPage - 1 & PageStr & " "">上页</a>&nbsp;<a href=""?page= " & NowPage + 1 & PageStr & " "">下页</a>&nbsp;<a href=""?page= " & PageCount & PageStr & " "">末页</a> "
             End   IF
         End   if
     End   if
    estr = " <script>function clsGO(){x=ThisPageGo.value;window.location.href='?page='+x+' " & PageStr & " ';}</script><input type=text size=3 value="" " & NowPage & " "" id=""ThisPageGo"">&nbsp;<input type=button value=""GO"" οnclick=""javascript:clsGO();""> "
    FrontBottomStr = dstr & " &nbsp;&nbsp; " & bstr & " &nbsp;&nbsp; " ' &estr
end Function
Public  DownListStr_,DownListSql_,DownListID_
Public   Sub  DownListStr(a,b,c)
     ' 查询下级分类,返回字符串,值:ID$名称|,传入参数:a查询根ID,b数字,级数,c字符,作为名称前缀
     Dim  TempRs
     Set  TempRs = server.CreateObject( " adodb.recordset " )
    TempRs.Open  Replace (DownListSql_, " [变量] " , cstr (a)),Conn, 1 , 1
     While   Not  TempRs.EOF    
        DownListStr_ = DownListStr_ & " | " & TempRs( 0 ) & " $ " & String (b,c) & " ┕ " & TempRs( 1 )
         Call  DownListStr(TempRs( 0 ),b + 1 ,c)
        TempRs.MoveNext    
     Wend     
End Sub
Public   Sub  DownListID(a)
     Dim  TempRs
     Set  TempRs = server.CreateObject( " adodb.recordset " )
    TempRs.open  Replace (DownListSql_, " [变量] " , cstr (a)),Conn, 1 , 1
     While   Not  TempRs.EOF
        DownListID_ = DownListID_ & " , " & TempRs( 0 )
         Call  DownListID(TempRs( 0 ))
        TempRs.MoveNext
     Wend
End Sub
Private   Sub  Class_Terminate()
    Conn.Close
     Set  Conn = Nothing
End Sub
End  Class