求ASP分页代码?

a href=" value="尾页<.PageCount
  End If
  If Page <
<%=Page%>msgtype"
                                首页 上一页
                                < name="哦晕;>hidden"go"
                                <form action="页
                                <.asp;
                                转到，
  Rs1=conn; name="?Page=1"input type="> name="
                            <% Else %> 0 Then
   For i = 1 To 16
    If Rs1; Then
   Page = 1
  End If
  If IsNumeric(Page) Then
   Page = int(Page)
  End If
  If Page <,第<% Else %>% If Page >>?Page=<%=Site_ID%>/a>input type="a>首页< < Rs1;%=msgtype%>
数据输出部分
<page"
                                下一页 尾页
                                <"?Page=<
                                < 1 Then
   Page = 1
  End If
  If Page ><页/>.RecordCount >
                                <<a href="a>%If PageCount>
                                  <%=Page%>页面;"
                                <.PageCount Then
   Page = Rs1; value="页面;%=PageCount%> PageCount Then %>.EOF Then
     Exit For
    End If
%>/">hidden" id="%  If Page <共<form>input type="page"text".URLEncode(SearchText)%>页面.RecordCount
  PageCount = Rs1.PageCount AND Rs1?Page=<%=Page-1%> value="Site_ID2"%  End If %>SearchText2".PageCount >个记录;a>>.PageCount
  If Page = "<" name="a href="submit"%=RsCount%>> value=".asp;/
                                <a href="4"页面;input name="
                                
                              <.asp;input type=" <上一页<下一页</
                                <?Page=<>" type=".asp;"%  End If %>：
                                <
                                <%End If%>.PageSize = 16'.execute(sql)
  Rs1;= Rs1;//页
<hidden" 1 Then %>一页的条数
  RsCount = Rs1;%=PageCount%>.AbsolutePage = Page
  End If
  If Rs1;>"页面;
<
  共<%=Server;> 0 Then
   Rs1; size="1 Then%>.asp;%=Page%+1>Submit22"div>
 

CreateObject("page"ADODB; Then
curPage = 0
Else
curPage = Clng(curPage)
End If
sqlTmp = ".pageCount
p_recordCount = rst,1
rst;&ClassID&",[Elite] Asc;
ClsMain,1;ClassID"<.QueryString("Select * From [Article] Where [ClassId]=".Open ClsMain,ClsMain; and [Passed] = True And [Deleted] = False" p_recordCount Then curPage = p_recordCount
If p_recordCount >.recordCount
If IsNumeric(curPage) = False Then curPage = 1
If curPage = " 1 Then curPage = 1
if curPage >.SqlString;
%>?id="
sqlTmp = sqlTmp & ".absolutePage = curPage
path=" Order By [OnTop] Asc;))
Set ClsPage = New classPage
curPage  = Trim(Request.PageSize = 15
p_pageSize = rst.SqlString = sqlTmp
Set rst = Server.asp;)
rst.RecordSet"newslist.Conn.pageSize
p_pageCount = rst.querystring(" 0 Then rst; Or curpage <%
ClassID=cint(request;",[ArticleID] Desc""))
If curPage = "