1.<script language=VBScript src="counter.asp"></script>
2.counter.asp与default.asp放在同一目录下。
3.couter.asp全文如下:
<%
countlong=6
On Error Resume Next
count=server.mappath("count.txt")
set cou = server.createobject("scripting.filesystemobject")
set out=cou.opentextfile(count,1,false,false)
counter=out.readline
out.close
'以上打开文件count.txt,读取计数器的值.
if session("in")<>"in" then
session("in")="in"
set out = cou.createtextfile(count,true,false)
application.lock
counter=counter+1
out.writeline(counter)
application.unlock
out.close
end if
%>
<%=counter%>
但结果还是不对。显示错误是缺少描述。
另外再问一句,写ASP程序一定要在InterDev中吗,我可是直接在Frontpage中进行的。
谢谢大侠!
尝试一下把下面一段包装成为函数或过程
___________________________________________
countlong=6
On Error Resume Next
count=server.mappath("count.txt")
set cou = server.createobject("scripting.filesystemobject")
set out=cou.opentextfile(count,1,false,false)
counter=out.readline
out.close
'以上打开文件count.txt,读取计数器的值.
if session("in")<>"in" then
session("in")="in"
set out = cou.createtextfile(count,true,false)
application.lock
counter=counter+1
out.writeline(counter)
application.unlock
out.close
end if
______________________________________
然后<% response.write Cstr(counter) %>