大家看这段代码!
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"显示倒是正常了,但是创建静态网页出现空文档,
大家看这个代码错到哪里了,为什么放在根目录就可以,放在一个虚拟路径下就显示错误呢?
|