asp中获取当前页面的地址与参数的函数代码-%Function getCurrentUrl() On Error Resume Next Dim strTemp...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>asp中获取当前页面的地址与参数的函数代码
<%Function getCurrentUrl() 
On Error Resume Next 
Dim strTemp 
If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
strTemp = "http://" 
Else 
strTemp = "https://" 
End If 
strTemp = strTemp & Request.ServerVariables("SERVER_NAME") 
If Request.ServerVariables("SERVER_PORT") <> 80 Then 
strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") 
end if 
strTemp = strTemp & Request.ServerVariables("URL") 
getCurrentUrl = strTemp 
End Function

Response.Write getCurrentUrl()

Response.Write("<BR><BR>")

Function getUrlWithParams() 
Dim ScriptAddress,Servername,qs 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) 
Servername = CStr(Request.ServerVariables("Server_Name")) 
qs=Request.QueryString 
If Request.ServerVariables("SERVER_PORT") <> 80 Then 
Servername = Servername & ":" & Request.ServerVariables("SERVER_PORT") 
end if 
if qs<>"" then 
getUrlWithParams ="http://"& Servername & ScriptAddress &"?"&qs 
else 
getUrlWithParams ="http://"& Servername & ScriptAddress 
end if 
End Function

Response.Write getUrlWithParams()%>


×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » asp中获取当前页面的地址与参数的函数代码
标签: asp 函数 参数

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)