求助 Microsoft VBScript 运行时错误 '800a000d'

wubaotong 2010-07-05 06:11:04
从网上下了一个程序,运行时显示
Microsoft VBScript 运行时错误 '800a000d'

类型不匹配: 'eWebEditor_DecodeFilter'

\news\WebEditor\Include\DeCode.asp, line 21

decode.asp文件如下:希望高人来解答,谢谢了
<%
'================================================
' 显示解释函数,返回根据参数允许显示的格式字符串,具体调用方法可从后台管理获得
' 输入参数:
' s_Content : 要转换的数据字符串
' s_Filters : 要过滤掉的格式集,用逗号分隔多个
'================================================
Function eWebEditor_DeCode(s_Content, sFilters)
Dim a_Filter, i, s_Result, s_Filters
eWebEditor_Decode = s_Content
If IsNull(s_Content) Then Exit Function
If s_Content = "" Then Exit Function
s_Result = s_Content
s_Filters = sFilters

' 设置默认过滤
If sFilters = "" Then s_Filters = "script,object"

a_Filter = Split(s_Filters, ",")
For i = 0 To UBound(a_Filter)
s_Result = eWebEditor_DecodeFilter(s_Result, a_Filter(i))
Next
eWebEditor_DeCode = s_Result
End Function

%>

<Script Language=JavaScript RunAt=Server>
//===============================================
// 单个过滤
// 输入参数:
// s_Content : 要转换的数据字符串
// s_Filter : 要过滤掉的单个格式
//===============================================
function eWebEditor_DecodeFilter(html, filter){
switch(filter.toUpperCase()){
case "SCRIPT": // 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event,...
html = eWebEditor_execRE("</?script[^>]*>", "", html);
html = eWebEditor_execRE("(javascript|jscript|vbscript|vbs):", "$1:", html);
html = eWebEditor_execRE("on(mouse|exit|error|click|key)", "<I>on$1</I>", html);
html = eWebEditor_execRE("&#", "<I>&#</I>", html);
break;
case "TABLE": // 去除表格<table><tr><td><th>
html = eWebEditor_execRE("</?table[^>]*>", "", html);
html = eWebEditor_execRE("</?tr[^>]*>", "", html);
html = eWebEditor_execRE("</?th[^>]*>", "", html);
html = eWebEditor_execRE("</?td[^>]*>", "", html);
break;
case "CLASS": // 去除样式类class=""
html = eWebEditor_execRE("(<[^>]+) class=[^ |^>]*([^>]*>)", "$1 $2", html) ;
break;
case "STYLE": // 去除样式style=""
html = eWebEditor_execRE("(<[^>]+) style=\"[^\"]*\"([^>]*>)", "$1 $2", html);
break;
case "XML": // 去除XML<?xml>
html = eWebEditor_execRE("<\\?xml[^>]*>", "", html);
break;
case "NAMESPACE": // 去除命名空间<o:p></o:p>
html = eWebEditor_execRE("<\/?[a-z]+:[^>]*>", "", html);
break;
case "FONT": // 去除字体<font></font>
html = eWebEditor_execRE("</?font[^>]*>", "", html);
break;
case "MARQUEE": // 去除字幕<marquee></marquee>
html = eWebEditor_execRE("</?marquee[^>]*>", "", html);
break;
case "OBJECT": // 去除对象<object><param><embed></object>
html = eWebEditor_execRE("</?object[^>]*>", "", html);
html = eWebEditor_execRE("</?param[^>]*>", "", html);
html = eWebEditor_execRE("</?embed[^>]*>", "", html);
break;
default:
}
return html;
}

// ============================================
// 执行正则表达式替换
// ============================================
function eWebEditor_execRE(re, rp, content) {
oReg = new RegExp(re, "ig");
r = content.replace(oReg, rp);
return r;
}

</Script>

...全文
443 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chen_bruce 2010-07-06
是不是调用函数时,传入的参数为空啊?
回复
wubaotong 2010-07-06
我用的是xp系统呀,不是2003server
回复
明珠佩佩 2010-07-06
win2003在配置IIS时要进行简单的设置

否则无法正常运行。
回复
lzp4881 2010-07-06
在使用vbscript进行asp开发时,一些朋友会碰到以下类似的错误:
Microsoft VBscript 运行时错误 800a000d
类型不匹配: *******
/solweb/sdbottm_right.asp, line 80

错误原因:
该错误是因为在运行iis服务的windows 2003 server上安装了Internet Explorer 6 Service Pack 1 (KB832894)安全更新造成的。

解决方案:
要纠正该问题,请下载并安装Q831167.exe(http://www.microsoft.com/downloads/details.aspx?amp;amp;displaylang=en&familyid=254EB128-5053-48A7-8526-BD38215C74B2&displaylang=en),可以在Windows Server 2003机器上阅读微软知识库831167 http://support.microsoft.com/default.aspx?kbid=831167 了解一些相关信息。



文章整理:西部数码--专业提供域名注册、虚拟主机服务
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告