?%
'**********************************************************
' 全局变量功能: 获得域名
'**********************************************************
Dim HostPath
'HostPath="http://"&HostName()&"/sj/"
HostPath="http://"&HostName()&"/"
'**********************************************************
' 函数功能: 获得域名
'**********************************************************
Function HostName()
HostName=request.ServerVariables("HTTP_HOST")
End Function
Function VirtualPath2()
VirtualPath=""
Dim strVpath,strVpath2,intStart1,intStatr2,tempStr,intPathLen
strVpath=server.mappath("manage/")
strVpath2 = server.mappath("/")
intStart1 = len(strVpath2)
intStatr2 = instr(strVpath,"\manage")
intPathLen = intStatr2-intStart1-2
'VirtualPath=strVpath
if intPathLen>0 then
VirtualPath = mid(strVpath,intStart1+2,intPathLen)&"\"
VirtualPath = replace(VirtualPath,"\","/")
end if
End Function
%>