Microsoft VBScript 运行时错误 (0x800A0009)下标越界^^^^^^错误如何处理！~！~》？？

shuerllen 2005-11-03 12:15:29

/***********************************************
以下为具体信息，请各位高手指教！~！~！！~！~
************************************************/

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: 'Mem_GroupSetting'
/NBArticle/member/appear.asp, 第 14 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)

网页：
GET /NBArticle/member/appear.asp

时间：
2005年11月3日, 12:13:30

详细信息：
Microsoft 支持

...全文

450 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

shuerllen 2005-11-06

打赏
举报

谢了，各位！~
本人已解决！~……

cd520 2005-11-03

打赏
举报

不懂呀,偶超级菜

lisoon 2005-11-03

打赏
举报

代码呢？数组越界了。

jspadmin 2005-11-03

打赏
举报

数组越界，一般检查循环部分代码有没有问题
----------------------------------------------------------------------------------
欢迎光临我的小站（提供免费博客申请）：http://www.pifoo.com

monkeyhjl 2005-11-03

打赏
举报

你看看能不能输出EA_Pub.Mem_GroupSetting(13)呀？

shuerllen 2005-11-03

打赏
举报

/***************************
以下为代码！~！请指教……
***************************/

If Not EA_Pub.IsMember Then Call EA_Pub.ShowErrMsg(10,1)

If EA_Pub.Mem_GroupSetting(10)="0" Then Call EA_Pub.ShowErrMsg(14,1)

If CLng(EA_DBO.Get_MemberDayPostTotal(EA_Pub.Mem_Info(0))(0,0))>=CLng(EA_Pub.Mem_GroupSetting(13)) Then Call EA_Pub.ShowErrMsg(41,1)

If LCase(Request.QueryString ("action"))="save" Then Call Save_MemberAppear()

Dim ColumnList,ArticleInfo
Dim Title,Text,KeyWord,ColumnId,ImgPath,Source,SourceUrl,Summary
Dim i,Level,TempArray,TStr,Temp
Dim EA_Editor
Dim PostId

PostId=EA_Pub.SafeRequest(3,"postid",0,0,0)

Set EA_Editor=New cls_Editor

ArticleInfo=EA_DBO.Get_Article_Info(PostId,0)
If IsArray(ArticleInfo) Then
If CStr(ArticleInfo(7,0))<>EA_Pub.Mem_Info(0) Then Call EA_Pub.ShowErrMsg(23,1)

Title=ArticleInfo(3,0)
Text=ArticleInfo(5,0)
KeyWord=ArticleInfo(12,0)
ColumnId=ArticleInfo(0,0)
ImgPath=ArticleInfo(18,0)
Source=ArticleInfo(15,0)
SourceUrl=ArticleInfo(16,0)
Summary=ArticleInfo(4,0)
End If

EA_Editor.EditorType=EA_Pub.SysInfo(24)
EA_Editor.Value=Text
%>
<html>
<head>
<title>我要投稿</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="style.css" rel="stylesheet" type="text/css" />
<SCRIPT language=JavaScript>
function checkData() {
var f1 = document.a1;
var wm = "\n";
var noerror = 1;
var isAutoRemote=<%=EA_Pub.SysInfo(22)%>;
var iEditorType=<%=EA_Pub.SysInfo(24)%>;

var t1 = a1.Column;
if (t1.value == "" || t1.value == "0") {
wm += "请选择添加的栏目\r\n";
noerror = 0;
}

var t1 = a1.title;
if (t1.value == "" || t1.value == " ") {
wm += "请填写文章的标题\r\n";
noerror = 0;
}

if (iEditorType==0)
{
var sHTML = content1.getHTML();
if (sHTML == "" || sHTML == " ") {
wm += "请填写文章的正文\r\n";
noerror = 0;
}
}

if (noerror == 0) {
alert(wm);
}
else{
document.a1.Submit1.value ="正在提交，请稍候...";
document.a1.Submit1.disabled=true;

if (isAutoRemote==1 && iEditorType==0){
content1.remoteUpload("doSubmit()");
}
else{
doSubmit();
}
}
return false;
}

// 表单提交（当远程上传完成后，触发此函数）
function doSubmit(){
document.a1.submit();
}

function inputsource(Str){
var tmp

tmp=Str.split("==");

document.all.source.value=tmp[0];
document.all.sourceurl.value=tmp[1];

}

function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
obj.style.height=he+i+'px';
else
obj.style.height='80px';
}

function doChange(objText, objDrop){
if (!objDrop) return;
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option('上传图片'+[i+1], arr[i]);
}
objDrop.selectedIndex = nIndex;
}

function review_img(){
if (document.all.img.value!=''){
window.open(''+document.all.img.value+'','','');
}
else{
//alert(document.all.d_picture.value);
if (document.all.d_picture.selectedIndex>0){
window.open(''+document.all.d_picture.value+'','','');
}
}
}
</SCRIPT>
</head>
………………………………
……………………
………………