asp oracle分页程序类（XDOWNPAGE2.0）

ShowPageInfo=str_tmp
End Function
'=============================================
'ShowPageSizeChange 改变页大小
'根据要求自行修改
'
'=============================================
public sub ShowPageSizeChange()
Dim str_tmp
str_tmp="页大小：<select name='sssssPageSize' onchange='changePageSize(this.value)'>"
str_tmp=str_tmp & "<option"
if XD_PageSize=10 then str_tmp =str_tmp & " selected "
str_tmp=str_tmp & " value='10'>10</option>"
str_tmp=str_tmp & "<option"
if XD_PageSize=20 then str_tmp =str_tmp & " selected "
str_tmp=str_tmp & " value='20'>20</option>"
str_tmp=str_tmp & "<option"
if XD_PageSize=50 then str_tmp =str_tmp & " selected "
str_tmp=str_tmp & " value='50'>50</option>"
str_tmp=str_tmp & "<option"
if XD_PageSize=int_totalRecord then str_tmp =str_tmp & " selected "
str_tmp=str_tmp & " value='" & int_totalRecord & "'>all</option>"
str_tmp=str_tmp & "</select>"
response.Write str_tmp
End sub

'=============================================
'修改后的获取当前Url参数的函数
'Codeing by Redsun
'northsnow注释：不知道用在何处，但是保留
'=============================================
Private Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?" '取得当前地址
If (Request.QueryString <> "") Then
M_ItemUrl = ""
For Each M_item In Request.QueryString
If InStr("page",M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
ScriptAddress = ScriptAddress & M_ItemUrl '取得带参数地址
End If
GetUrl = ScriptAddress '& "page="
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("" & SW_Error & "")
Response.End
End If
End Sub

End class

% >

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!