技术分享 Technology

<%
Function Cur_Url()'获取当前页面URL的函数
Dim Domain_Name,Page_Name,Quary_Name
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name = "" Then
Quary_Name = LCase(Request.QueryString)
End If
If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url="http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
End Function
%>

完整代码：
<%
Dim Domain_Name,Page_Name,Quary_Name
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name = "" Then
Quary_Name = LCase(Request.QueryString)
End If
If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url="http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
Response.Write(Cur_Url)
Response.End()
%>