XDOWNPAGE ASP版本 分页类

ion


''====================================================================
''ShowPageInfo 分页信息
''更据要求自行修改
''
''====================================================================
Private Function ShowPageInfo()
Dim str_tmp
str_tmp="页次:"&int_curpage&"/"&int_totalpage&"页 共"&int_totalrecord&"条记录 "&XD_PageSize&"条/每页"
ShowPageInfo=str_tmp
End Function
''==================================================================
''GetURL 得到当前的URL
''更据URL参数不同，获取不同的结果
''
''==================================================================
Private Function GetURL()
Dim strurl,str_url,i,j,search_str,result_url
search_str="page="

strurl=Request.ServerVariables("URL")
Strurl=split(strurl,"/")
i=UBound(strurl,1)
str_url=strurl(i)''得到当前页文件名

str_params=Trim(Request.ServerVariables("QUERY_STRING"))
If str_params="" Then
result_url=str_url & "?page="
Else
If InstrRev(str_params,search_str)=0 Then
result_url=str_url & "?" & str_params &"&page="
Else
j=InstrRev(str_params,search_str)-2
If j=-1 Then
result_url=str_url & "?page="
Else
str_params=Left(str_params,j)
result_url=str_url & "?" & str_params &"&page="
End If
End If
End If
GetURL=result_url
End Function

''====================================================================
'' 设置 Terminate 事件。
''
''====================================================================
Private Sub Class_Terminate
XD_RS.close
Set XD_RS=nothing
End Sub
''====================================================================
''ShowError 错误提示
''
''
''====================================================================
Private Sub ShowError()
If str_Error <> "" Then
Response.Write("" & str_Error & "")
Response.End
End If
End Sub
End class



''set conn = server.CreateObject("adodb.connection")
''conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("/data/5iduohai.mdb")
''
''''#############类调用样例#################
''''创建对象
''Set mypage=new xdownpage
''''得到数据库连接
''mypage.getconn=conn
''''sql语句
''mypage.getsql="select * from [DH_Company] order by id asc"
''''设置每一页的记录条数据为5条
''mypage.pagesize=5
''''返回Recordset
''set rs=mypage.getrs()
''显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次

''
''''显示数据
''Response.Write("<br/>")
''for i=1 to mypage.pagesize
''''这里就可以自定义显示方式了
'' if not rs.eof then
'' response.write rs(0) & "<br/>"
'' rs.movenext
'' else
'' exit for
'' end if
''next
''mypage.showpage()
%>