帮我看看这个小问题!

zay 2006-04-24 10:05:45
这是一个防刷新的计数器,怎么样调试呢/ (count.txt;1-8.jpg图片文件都有),我自己试老有问题,不知道问题在哪??
<%
countlong=8
'定义计数器位数
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
'判断用户是否进入主页,防止用户刷新或再次来到此页面时计数器再加1
session(in)=in
set out = cou.createtextfile(count,true,false)
application.lock
counter=counter+1
'计数器加1
out.writeline(counter)
application.unlock
out.close
'建立新文件count.txt并写入加1后计数器的值
end if
co=cstr(counter)
'把数字型变量转换成字符型
for i = l to countlong-len(co)
'得到前面0图片的个数
response.write
next
'完成计数器前面的0图片的添加
for 1 = l to len(co)
response.write
next
'从变量co的第i位开始读
%>
...全文
38 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zay 2006-04-24
报错如下:
麻烦你好好帮我看看,测试一下,谢谢哟!
-----------------------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 编译器错误 错误 '800a03f3'

缺少 '='

/data/Default.asp,行8

set out-cou.opentextfile(count,1,false,false)
-------^
  • 打赏
  • 举报
回复
jay_lishijie 2006-04-24
具体出现什么问题
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2006-04-24 10:05
社区公告
暂无公告