根据传递的目录名,文件名参数转换输出外部访问的URL地址

' *******************************************
' 函数作用：取得当前页的URL，

'根据传递的目录名,文件名参数转换输出外部访问的URL地址
' 为文件添加正确的链接
' *******************************************
FunctionFileUrl(url,D)
' 参数1:当前文件名称url
' 参数2当前文件夹名称D
DimPageUrl,PUrl,ServerPort,ServerURL
PageUrl = " http:// " & Request.ServerVariables( " SERVER_NAME " )
ServerPort = Request.ServerVariables( " SERVER_PORT " )
if ServerPort <> 80 then
PageUrl = PageUrl & " : " & ServerPort
else
PageUrl = PageUrl
end if

ServerURL = Replace(D, " ", " / " )
' /admin/FsoWebFileList.asp
PUrl = Left(Request.ServerVariables( " URL " ),InStrRev(Request.ServerVariables( " Url " ), " / " ))
' /admin/
' response.Write("<br>A"&PageUrl)
' response.Write("<br>B"&PUrl)
' response.Write("<br>C"&D)
' response.Write("<br>D"&url)
if Instr(ServerURL,PUrl) > 0 then
PageUrl = PageUrl & " / " & Mid(ServerURL, 2 ,Len(ServerURL)) & " / " & url
else
PageUrl = PageUrl & " / " & Purl & Mid(D, 2 ,Len(D)) & " / " & url
end if


' PageUrl=PageUrl&Purl&Mid(D,2,Len(D))&"/"&url
' PageUrl=PageUrl&&传参目录名称D&传参文件名称url

FileUrl = PageUrl
' response.Write("<br>当前文件路径"&PageUrl)
' response.Write("<br>当前文件路径"&FileUrl)
' response.Write("<br>ServerURL"&ServerURL)
' response.Write("<br>当前文件夹路径"&PUrl)
' response.Write("<br>当前文件路径"&PageUrl)

' response.Write("<br>当前端口"&ServerPort)
' response.End()
EndFunction