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

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

/KS_Cls/KS_CommonCls.asp，行133
 

这个 怎么办啊

修改下 缓存

  Public Function KSCMSInitialize()
     BITS_TO_A_BYTE = 8
  BYTES_TO_A_WORD = 4
  BITS_TO_A_WORD = 32
  SiteSN = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME1")), "/", ""), ".", "") '--缓存名称
  Reloadtime = 28800
  Version = "KesionCMS 商城版V3.2 Free"
  PointUnit= GetConfig("PointUnit")
  PointName= GetConfig("PointName")
  PointStr=PointUnit & PointName
  Call IsIPlock()      'IP访问限制
  End Function

[此贴子已经被作者于2007-4-12 16:35:21编辑过]

 虚拟主机啊

没办法啊