Microsoft VBScript 运行时错误 错误 800a0009

Microsoft VBScript 运行时错误 错误 ''''800a0009''''

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

/bbs/inc/Dv_ClsMain.asp，行661

代码如下：

=========================================================
'''' File: Dv_ClsMain.asp
'''' Version:7.0 sp3
'''' Date: 2004-6-30
'''' Script Written by dvbbs.net
''''=========================================================
'''' Copyright (C) 2003,2004 AspSky.Net. All rights reserved.
'''' Web: http://www.aspsky.net,http://www.dvbbs.net
'''' Email: eway@aspsky.net
''''=========================================================
''''是否商业版，非官方SQL版本请在此设置为0以及在Conn中设置论坛为SQL数据库，否则显示不正常
Const IsBuss=1
Const Dvbbs_Server_Url = "http://server.dvbbs.net/"
Class Cls_Forum
 Rem Const
 Public BoardID,SqlQueryNum,Forum_Info,Forum_Setting,Forum_user,Forum_Copyright,Forum_ads,Forum_ChanSetting,Forum_UploadSetting
 Public Forum_sn,Forum_Version,Stats,StyleName,ErrCodes,NowUseBBS,Cookiepath,ScriptFolder
 Public lanstr,mainhtml,mainsetting,sysmenu,mainpic
 Public MyUserInfo,UserToday,BoardJumpList,BoardList,CacheData,Maxonline
 Public UserGroupID,Lastlogin,GroupSetting,FoundUserPer,UserInfoCount,UserGroupParent,UserGroupParentID
 Public VipGroupUser,Vipuser,Boardmaster,Superboardmaster,Master,FoundIsChallenge,FoundUser
 Public ScriptName,MemberName,MemberWord,MemberClass,UserHidden,UserID,UserTrueIP,UserPermission
 Public sendmsgnum,sendmsgid,sendmsguser,Page_Admin,Forum_AdLoop3
 Public BadWords,rBadWord,Forum_emot,Forum_PostFace,Forum_UserFace,SkinID,Forum_PicUrl
 Private adcode_1,adcode_2,adcode_4,ScriptTrueUrl,Forum_CSS,Main_Sid,Nowstats,CssID
 Public Reloadtime,CacheName,savelog
 Private LocalCacheName,Cache_Data,IsTopTable,CookiesSid,BoardInfoData,ShowErrType
 Public Board_Setting,boarduser,LastPost,Board_Ads,Board_user,BoardType,IsGroupSetting,BoardMasterList,Board_Data,Sid,Boardreadme,BoardRootID,BoardParentID
 Private Is_Isapi_Rewrite,iArchiverUrl
 Public ModHtmlLinked,ArchiverUrl,ArchiverType
 Public Browser,version ,platform,IsSearch
 Public BoardXML,BoardNode,NodeUpdate
 Public IsUserPermissionOnly,IsUserPermissionAll
 Rem Sub
 Private Sub Class_Initialize()
  If Not Response.IsClientConnected Then Response.End
  IsUserPermissionOnly = 0
  IsUserPermissionAll = 0
  ShowErrType = 0 ''''错误信息显示模式
  savelog=0''''设置为1的时候会记录攻击或错误错信息。
  SqlQueryNum = 0
  Reloadtime=28800
  CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
  IsTopTable = 0
  Forum_sn = Replace(CacheName,"_","")
  VipGroupUser = False
  Vipuser = False:Boardmaster = False
  Superboardmaster = False:Master = False:FoundIsChallenge = False:FoundUser = False
  BoardID = Request("BoardID")
  If IsNumeric(BoardID) = 0 or BoardID = "" Then BoardID = 0
  BoardID = Clng(BoardID)
  MemberName = checkStr(Trim(Request.Cookies(Forum_sn)("username")))
  MemberWord = checkStr(Trim(Request.Cookies(Forum_sn)("password")))
  UserHidden = Trim(Request.Cookies(Forum_sn)("userhidden"))
  UserID = Trim(Request.Cookies(Forum_sn)("UserID"))
  If IsNumeric(UserHidden) = 0 or Userhidden = "" Then UserHidden = 2
  If IsNumeric(UserID) = 0 Or UserID="" Then UserID=0
  UserID = Clng(UserID)
  UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
  UserTrueIP = CheckStr(UserTrueIP)
  Dim Tmpstr
  Tmpstr = Request.ServerVariables("PATH_INFO")
  Tmpstr = Split(Tmpstr,"/")
  ScriptName = Lcase(Tmpstr(UBound(Tmpstr)))
  ScriptFolder = Lcase(Tmpstr(UBound(Tmpstr)-1)) & "/"
  MemberClass = checkStr(Request.Cookies(Forum_sn)("userclass"))
  Page_Admin=False
  If InStr(ScriptName,"showerr")>0 Or InStr(ScriptName,"login")>0 Or InStr(ScriptName,"admin_")>0 Then Page_Admin=True
  sendmsgnum=0:sendmsgid=0:sendmsguser=""
  ''''模拟HTML部分开始
  Is_Isapi_Rewrite = 0
  If Is_Isapi_Rewrite = 0 Then ModHtmlLinked = "?"
  ArchiverType = 0
  If InStr(ScriptName,"indexhtml.asp") > 0 Then
   iArchiverUrl = Lcase(Request.ServerVariables("QUERY_STRING"))
   If iArchiverUrl <> "" Then
    ArchiverUrl = iArchiverUrl
    iArchiverUrl = Split(iArchiverUrl,"_")
    If iArchiverUrl(0) = "list" And Ubound(iArchiverUrl) = 5 Then
     If IsNumeric(iArchiverUrl(1)) Then
      ArchiverType = 1
      BoardID = Clng(iArchiverUrl(1))
     End If
    End If
   End If
  End If
  ''''模拟HTML部分结束
  ''''Response.Write Server.MapPath("index.asp")
  ''''response.end
  NodeUpdate=False
 End Sub
 
 Private Sub class_terminate()
  If NodeUpdate Then
   Application.lock
   Set Application(CacheName&"_Boradlist")=BoardXML.cloneNode(True)
   Application.unlock
  End If
  Set BoardXML = Nothing
  If IsObject(Conn) Then Conn.Close : Set Conn = Nothing
  If IsObject(Plus_Conn) Then Plus_Conn.Close : Set Plus_Conn = Nothing
 End Sub
 Public Property Let Name(ByVal vNewValue)
  LocalCacheName = LCase(vNewValue)
  Cache_Data=Application(CacheName & "_" & LocalCacheName)
 End Property
 Public Property Let Value(ByVal vNewValue)
  If LocalCacheName<>"" Then
   ReDim Cache_Data(2)
   Cache_Data(0)=vNewValue
   Cache_Data(1)=Now()
   Application.Lock
   Application(CacheName & "_" & LocalCacheName) = Cache_Data
   Application.unLock
  Else
   Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."
  End If
 End Property
 Public Property Get Value()
  If LocalCacheName<>"" Then  
   If IsArray(Cache_Data) Then
    Value=Cache_Data(0)
   Else  
    ''''Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The Cache_Data("&LocalCacheName&") Is Empty."
   End If
  Else
   Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName."
  End If
 End Property
 Public Function ObjIsEmpty()
  ObjIsEmpty=True 
  If Not IsArray(Cache_Data) Then Exit Function
  If Not IsDate(Cache_Data(1)) Then Exit Function
  If DateDiff("s",CDate(Cache_Data(1)),Now()) < (60*Reloadtime) Then ObjIsEmpty=False  
 End Function
 Public Sub Checkcache()
  Name="Date"
  Dim iScriptName
  iScriptName = Request.ServerVariables("Script_Name")
  If InStr(Lcase(iScriptName),"admin/") > 0 Then
   iScriptName = "admin/index.asp"
  Else
   iScriptName = ""
  End If
  If ObjIsEmpty() Then
   If iScriptName <> "" Then
    Session("LoadCache")=iScriptName
    Response.Redirect "../LoadCache.asp"
   Else
    If Request.ServerVariables("QUERY_STRING")<>"" Then
     Session("LoadCache")=ScriptName&"?"&Request.ServerVariables("QUERY_STRING")
    Else
     Session("LoadCache")=ScriptName
    End If
    Response.Redirect "LoadCache.asp"
   End If
  Else
   If Cstr(value) <> Cstr(Date()) Then
    If iScriptName <> "" Then
  

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >> 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18