待asp显示本网页地址
https://zhidao.baidu.com/question/212874735.html
asp中用什么代码来实现显示本页链接地址，就是当前的url地址我ASP程序中有个栏目在文章中需要加上本当页的地址，用什么代码实现呢?
如，请复制本文章的地址?域名/2324234/234.html
呵呵，这个简单，2中方法给你搞定：
一种ASP获取 获取域名，如本地获取是：127.0.0.1?
www.1z88.com
得到的是当前页面在虚拟目录下的完整路径如?News/Class.asp
/ʾҳַվȫ/index.asp
问号后面所有的查询字符串如：id=2得到?%=Request.ServerVariables("QUERY_STRING") %>
一种JS获取本页网址是：
获取主机名Request.QueryString
www.1z88.com
用iframe选择，本页一共多少个变量?br/>
当前共有49个servervariables变量request.servervariables("ALL_HTTP")=HTTP_CONNECTION:Keep-Alive
HTTP_CONTENT_LENGTH:0
HTTP_ACCEPT:text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
HTTP_ACCEPT_ENCODING:zstd, br, gzip
HTTP_ACCEPT_LANGUAGE:en-US,en;q=0.5
HTTP_HOST:www.1z88.com
HTTP_USER_AGENT:CCBot/2.0 (https://commoncrawl.org/faq/)
request.servervariables("ALL_RAW")=Connection: Keep-Alive
Content-Length: 0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Encoding: zstd, br, gzip
Accept-Language: en-US,en;q=0.5
Host: www.1z88.com
User-Agent: CCBot/2.0 (https://commoncrawl.org/faq/)
request.servervariables("APPL_MD_PATH")=/LM/W3SVC/13/ROOT
request.servervariables("APPL_PHYSICAL_PATH")=d:\wwwroot\wuchunhua\
request.servervariables("AUTH_PASSWORD")=
request.servervariables("AUTH_TYPE")=
request.servervariables("AUTH_USER")=
request.servervariables("CERT_COOKIE")=
request.servervariables("CERT_FLAGS")=
request.servervariables("CERT_ISSUER")=
request.servervariables("CERT_KEYSIZE")=
request.servervariables("CERT_SECRETKEYSIZE")=
request.servervariables("CERT_SERIALNUMBER")=
request.servervariables("CERT_SERVER_ISSUER")=
request.servervariables("CERT_SERVER_SUBJECT")=
request.servervariables("CERT_SUBJECT")=
request.servervariables("CONTENT_LENGTH")=0
request.servervariables("CONTENT_TYPE")=
request.servervariables("GATEWAY_INTERFACE")=CGI/1.1
request.servervariables("HTTPS")=off
request.servervariables("HTTPS_KEYSIZE")=
request.servervariables("HTTPS_SECRETKEYSIZE")=
request.servervariables("HTTPS_SERVER_ISSUER")=
request.servervariables("HTTPS_SERVER_SUBJECT")=
request.servervariables("INSTANCE_ID")=13
request.servervariables("INSTANCE_META_PATH")=/LM/W3SVC/13
request.servervariables("LOCAL_ADDR")=185.216.248.85
request.servervariables("LOGON_USER")=
request.servervariables("PATH_INFO")=/ʾҳַվȫ/index.asp
request.servervariables("PATH_TRANSLATED")=d:\wwwroot\wuchunhua\ʾҳַվȫ\index.asp
request.servervariables("QUERY_STRING")=
request.servervariables("REMOTE_ADDR")=18.97.14.85
request.servervariables("REMOTE_HOST")=18.97.14.85
request.servervariables("REMOTE_USER")=
request.servervariables("REQUEST_METHOD")=GET
request.servervariables("SCRIPT_NAME")=/ʾҳַվȫ/index.asp
request.servervariables("SERVER_NAME")=www.1z88.com
request.servervariables("SERVER_PORT")=80
request.servervariables("SERVER_PORT_SECURE")=0
request.servervariables("SERVER_PROTOCOL")=HTTP/1.1
request.servervariables("SERVER_SOFTWARE")=Microsoft-IIS/10.0
request.servervariables("URL")=/ʾҳַվȫ/index.asp
request.servervariables("HTTP_CONNECTION")=Keep-Alive
request.servervariables("HTTP_CONTENT_LENGTH")=0
request.servervariables("HTTP_ACCEPT")=text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
request.servervariables("HTTP_ACCEPT_ENCODING")=zstd, br, gzip
request.servervariables("HTTP_ACCEPT_LANGUAGE")=en-US,en;q=0.5
request.servervariables("HTTP_HOST")=www.1z88.com
request.servervariables("HTTP_USER_AGENT")=CCBot/2.0 (https://commoncrawl.org/faq/)
看看哪一个键值取出了index.html你就用那个好?asp文件，如何获取当前页面url中的第一个参数？比如一个页面地址为http://www.abc.com/live.asp?id=1&page=2，我想取第一个参数值，如何写呢？id=request.QueryString("id")
第一个id是自定义?叫什么也行。括号里的id是url上的参数名。写page就会读出page的?
>获取url问号后面的所有参数名这样就可以写一个函数，来取得本页的完整的URLPrivate
Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_itemScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))M_ItemUrl = ""
If (Request.QueryString "") Then
ScriptAddress = ScriptAddress & "?"M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"Nextif right(M_ItemUrl,1)="&" then M_ItemUrl=left(M_ItemUrl,len(M_ItemUrl)-1)
end
if GetUrl=Request.ServerVariables("SERVER_NAME")&ScriptAddress & M_ItemUrl
给你一个函数，可以判断服务器是否启用了端口等，包括参数也可以取到，函数如下?
Function URL()
Dim strServerDim intPortDim strURLDim strQueryintPort = Int(Request.ServerVariables("SERVER_PORT"))
If Request.ServerVariables("HTTPS") = "on" ThenstrServer = "https://"ElsestrServer = "http://"
End
If strServer = strServer & Request.ServerVariables("SERVER_NAME")
If intPort = 80 Or intPort = 443 ThenElsestrServer = strServer & ":" & intPort
End
If strURL = Request.ServerVariables("SCRIPT_NAME")strQuery = Request.QueryString()
If strQuery > "" Then
strURL = strURL & "?" & strQuery
End
If URL = strServer & strURL
End Function
************************************************************************