获取url包括参数
来源:网络 作者:佚名 点击:
次时间:2017-08-23 21:47
[摘要] 指引教程为您提供获取url包括参数等资源，欢迎您收藏本站，我们将为您提供最新的获取url包括参数资源
|
<script>ec(2);</script> 获取url包括参数
'函数名：GetUrl
'作 用：获取url包括参数
'返回值：获取url包括参数
'****************************************************
Public Function GetUrl()
Dim strTemp
strTemp=Request.ServerVariables("Script_Name")
If Trim(Request.QueryString)<> "" Then
strTemp=strTemp&"?"
For Each M_item In Request.QueryString
strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
next
end if
GetUrl=strTemp
End Function
'使用方法
call GetUrl()
|
------分隔线----------------------------
