asp獲取頁(yè)面、目錄的方法

2013/2/16 18:21:151152 閱讀

Request.ServerVariables("http_url") 
=/showcase.asp?id=505 
Request.ServerVariables("url") 
=/showcase.asp 
Request.ServerVariables("QUERY_STRING") 
=id=505&page=2 

'文件目錄函數(shù) 
Public Function ServerPath 
Dim Path 
Dim Pos 
Path="http://" & Request.ServerVariables("server_name") & Request.ServerVariables("script_name") 
Pos=InStrRev(Path,"/") 
ServerPath=Left(Path,Pos) 
End Function

下一條：cuteftp錯(cuò)誤：建立數(shù)據(jù) socket 失敗

上一條：在IIS 6.0中啟用HTTP Gzip壓縮的方法