程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> Asp獲取本頁的URL地址

Asp獲取本頁的URL地址

編輯: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://"&#38;ServerName 
If ServerPort <> "80" Then Url = Url &#38; ":" &#38; ServerPort 
Url=Url&#38;ScriptName 
If QueryString <>"" Then Url=Url&#38;"?"&#38; QueryString 
GetLocationURL=Url 
End Function 

Response.Write GetLocationURL()
%>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved