根据传递的目录名,文件名参数转换输出外部访问的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")
ifServerPort<>80then
PageUrl=PageUrl&":"&ServerPort
else
PageUrl=PageUrl
endif

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)
ifInstr(ServerURL,PUrl)>0then
PageUrl=PageUrl&"/"&Mid(ServerURL,2,Len(ServerURL))&"/"&url
else
PageUrl=PageUrl&"/"&Purl&Mid(D,2,Len(D))&"/"&url
endif


'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