取得当前页面的路径和文件名 >> 正文

取得当前页面的路径和文件名

热荐

取得当前页面的路径和文件名

［作者：不详转贴自：网络点击数：更新时间：2008/5/5 文章录入：蓝色海豚］

【字体：

】

取得完整路径和文件名，如http://stuit.cn/It/Default.asp

<%
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)
  GetUrl = strTemp
End Function
’Response.write GetUrl()
url1=GetUrl()
url1=Server.URLEncode(url1)
%>
<%=geturl()%>

取得单纯文件名，如Default.asp

<%=Request.ServerVariables("url")%>

上一篇文章：ASP日期和时间函数示例

下一篇文章：关于aspnet_client目录