关于应用Application实现的一个简单的聊天功能

关于使用Application实现的一个简单的聊天功能
我利用IIS不能运行，说我Microsoft VBScript 运行时错误 (0x800A004C)路径未找到，利用代理服务器也不行，但是使用asp本地测试工具却可以，为什么，代码如下，文件都是放在根目录的。
if Application("show")<>"" then
Dim FileObject  
Dim TextFile  
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile= FileObject.OpenTextFile("upload/chat.txt",8,True)
TextFile.WriteLine(Application("show"))  
TextFile.Close 
end if  
Dim FileObject2  
Dim TextFile2  
Set FileObject2=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile2=FileObject2.OpenTextFile("upload/chat.txt")
Do While Not TextFile2.AtEndOfStream
Response.Write TextFile2.ReadLine&"<br>"
end if
Loop 
TextFile2.Close  


------解决方案--------------------------------------------------------
我也碰到相同的问题
------解决方案--------------------------------------------------------
Set TextFile= FileObject.OpenTextFile("upload/chat.txt",8,True)

这个写绝对路径看看，相对路径是iis的目录下了。