实现翻页需要获取当前的url地址，特别是当前URL一般都含有参数，若无参数，则只用“Request.ServerVariables("SCRIPT_NAME")”即可，但含参数的URL如何得到呢？经过网上查询和研究，用如下函数实现：

'=========================
'获取当前Url参数的函数
Private Function GetUrl()
Dim ScriptAddress,M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
'如果页面传递参数是用page变量，那么判断一下page是否已经使用，避免重复！
If InStr("page",M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl = ScriptAddress & M_ItemUrl
if instr(1,GetUrl,"?",1)<1 then
GetUrl=GetUrl&"?"
end if
End Function
'=============================