<%
Function cur_url () ': function used to obtain the URL of the current page
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
%>
Complete code:
<%
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 ()
%>