我做了一个计数器，把数字写到一个.txt文件中，但在读这个文件时出了点问题，就是只能读出"?"或是"?8"后面那个数字是.txt中所存数字的第二个，想请教高手如何正确读出.txt中的数字，我的读数据代码如下：
set tcf=Server.CreateObject("Scripting.FileSystemObject" )
Sfile=Server.Mappath("counter.txt" )
set tc2=tcf.OpenTextFile(Sfile,1,False)
counter=0
do while not tc2.atendofstream
counter=counter+1
full=tc2.Read(counter)
response.write full
loop
tc2.close
其中counter.txt是存放数字的文本文件!

<%application.lock
set object3=Server.CreateObject("Scripting.FileSystemObject")
object3_path=server.mappath("counter3.txt")
set file3=object3.opentextfile(object3_path)
application("counter")=file3.readline
file3.close
application("counter")=application("counter")+1
counter=application("counter")
set file3=object3.createtextfile(object3_path)
file3.writeline counter
     file3.close
application unlock
x=cstr(counter)
for i=1 to len(x)
response.write"mid(x,i,1)"
next

%>

这样好么？