潮汕风情网的专题栏目，使用到一个asp组件：Persits.Jpeg (ASPJpeg)。这是一个创建图片水印、缩略图的组件。由于不明原因，服务器这个组件不能使用：创建对象的时候提示：
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象
为了确认这个组件是否被服务器支持，同事要求我用阿江asp探针进行测试。测试结果显示支持！仔细检查测试的代码：
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If Err Then Exit Sub'此行原来没有。
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub
加入If Err 的判断后，检测出来的结果终于正常。至于为什么会出错，我猜测是64位操作系统的问题。这个组建的版本是1.8版的，估计不能支持64操作系统。
没有办法，看来只能不用这个组件了。
