UC知道asp图形计数器遇到的问题。
来源：百度知道 编辑：UC知道 时间：2024/06/01 06:43:41
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/leongyang web/imgcounter.asp，行4
CountFile=Server.MapPath("imgcounter.txt")
^
这是我遇到的错误。前面那个倒着的三角在我的代码里并没有啊。
我的代码是这样的。
<% @language="VBScript"%>
<%
dim images(20)
CountFile=Server.MapPath("imgcounter.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
countlen=len(counter)
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/leongyang web/imgcounter.asp，行4
CountFile=Server.MapPath("imgcounter.txt")
^
这是我遇到的错误。前面那个倒着的三角在我的代码里并没有啊。
我的代码是这样的。
<% @language="VBScript"%>
<%
dim images(20)
CountFile=Server.MapPath("imgcounter.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
countlen=len(counter)
CountFile=Server.MapPath(".") &“/imgcounter.txt”
缺少 'End' 那三行不是说你的程序有问题
是微软的BUG
如果是WIN2000操作系统，检查C:\WINNT\Help\iisHelp\common\500-100.asp
微软用这个ASP文件显示你的程序里的问题描述
在这个文件165行左右，有一句
If objASPError.Description > "" Then Response.Write Server.HTMLEncode(objASPError.Description) & "<br>"
微软不小心在THEN后面换行了，把这两行并成一行就可以了
VB的if语句如果if...then..在1行内不需要end if
你的问题MS在这句
CountFile=Server.MapPath("imgcounter.txt")