无为中学2013年高考:这是怎么回事？该怎样改？谢谢！

来源：百度文库 编辑：神马品牌网 时间：2024/04/28 15:39:47
用的是这些代码？可提示

错误类型：
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">次

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">次
jiuokle

这是怎么回事？该怎样改？谢谢！ 这是怎么回事？该怎样改？谢谢！ 牙龈疼痛是怎么回事？该怎样预防及治疗？好痛！谢谢！ 血项高是怎么回事，该怎样治疗 胃泛酸是怎么回事？该怎样治疗？ 日语谢谢该怎样写？ 我该怎样结婚！！谢谢 教教我该怎样?谢谢!!!! 我不知道该怎样改最佳答案 我想改名字，程序该怎样走 ？？