孕妇可以涂清凉油吗:谁帮我修改一下路径!!!(网页)

来源:百度文库 编辑:高校问答 时间:2024/05/12 13:12:54
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