|
获取url包括参数
函数名GetUrl
作 用获取url包括参数
返回值获取url包括参数
****************************************************
Public Function GetUrl()
Dim strTemp
strTemp=RequestServerVariables("Script_Name")
If Trim(RequestQueryString)<> "" Then
strTemp=strTemp&"?"
For Each M_item In RequestQueryString
strTemp=strTemp&M_item&"="&ServerUrlEncode(Trim(RequestQueryString(""&M_item&"")))
next
end if
GetUrl=strTemp
End Function
使用方法
call GetUrl() |
