asp函数判断服务器是否安装了某种组件

对于使用虚拟主机的站长朋友，我们可能不知道该服务器是否安装了某种我们需要的组件。这时我们可以使用下面的代码来判断。

该函数功能:检查是否存在系统组件或组件是否安装成功 

<％ 
'参数:组件名
Function IsObjInstalled(strClassString) 
On Error Resume Next 
IsObjInstalled = False 
Err = 0 
Dim xTestObj 
Set xTestObj = Server.CreateObject(strClassString) 
If 0 = Err Then IsObjInstalled = True 
Set xTestObj = Nothing 
Err = 0 
End Function 
' 例子：
if IsObjInstalled("Persits.Jpeg")=true then
   response.write "支持"
else
   response.write "不支持"
end if
％>

如果函数返回true则说明服务器安装了这个组件，那么你就可以放心使用了

下面这个函数可以检测组件的版本：

'检查组件版本的子程序，入口参数：组件名称，返回值：组件版本号
sub VerObjTest(strObj)
 on error resume next 
  VerObjTest="" 
  set TestObj=server.CreateObject (strObj)
 If -2147221005 <> Err then  
  VerObjTest= TestObj.version
  if VerObjTest="" or isnull(VerObjTest) then VerObjTest=TestObj.about
 end if 
End sub

下面asp之家给大家列出一些常用组件的名称方便大家查询：

FSO 文本文件读写：Scripting.FileSystemObject

ADO 数据对象:adodb.connection

新云网站管理组件:NewCloudCMS.SiteMainObject

SA-FileUp 文件上传组件:SoftArtisans.FileUp

SoftArtisans 文件管理组件:SoftArtisans.FileManager

刘云峰的文件上传组件组件:LyfUpload.UploadFile

ASPUpload 文件上传组件:Persits.Upload.1 或者 Persits.Upload

Dimac 文件上传组件：w3.upload

Dimac JMail 邮件收发组件：JMail.SmtpMail

虚拟 SMTP 发信组件：CDONTS.NewMail

ASPemail 发信组件：Persits.MailSender

ASPmail 发信组件：SMTPsvg.Mailer

SmtpMail 发信组件：SmtpMail.SmtpMail.1

AspJpeg组件组件：Persits.Jpeg

Dimac 的图像读写组件组件：W3Image.Image