潍坊网站国际欢迎光临潍坊优发网络公司
您当前位置:潍坊优发网络公司 >>网站国际 >> 浏览手机版

asp得到本页面真实地址

手机版标签:得到,本页,页面,真实,真实地,实地,实地址,地址 发布时间:2020年03月31日 预览48

怎么用asp调出来本页的真实网址?写一个函数就可以达到目的,函数如下:注重不要有中文字符下的引号或者双引号。


<%
Private Function GetUrl() ’函数名是GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
Next
if right(M_ItemUrl,1)="&" then M_ItemUrl=left(M_ItemUrl,len(M_ItemUrl)-1)
end if
GetUrl=Request.ServerVariables("SERVER_NAME")&ScriptAddress & M_ItemUrl
End Function
%>


调用方法使用<%=geturl%>

上亚洲:英文网站图片顶级要注重的十项规范
下亚洲:在线网页开发工具火狐Thimble介绍