中科新闻网12岁生日对联四个字:这是怎么回事？该怎样改？谢谢！
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 19:03:44
用的是这些代码？可提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A003E)
输入超出了文件尾
/pages/count.asp, 第 14 行
这是怎么回事，该怎样修改呢？
还有就是：大家谁有网站计数器，送一个吧！
1、在网站目录下新建一个文本：txtcounter.txt 在文本填写1或其他识字
2、新建一asp文件：count.asp，加入以下代码：
<%
CountFile=Server.MapPath("txtcounter.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
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close
%>
3、在需要计数的网页加入：总访问<script language="JavaScript" src="count.asp">次
错误类型：
Microsoft VBScript 运行时错误 (0x800A003E)
输入超出了文件尾
/pages/count.asp, 第 14 行
这是怎么回事，该怎样修改呢？
还有就是：大家谁有网站计数器，送一个吧！
1、在网站目录下新建一个文本：txtcounter.txt 在文本填写1或其他识字
2、新建一asp文件：count.asp，加入以下代码：
<%
CountFile=Server.MapPath("txtcounter.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
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close
%>
3、在需要计数的网页加入：总访问<script language="JavaScript" src="count.asp">次
这是由于3721（雅虎助手）由于一些特殊原因导致丢失了文件引起的，如果需要该软件可以重新访问3721（雅虎助手）网站下载最新安装程序覆盖一边，如果不需要使用该软件可以通过系统添加删除软件进行卸载（如不能完成卸载可以使用“流氓软件清理助手”进行卸载）。