甜蜜阴森家族百度云16:谁帮我修改一下路径!!!(网页)

来源:百度文库 编辑:中科新闻网 时间:2024/05/04 13:55:57
objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
我想把它修改成http://xxx.xxx.xx/xxx下的怎么改

Function RootPath2DomainPath(url)
Dim sHost, sPort
sHost = Split(Request.ServerVariables("SERVER_PROTOCOL"), "/")(0) & "://" & Request.ServerVariables("HTTP_HOST")
sPort = Request.ServerVariables("SERVER_PORT")
If sPort <> "80" Then
sHost = sHost & ":" & sPort
End If
RootPath2DomainPath = sHost & url
End Function