『请大家帮忙看看』很棘手的一个问题寻求解答！！！-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2367 查看	5 回复

主题：『请大家帮忙看看』很棘手的一个问题寻求解答！！！ [收藏主题]

转到：

chenyue 当前离线

24 主题	0 广播	0 粉丝

级别:学前班

用户积分:391 分
登录次数:32 次
注册时间:2006/10/8
最后登录:2012/5/23

chenyue 发表于：2006/10/8 4:26:00 | 只看该作者查看该作者主题楼主

做考试题库就用#科汛在线考试系统!

我重新做系统以前还蛮好的用的KESION 后来做完系统后安装卡芭斯机杀毒用IIS 打开后台生成首页就变成：（注：包括我以前做过的5个网站后台全部出现这个问题！）

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

ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'

F:\鄂州大学科技处\鄂州大学科技处网\ADMIN\REFRESH\../../SysCls/KS_RefreshCls.asp，行 54

==========================================.jpg.gif

我打开他说的文件，如下：

  Function LoadTemplate(TemplateID)
   Dim TemplateRS, TemplateSql
   Dim FSO, FileObj, FileStreamObj, TemplateFname
   Set FSO = CreateObject(KSCMS.GetConfig("FsoObjName"))     ----------------------（传说中的54行）

   'TemplateID 取9999代表首页模板
   Select Case TemplateID
     Case 9999, 9998, 9997, 9996, 9995, 9994,9993,9992,9991,8999,8998,8997, 8996,4, 5
    TemplateSql = "Select TemplateFileName,TemplateContent From KS_Template Where TemplateType=" & TemplateID & " And IsDefault=1"
     Case Else
    TemplateSql = "Select TemplateFileName,TemplateContent From KS_Template Where TemplateID=" & TemplateID & ""
   End Select

[此贴子已经被作者于2006-10-8 4:27:53编辑过]

一分钟快速开通线上知识店铺