ASP经典分页类(5)

'修改后的获取当前Url参数的函数
'Codeing by Redsun
'====================================================================
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