UC知道急救!网页问题,
来源：百度知道 编辑：UC知道 时间：2024/05/06 00:04:45
大家看这段代码!
Function FSOFileRead(lwf)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(lwf),1,True)
If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
整个网站程序放在网站根目录如127.0.0.1,没有问题,网站工作正常,但是把整个网站放到一个子目录例如:127.0.0.1/hao/,就会提示 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(lwf),1,True) 出错 提示:路径未找到,把lwf改成"lwf.txt"显示倒是正常了,但是创建静态网页出现空文档,
大家看这个代码错到哪里了,为什么放在根目录就可以,放在一个虚拟路径下就显示错误呢?
Function FSOFileRead(lwf)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(lwf),1,True)
If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
整个网站程序放在网站根目录如127.0.0.1,没有问题,网站工作正常,但是把整个网站放到一个子目录例如:127.0.0.1/hao/,就会提示 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(lwf),1,True) 出错 提示:路径未找到,把lwf改成"lwf.txt"显示倒是正常了,但是创建静态网页出现空文档,
大家看这个代码错到哪里了,为什么放在根目录就可以,放在一个虚拟路径下就显示错误呢?
你这段代码,好好的没有任何问题,出错的原因不在这里,也许是你的其它问题,如果在根目录工作正常那么说明网页的代码,没有问题是路径出现了错误,检查一下是否是其他的文件链接路径导致了错误,有的时候这里报告错误,不见得问题就出在这里!