xlApplication.DisplayAlerts = false '不显示警告
xlApplication.Application.Visible = false '不显示界面
if IsObjInstalled(xlApplication) = False then
response.Write("<script>alert('创建失败!');history.back()</script>")
response.End()
end if
'功能:检查是否存在系统组件或组件是否安装成功
Function IsObjInstalled(strClassString) '判断对象是否可以创建的。
On Error Resume Next '当遇到错误继续执行
IsObjInstalled = False '设定函数返回值为False
Err = 0 '变量Err赋值为0
Dim xTestObj '定义xTestObj变量
Set xTestObj = Server.CreateObject(strClassString) '创建名为xTextObj的对象
If 0 = Err Then IsObjInstalled = True '如果错误为0那么该对象可以被创建,即函数IsObjInstalled返回
' true
Set xTestObj = Nothing '清空对象
Err = 0
End Function
'总体来说函数IsObjInstalled()传入了一个strClassString变量或对象实例名,通过Server.CreateObject()来创建这个对象,然后判断Err对象是否为0(=0时代表成功创建了对象,没有出现错误),如果Err不等于0则函数的返回值为False,即不执行If 0=Err Then这个判断。