加载 DLL 时出错: 'RegExp',求救!

付剑在哪 2004-07-18 10:11:59
错误类型:
Microsoft VBScript 运行时错误 (0x800A0030)
/x/inc/ubbcode.asp, 第 107 行
错误原因:加载 DLL 时出错: 'RegExp'

==========ubbcode.asp================
Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp 《----
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"&#106avascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"&#106script:")
re.Pattern="(js:)"
t=re.Replace(t,"&#106s:")
're.Pattern="(value)"
't=re.Replace(t,"&#118alue")
re.Pattern="(about:)"
t=re.Replace(t,"about:")
re.Pattern="(file:)"
t=re.Replace(t,"file:")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents&#46cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"&#118bscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"&#111n$2")
're.Pattern="(&#)"
't=re.Replace(t,"&#")
FilterJS=t
set re=nothing
end if
End Function
...全文
155 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
nchen123 2004-07-20
  • 打赏
  • 举报
回复
应该是你机器的脚本引擎出问题了, 重新安装试试
漫步彩云之端 2004-07-20
  • 打赏
  • 举报
回复
好像正则表达式需要在服务器商安装一个脚本支持文件才行,那个文件我帮你找找,你联系我的QQ,我传给你,6683304
nchen123 2004-07-20
  • 打赏
  • 举报
回复
ie 不是从 6.0 才开始支持 RegExp 对象的
yangxi0002 2004-07-20
  • 打赏
  • 举报
回复
我也有同样的问题,不过我的IE已经是6.0.2800了
孟子E章 2004-07-20
  • 打赏
  • 举报
回复
是指服务器端ie版本太低,安装ie6
孟子E章 2004-07-20
  • 打赏
  • 举报
回复
ie版本太低,安装ie6
zorou_fatal 2004-07-20
  • 打赏
  • 举报
回复
同意老狐
付剑在哪 2004-07-19
  • 打赏
  • 举报
回复
大家帮帮忙呀!

28,391

社区成员

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

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