Microsoft VBScript 运行时错误代码大全注释
1. Microsoft VBScript语法错误(0x800A03E9)--&内存不足
2. Microsoft VBScript语法错误(0x800A03EA)--&语法错误
3. Microsoft VBScript语法错误(0x800A03EB)--&缺少 ':'
4. Microsoft VBScript语法错误(0x800A03ED)--&缺少 '('
5. Microsoft VBScript语法错误(0x800A03EE)--&缺少 ')'
6. Microsoft VBScript语法错误(0x800A03EF)--&缺少 ']'
7. Microsoft VBScript语法错误(0x800A03F2)--&缺少标识符
8. Microsoft VBScript语法错误(0x800A03F3)--&缺少 '='
9. Microsoft VBScript语法错误(0x800A03F4)--&缺少 'If'
10. Microsoft VBScript语法错误(0x800A03F5)--&缺少 'To'
11. Microsoft VBScript语法错误(0x800A03F6)--&缺少 'End'
12. Microsoft VBScript语法错误(0x800A03F7)--&缺少 'Function'
13. Microsoft VBScript语法错误(0x800A03F8)--&缺少 'Sub'
14. Microsoft VBScript语法错误(0x800A03F9)--&缺少 'Then'
15. Microsoft VBScript语法错误(0x800A03FA)--&缺少 'Wend'
16. Microsoft VBScript语法错误(0x800A03FB)--&缺少 'Loop'
17. Microsoft VBScript语法错误(0x800A03FC)--&缺少 'Next'
18. Microsoft VBScript语法错误(0x800A03FD)--&缺少 'Case'
20. Microsoft VBScript语法错误(0x800A03FF)--&缺少表达式
21. Microsoft VBScript语法错误(0x800A0400)--&缺少语句
22. Microsoft VBScript语法错误(0x800A0401)--&语句未结束
23. Microsoft VBScript语法错误(0x800A0402)--&缺少整型常数
24. Microsoft VBScript语法错误(0x800A0403)--&缺少 'While' 或 'Until'
25. Microsoft VBScript语法错误(0x800A0404)--&缺少 'While', 'Until' 或语句未结束
26. Microsoft VBScript语法错误(0x800A0405)--&缺少 'With'
27. Microsoft VBScript语法错误(0x800A0406)--&标识符过长
28. Microsoft VBScript语法错误(0x800A0407)--&无效数字
29. Microsoft VBScript语法错误(0x800A0408)--&无效字符
30. Microsoft VBScript语法错误(0x800A0409)--&未结束的字符串常量
31. Microsoft VBScript语法错误(0x800A040A)--&注释未结束
32. Microsoft VBScript语法错误(0x800A040D)--&无效使用 'Me' 关键字
33. Microsoft VBScript语法错误(0x800A040E)--&'loop' 语句缺少 'do'
' 语句
35. Microsoft VBScript语法错误(0x800A0410)--&循环控制变量 'for' 无效
36. Microsoft VBScript语法错误(0x800A0411)--&名称重定义
37. Microsoft VBScript语法错误(0x800A0412)--&必须是行中的第一个语句
38. Microsoft VBScript语法错误(0x800A0413)--&不能为 non-ByVal 参数赋值
39. Microsoft VBScript语法错误(0x800A0414)--&调用子程序时不能使用括号
40. Microsoft VBScript语法错误(0x800A0415)--&缺少文字常数
41. Microsoft VBScript语法错误(0x800A0416)--&缺少 'In'
42. Microsoft VBScript语法错误(0x800A0417)--&缺少 'Class'
43. Microsoft VBScript语法错误(0x800A0418)--&必须在一个类的内部定义
44. Microsoft VBScript语法错误(0x800A0419)--&在属性声明中缺少 Let , Set 或 Get
45. Microsoft VBScript语法错误(0x800A041A)--&缺少 'Property'
46. Microsoft VBScript语法错误(0x800A041B)--&在所有属性的规范中，变量的数目必须一致
47. Microsoft VBScript语法错误(0x800A041C)--&在一个类中不允许有多个缺省的属性/方法
48. Microsoft VBScript语法错误(0x800A041D)--&类的初始化或终止程序没有参数
49. Microsoft VBScript语法错误(0x800A041E)--&属性的 set 或 let 必须至少有一个参数
50. Microsoft VBScript语法错误(0x800A041F)--&错误的 'Next'
51. Microsoft VBScript语法错误(0x800A0420)--&'Default' 只能在 'Property' , 'Function' 或 'Sub' 中指定
52. Microsoft VBScript语法错误(0x800A0421)--&指定 'Default' 时必须同时指定 'Public' &)
53. Microsoft VBScript语法错误(0x800A0422)--&只能在 Property Get 中指定 'Default'
54. Microsoft VBScript 运行时错误(0x800A0005)--&无效的过程调用或参数
55. Microsoft VBScript 运行时错误(0x800A0006)--&溢出
56. Microsoft VBScript 运行时错误(0x800A0007)--&内存不足
57. Microsoft VBScript 运行时错误(0x800A0009)--&下标越界Microsoft VBScript 运行时错误 (0x800A0009)下标越界: '[number: 2]' /aspechk/product.asp, 第 37 行_百度知道
Microsoft VBScript 运行时错误 (0x800A0009)下标越界: '[number: 2]' /aspechk/product.asp, 第 37 行
&;img/;
width=& cellpadding=&&&&*&%=trim(pic(4))%&&&lt.w3;&& cellpadding=&&200&center&td&td&'middle& src=&quot.src='0&400&center&quot.src=');-/&DTD XHTML 1;&&td& style=&0&quot.src=&#39.src='Content-Type&)%&480&/
&lt!--#include file=&
&td width=&%@LANGUAGE=&img onload=&; onerror=&&quot,&img/
&table&body&;/
&& align=&&)set rs=table width=&&#47.src='text/img/&
&lt: hand&&&
&tr&50&'&lt.rImage.org/TR/xhtml1/DTD/xhtml1-)&
&td width=&;)sql=& cellspacing=&0&&lt!DOCTYPE html PUBLIC &/ width=&&img onMouseOver=&&& onClick=&rImage&*&%=trim(pic(2))%&gt.rI&#47.jpg&#39.jpg');/&%=trim(pic(3))%&img&#47.open sql.jpg'tr&gt.dtd&meta http-equiv=&&;%=pic(1)%& border=&&img onMouseOver=&480&
&VBSCRIPT&&tr& CODEPAGE=&--&gt.jpg'&html&&50&
height=&%=trim(pic(4))%& onerror=&;td&& border=&,'//;td&
&tr&gt.src='&
&&gt,3;/--&
height=&select * from products where id=&&border.jpg&#39,'
&td&cur_pic_id='&this.recordset&50&/td width=&&%pic=split(rs(&
&1000&80&quot.src='0& &W3C/table width=& style=&&center&tr&&
&table&gt.CreateObject(&'/
&&td&/&&1200&quot: 1px solid #CCCCCC;
&tr&gt: 1px solid #CCCCCC; width=&%=trim(pic(1))%&img/&gt,3%& &#47.asp&cur_pic_id=' border=&936&quot.w3;%pic=split(rs(&head&
&%=trim(pic(4))%& content=&
& width=&pic& onerror=&& style=&quot: 1px solid #CCCCCC;td&&/
&td&%=trim(pic(1))%&tr&&&lt.src='
&//%=trim(pic(3))%&gt.src='&table&'tr&cur_pic_id='0&quot://td&&pic&&50&//&#47.jpg'
&td&' width=&'tr&
&%=trim(pic(5))%&500&&'tr&50& cellspacing=&&
&&&td&& src=&quot://&tr&head&gt.src='&0&&&0&50&&& src=&id&%&50&&&/&tr&cur_pic_id='body&cur_pic_id='td&/img/%=trim(pic(1))%&; border=&quot.org/TR/xhtml1/DTD/xhtml1-&EN& onerror=&quot.src='&tr&&&lt.rI30&' charset=gb2312&;cur_pic_id=' valign=&
&&.rImage:%=trim(pic(1))%&td align=&this.asp》&/onMouseOver=& cellpadding=&
height=&noimage,table width=& border=&table width=&quot.open(cur_pic_ style=&img style=&
height=&table&&/
&lt!--#include file=&& cellspacing=&quot.rI
&&tr&&p& valign=& valign=&%=trim(pic(3))%&/ onerror=&&quot.src=';;&/
& src=&; src=&&quot.rI1200&'document.asp&quot.0 Transitional/;&/td&td&img onMouseOver=&'0&td&
&0&0&p&&;tr&td width=& onerror=&50&conn/%=trim(pic(1))%& src=&&&/50&/ style=&&lt.jpg'&&tr&'&id&&0&%=trim(pic(5))%&gt: 1px solid #CCCCCC;/%=trim(pic(2))%& align=&'%=trim(pic(2))%&td height=&top&img/&& cellpadding=&&/%=trim(pic(5))%&0&& width=& cellspacing=&quot《product: 1px solid #CCCCCC;&&CURSOR;html&cur_pic_id='img onMouseOver=&& name=&&
&'%id=Request(&quot
提问者采纳
%=trim(pic(4))%&'%=trim(pic(2))%&&'50&quot.rI%=trim(pic(5))%& width=&img/cur_pic_id='&&'50&img onMouseOver=&quot.src='&#39: 1px solid #CCCCCC;; onerror=& width=&'
height=&%=trim(pic(i))%&%=trim(pic(5))%&'this.rI&&%=trim(pic(1))%&&'&;cur_pic_id='&: 1px solid #CCCCCC;&.jpg'&lt.src='%=trim(pic(2))%& onerror=& onerror=&); src=&p&
height=&&& width=&quot,&%=trim(pic(1))%&%=trim(pic(1))%&);%pic=split(rs(&
&lt.src='
height=& src=&pic=split(rs(& src=&quot.src='&& style=&);'50&%=trim(pic(3))%&&quot,&quot，pic(1).src='
&&&& =========================================================================改成=========================================================================&)
while i&&&%pic=split(rs(&onMouseOver=&%=trim(pic(4))%&gt.src='&
&p&pic&*&img/&
& onerror=& src=&/& width=&&&; style=&&
height=&)这个是用*分割的数组，应该只有pic(0);cur_pic_id=&#39.src=' width=&;&50& style=&50&&lt.rI,&&*&quot: 1px solid #CCCCCC;&&img onMouseOver=&
&%=trim(pic(i))%& style=&：把&&cur_pic_id='&quot.src='50&'&
&p&gt.jpg'
&&lt.rI50&img onMouseOver=&quot.rI%=trim(pic(2))%&gt: 1px solid #CCCCCC;50&&&#39.jpg'onMouseOver=&&lt: 1px solid #CCCCCC;&#39.src='img/
height=&' UBound(pic)
%&'%=trim(pic(1))%&gt.src=&#39.src=' style=&&&lt，是这里出的问题rs(&;)里的*只有3个; style=&pic&quot.rI';img&#47.rImage，所以到pic(3)就越界了;cur_pic_id='50& onerror=&quot.src='%=trim(pic(i))%&*&&cur_pic_id='img/img onload=&%=trim(pic(5))%&document，pic(2)解决方法; onerror=&%=trim(pic(4))%& width=&&lt.rImage.jpg'&;&;&&quot，数组是从0开始的;&
&&&%=trim(pic(i))%&img&#47: 1px solid #CCCCCC.src='
&)%&pic&img onMouseOver=&50&%=trim(pic(1))%&
&lt.src='& src=&&% i=i+1 wend %&gt.jpg'cur_pic_id=''p&;50&%=trim(pic(i))%&;&pic&&%=trim(pic(3))%&&&img onload=&&this.jpg'/;50& src=&%=trim(pic(3))%&'cur_pic_id=&#39
其他类似问题
为您推荐：
下标越界的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁错误类型： Microsoft VBScript 运行时错误 (0x800A0009) 下标越界: '[number: 2]'_百度知道
错误类型： Microsoft VBScript 运行时错误 (0x800A0009) 下标越界: '[number: 2]'
&&';--&string&& else
Dim FormFieldArray. (&quot:FormID = VerificationUrlParam(&;
.asp&response.FormTable from Sp_FormField F;&gt,&quot.&#47.asp&&quot,Sp_Form M where F.Write &quot,&quot: 2]&#39.FormID=M,2)
if action&lt.;--&自定义字段组合sql
&#39,&int&form.asp&:action = VerificationUrlParam(&quot,&增加信息
action&quot.; and action=&&quot,F.execute(sql)
';Content-Type&meta http-equiv=& then
vsql = vsql &&quot.Config,& charset=gb2312&quot, 第 16 行全部代码如下.&'html:vsql=&'0&' if FormID=0 then
select F,i)
if FormFieldArray(1.fieldname：&&&:FormFieldArray = Con!&quot!--#include file=&;--&
if vsql&Sp_inc&#47,2)
if fsql&lt,i))&&&FormID&&quot,i))
tempvalue = &
'&quot!--#include file=&'FormID&&FormFieldArray(0:sql=&&tempvalue
vsql = tempvalue
'&F;int&&FormTable&&[ content=&) Dim FormID;'plugIn&#47错误类型;
for i=0 to ubound(FormFieldA&Sp_inc/&#39:fsql=&quot.ReplaceFormText(&&quot.Write sql
'&#39：Microsoft VBScript 运行时错误 (0x800A0009)下标越界;提交表单成功;&&&FormFieldArray(0; then
fsql = fsql &&quot,&if isobject(FormFieldArray) then
FormTable = FormFieldArray(0;;class_F&fsql&&quot,i)
fsql = FormFieldArray(0;&&quot: '&'模型解释出现错误!--#include file=&&vsql&&quot.text&#47.ID and F;&#39,i)=&&quot.FormID=&.ReplaceFormText(&&quot.End()
% Dim action./txt_&/&自定义字段组合sql
&#39,M:tempvalue = &S)&)
') values (&; then
tempvalue = F.QueryData(&save&insert into &)
Dim FormTable
end if '&FormFieldArray(0;end if %&txt_&response
Redim CD(-1,-1) 这句错了，没有这样用法的如果你想清除CD数组的内容，可以Erase CD
其他类似问题
为您推荐：
下标越界的相关知识
其他1条回答
建议你改成MAX试试下标越界的产生主要是你定义的数组的长度比要写入的长度小，应该就能解决问题，
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Microsoft VBScript_运行时错误代码大全_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Microsoft VBScript_运行时错误代码大全
上传于||文档简介
&&M​i​c​r​o​s​o​f​t​ ​V​B​S​c​r​i​p​t​_​运​行​时​错​误​代​码​大​全
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩9页未读，继续阅读
你可能喜欢Microsoft VBScript 运行时错误 错误 &800a0009& 下标越界: &[number: 1]&&br/&怎么解决？
Microsoft VBScript 运行时错误 错误 &800a0009& 下标越界: &[number: 1]&怎么解决？
补充：y(0)="'"&y(0)&"'":pn=split(y(1),"#"):t=array():q=array():it=0&&&for j=0 to UBound(pn)&&&&p=Instr(pn(j),"$")&&&&if p&0 then&&&&&Redim Preserve t(it):Redim Preserve q(it)&&&&&t(it)=pn(j):q(it)=mid(pn(j),1,p-1)&&&&&it=it+1&&&&end if
第一行出错
不区分大小写匿名
相关知识等待您来回答
网页制作领域专家
& &SOGOU - 京ICP证050897号