网站制作价格网站制作流程                                                                                

网页设计时asp得到本页面真实地址代码

作者:济南网站建设   

网页设计时怎么用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%>

 

上一篇: 网站制作知识HTML5和CSS3标准介绍
下一篇: 网站建设采用云服务器的优势