O código de função para obter o endereço e os parâmetros da página atual em asp é frequentemente necessário. É especialmente organizado para conveniência dos amigos que precisam dele. Copie o código do código da seguinte forma:
Função getCurrentUrl()
Em caso de erro, retomar o próximo
Dim strTemp
Se LCase(Request.ServerVariables(HTTPS)) = desativado Então
strTemp = http://
Outro
strTemp = https://
Terminar se
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
Se Request.ServerVariables(SERVER_PORT) <> 80 Então
strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
terminar se
strTemp = strTemp & Request.ServerVariables(URL)
getCurrentUrl = strTemp
Função final
Função getUrlWithParams()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
Nome do servidor = CStr(Request.ServerVariables(Server_Name))
qs=Request.QueryString
Se Request.ServerVariables(SERVER_PORT) <> 80 Então
Nome do servidor = Nome do servidor &: & Request.ServerVariables (SERVER_PORT)
terminar se
se qs<> então
getUrlWithParams =http://& Nome do servidor & ScriptAddress &?&qs
outro
getUrlWithParams = http://& Nome do servidor e ScriptAddress
terminar se
Função final