向大家请教一个问题，亟待解决！

咚锵 2003-07-14 12:25:01
Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 51]'

/bbs/admin_BoardSetting.asp，行107

是什么意思？我不知道该怎么做了。是动网论坛出现的错误！
...全文
91 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
咚锵 2003-07-14
  • 打赏
  • 举报
 回复
#############继续
<tr>
<td width="50%" class=Forumrow>
<U>发贴模式</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(4)" value=0 <%if cint(Board_Setting(4))=0 then%>checked<%end if%>>简单 
<input type=radio name="Board_Setting(4)" value=1 <%if cint(Board_Setting(4))=1 then%>checked<%end if%>>高级 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>HTML代码解析</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(5)" value=0 <%if cint(Board_Setting(5))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(5)" value=1 <%if cint(Board_Setting(5))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>UBB代码解析</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(6)" value=0 <%if cint(Board_Setting(6))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(6)" value=1 <%if cint(Board_Setting(6))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>贴图标签</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(7)" value=0 <%if cint(Board_Setting(7))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(7)" value=1 <%if cint(Board_Setting(7))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>表情标签</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(8)" value=0 <%if cint(Board_Setting(8))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(8)" value=1 <%if cint(Board_Setting(8))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>多媒体标签</U><BR>包括Flash,RM,AVI等</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(9)" value=0 <%if cint(Board_Setting(9))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(9)" value=1 <%if cint(Board_Setting(9))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否开放金钱贴</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(10)" value=0 <%if cint(Board_Setting(10))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(10)" value=1 <%if cint(Board_Setting(10))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否开放积分贴</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(11)" value=0 <%if cint(Board_Setting(11))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(11)" value=1 <%if cint(Board_Setting(11))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
咚锵 2003-07-14
  • 打赏
  • 举报
 回复
#############下面继续！
<input type=radio name="Board_Setting(40)" value=0 <%if cint(Board_Setting(40))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(40)" value=1 <%if cint(Board_Setting(40))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否显示下级论坛帖子</U><BR>如果有下级论坛则显示，会加重服务器负担</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(42)" value=0 <%if cint(Board_Setting(42))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(42)" value=1 <%if cint(Board_Setting(42))=1 then%>checked<%end if%>>开放 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>允许同时在线数</U><BR>不限制则设置为0</td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(18)" value="<%=Board_Setting(18)%>"> 人
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否起用定时开关论坛</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(21)" value=0 <%if cint(Board_Setting(21))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(21)" value=1 <%if cint(Board_Setting(21))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>论坛开放时间</U><BR>请确认您已经设置起用定时开关功能<BR>起止小时用符号“|”分开</td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(22)" value="<%=Board_Setting(22)%>">
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>帖子列表每页记录数</U></td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(26)" value="<%=Board_Setting(26)%>">
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>浏览帖子每页记录数</U></td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(27)" value="<%=Board_Setting(27)%>">
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>主版主可以增删副版主</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(33)" value=0 <%if cint(Board_Setting(33))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(33)" value=1 <%if cint(Board_Setting(33))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>主版主可以修改CSS设置</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(34)" value=0 <%if cint(Board_Setting(34))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(34)" value=1 <%if cint(Board_Setting(34))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>所有版主可以修改CSS设置</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(35)" value=0 <%if cint(Board_Setting(35))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(35)" value=1 <%if cint(Board_Setting(35))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否对论坛事件中的操作者保密</U></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(36)" value=0 <%if cint(Board_Setting(36))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(36)" value=1 <%if cint(Board_Setting(36))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>帖子列表默认读取数据量</U></td>
<td width="50%" class=Forumrow>
<select size="1" name="Board_Setting(37)">
<option value="1"<%if cint(Board_Setting(37))=0 then%> selected<%end if%>>全部显示帖子</option>
<option value="2"<%if cint(Board_Setting(37))=5 then%> selected<%end if%>>五天内帖子</option>
<option value="3"<%if cint(Board_Setting(37))=15 then%> selected<%end if%>>半月内帖子</option>
<option value="4"<%if cint(Board_Setting(37))=30 then%> selected<%end if%>>一月内帖子</option>
<option value="5"<%if cint(Board_Setting(37))=60 then%> selected<%end if%>>两月内帖子</option>
<option value="6"<%if cint(Board_Setting(37))=120 then%> selected<%end if%>>四月内帖子</option>
<option value="7"<%if cint(Board_Setting(37))=180 then%> selected<%end if%>>半年内帖子</option>
</select>
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>帖子列表默认排序方式</U></td>
<td width="50%" class=Forumrow>
<select size="1" name="Board_Setting(38)">
<option value="1"<%if cint(Board_Setting(38))=0 then%> selected<%end if%>>最后回复时间</option>
<option value="2"<%if cint(Board_Setting(38))=1 then%> selected<%end if%>>发贴时间</option>
<option value="3"<%if cint(Board_Setting(38))=2 then%> selected<%end if%>>标题</option>
<option value="4"<%if cint(Board_Setting(38))=3 then%> selected<%end if%>>发言人</option>
<option value="5"<%if cint(Board_Setting(38))=4 then%> selected<%end if%>>回复数</option>
<option value="6"<%if cint(Board_Setting(38))=5 then%> selected<%end if%>>浏览数</option>
</select>
</td>
</tr>
<tr>
<th height="25" colspan="2" align=left>帖子相关设置</th>
</tr>
咚锵 2003-07-14
  • 打赏
  • 举报
 回复
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=Forum_info(0)%>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if not master or instr(session("flag"),"11")=0 then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call dvbbs_error()
else
if request("action")="save" then
call saveconst()
else
call consted()
end if
conn.close
set conn=nothing
end if


sub consted()
if not isnumeric(request("editid")) then
Errmsg="<br><li>错误的版面信息"
call dvbbs_error()
exit sub
end if
set rs=conn.execute("select * from board where boardid="&request("editid"))
Board_Setting=split(rs("board_setting"),",")
%>
<form method="POST" action="admin_boardsetting.asp?action=save">
<input type=hidden value="<%=request("editid")%>" name="editid">
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th height="25" colspan="2" align=left>论坛高级设置 → <%=rs("boardtype")%></th>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>本论坛作为分类论坛不允许发贴</U><BR>如果已经有贴则显示或者您可以转移到别的论坛<BR>选择了该项后所有会员均不能在本版发贴/回帖等操作</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(43)" value=0 <%if cint(Board_Setting(43))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(43)" value=1 <%if cint(Board_Setting(43))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>论坛列表显示下属论坛风格</U><BR>当该论坛有下属论坛的时候生效</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(39)" value=0 <%if cint(Board_Setting(39))=0 then%>checked<%end if%>>列表 
<input type=radio name="Board_Setting(39)" value=1 <%if cint(Board_Setting(39))=1 then%>checked<%end if%>>简洁 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>论坛列表简洁风格一行版面数</U></td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(41)" value="<%=Board_Setting(41)%>"> 个
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>论坛风格</U><BR>该效果体现在显示帖子内容页面</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(24)" value=0 <%if cint(Board_Setting(24))=0 then%>checked<%end if%>>默认风格 
<input type=radio name="Board_Setting(24)" value=1 <%if cint(Board_Setting(24))=1 then%>checked<%end if%>>讨论区风格 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>讨论区风格预览字数</U></td>
<td width="50%" class=Forumrow>
<input type=text size=10 name="Board_Setting(25)" value="<%=Board_Setting(25)%>"> byte
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否锁定论坛</U><BR>锁定论坛只有管理员和该版面版主可进<BR></td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(0)" value=0 <%if cint(Board_Setting(0))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(0)" value=1 <%if cint(Board_Setting(0))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否隐藏论坛</U><BR>隐藏论坛只有管理员和该版面版主可见和进入<BR>如果用户组或论坛权限管理或用户权限管理中允许则用户可见和进入<BR>本限制对一级论坛不生效</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(1)" value=0 <%if cint(Board_Setting(1))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(1)" value=1 <%if cint(Board_Setting(1))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>是否认证论坛</U><BR>加密论坛只有管理员和该版面版主可见和进入<BR>用户可进入的设定在版面管理中<BR>只有认证用户可进入</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(2)" value=0 <%if cint(Board_Setting(2))=0 then%>checked<%end if%>>否 
<input type=radio name="Board_Setting(2)" value=1 <%if cint(Board_Setting(2))=1 then%>checked<%end if%>>是 
</td>
</tr>
<tr>
<td width="50%" class=Forumrow>
<U>帖子审核制度</U><BR>版主、管理员和开放权限用户可进行审核帖子<BR>版主、管理员和开放权限用户可直接发贴<BR>一般用户需审核后帖子方可见</td>
<td width="50%" class=Forumrow>
<input type=radio name="Board_Setting(3)" value=0 <%if cint(Board_Setting(3))=0 then%>checked<%end if%>>关闭 
<input type=radio name="Board_Setting(3)" value=1 <%if cint(Board_Setting(3))=1 then%>checked<%end if%>>开放 
</td>
</tr>
###################下面就是107行###################
<tr> <------------------这儿就是第107行啊，怎么能出错阿！
<td width="50%" class=Forumrow>
......
caoshangfei 2003-07-14
  • 打赏
  • 举报
 回复
107行贴出来啊。 估计是数组有问题。
Jaron 2003-07-14
  • 打赏
  • 举报
 回复
数组错误。清空 board 表试试。（如果不影响你的论坛数据的话)
BrightEye 2003-07-14
  • 打赏
  • 举报
 回复
number数组的下标越界,你看看程序.
beibeilong 2003-07-14
  • 打赏
  • 举报
 回复
很明显了，下标越界阿，自己看看admin_BoardSetting.asp里面是不是有什么问题
咚锵 2003-07-14
  • 打赏
  • 举报
 回复
还是不行啊
研究题目和研究问题.ppt
研究题目和研究问题.ppt
初中五月国旗下优秀讲话稿.docx
初中五月国旗下优秀讲话稿.docx
关于行管专业毕业论文-调查报告写作具体流程-论文.zip
关于行管专业毕业论文-调查报告写作具体流程-论文.zip
回望十年的新课程改革 (2).doc
回望十年的新课程改革 (2).doc
普通工作人员个人述职报告4篇.doc
普通工作人员个人述职报告4篇.doc
ASP

28,404

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章