用
 set   myfileobject=server.CreateObject("Scripting.FileSystemObject")

谢谢了.我试试

能不能给这对象一两个简单的方法给我...写和读都不知道怎么写我.....

set   myfileobject=server.CreateObject("Scripting.FileSystemObject")   
  set   mytextfile=myfileobject.OpenTextFile(server.MapPath("test.txt"),2,true)   
  mytextfile.WriteLine("这是一个测试")   '写入
  mytextfile.ReadLine   '读出

<%
dim images(20),img
CountFile=Server.MapPath("counter/counter.txt")  ///文本文件
SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 
SET Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) 
counter=Out.ReadLine
Out.Close 
SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 
SET Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock 
counter=counter+1
Out.WriteLine(counter) 
Application.unlock 
Out.Close 
countlen=len(counter)
response.write "&nbsp;&nbsp;&nbsp;&nbsp;页面访问统计：&nbsp;&nbsp;"
for ic=1 to countlen
image=mid(counter,ic,1)
response.write "<img src='img/"&image&".gif'>"
 next
response.write"</img>&nbsp;&nbsp;&nbsp;次"
%>
     要求放文本文件的文件夹counter有读写权限,其中的img是0-9个数字的10个图片.