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

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

'根据传递的目录名,文件名参数转换输出外部访问的URL地址
'            为文件添加正确的链接
' *******************************************
Function FileUrl(url,D)
     ' 参数1:当前文件名称 url
     ' 参数2当前文件夹名称 D
    Dim PageUrl,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()
End Function