xbgyb1961 163.com:asp 这段代码那里出问题了

来源：百度文库编辑：查人人中国名人网时间：2024/04/27 18:44:42

<%
dim fso
dim path
path=server.mappath("count_dat.txt")
set fso=server.CreateObject("scripting.filesystemobject")
sub application_start
set txt=fso.opentextfile(path)
counter=txt.readline
txt.close
application("counter")=counter
end sub
sub application_end
counter=application("counter")
Set txt1 = fso.CreateTextFile(path, True)
txt1.witeline(counter)
txt1.close
end sub
sub out_put
if not session("isconnected") then
application.Lock
application_start
application("counter")=application("counter")+1
application_end
application.UnLock
end if
session("isconnected")=true
response.Write application("counter")
end sub
call out_put()
%>

<%
dim fso
dim path
path=server.mappath("count_dat.txt")
set fso=server.CreateObject("scripting.filesystemobject")
sub application_start
set txt=fso.opentextfile(path)
counter=txt.readline
txt.close
application("counter")=counter
end sub
sub application_end
counter=application("counter")
Set txt1 = fso.CreateTextFile(path, True)
txt1.writeline(counter) '这句witeline改为************************writeline
txt1.close
end sub
sub out_put
if not session("isconnected") then
application.Lock
application_start
application("counter")=application("counter")+1
application_end
application.UnLock
end if
session("isconnected")=true
response.Write application("counter")
end sub
call out_put()
%>

还有, count_dat.txt里面先写个0

txt
txt没有声明为STREAM

asp 这段代码那里出问题了 ASP代码出问题了这段代码那里错了这段asp代码问题这段ASP代码是什么意思? asp查询代码出问题了求救请问各位，这段ASP代码，那儿错了呢？？高手看一下这段asp代码，哪里错了？这段ASP代码哪里错了,郁闷中..... 这段代码那里错了?(C语言)