怎样ASP http://www.k169.com/1.asp获取当前页URL

来源：百度知道 编辑：UC知道 时间：2024/06/17 09:10:42
怎样ASP获取当前页URL http://www.k169.com/1.asp
用<script type="text/javascript" src="/3.asp"></script>

显示却是显示http://www.k169.com/3.asp 我想显示http://www.k169.com/1.asp

http://www.k169.com/3.asp 代码是
<%
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
Url="http://"&ServerName
If

Request.ServerVariables("Http_Host") & Request.ServerVariables("path_info")

Function GetUrl()
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")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUr