字体：大中小

asp探针

ASP　2008/5/28 8:52:02　　点击：不统计

关键词：asp探针，asp探针函数，asp判断服务器支持，asp判断服务器支持组件，如何判断服务器支持组件，asp服务器组件查看，asp探针代码，asp探针函数，服务器探针

Function IsObjInstalled(strClassString)

IsObjInstalled = False

Dim xTestObj

On Error Resume Next

Set xTestObj = Server.CreateObject(strClassString)

If Err Then

IsObjInstalled = False

Err.Clear

Else

IsObjInstalled = True

End If

Set xTestObj = Nothing

End Function
以上是一个判断函数
定义一个数组，并对数组赋予组件名称。

Dim theInstalledObjects(23)

theInstalledObjects(0) = "MSWC.AdRotator"

theInstalledObjects(1) = "MSWC.BrowserType"

theInstalledObjects(2) = "MSWC.NextLink"

theInstalledObjects(3) = "MSWC.Tools"

theInstalledObjects(4) = "MSWC.Status"

theInstalledObjects(5) = "MSWC.Counters"

theInstalledObjects(6) = "IISSample.ContentRotator"

theInstalledObjects(7) = "IISSample.PageCounter"

theInstalledObjects(8) = "MSWC.PermissionChecker"

theInstalledObjects(9) = G_FS_FSO

theInstalledObjects(10) = G_FS_CONN

theInstalledObjects(11) = "SoftArtisans.FileUp"

theInstalledObjects(12) = "SoftArtisans.FileManager"

theInstalledObjects(13) = "JMail.SMTPMail"

theInstalledObjects(14) = "CDONTS.NewMail"

theInstalledObjects(15) = "Persits.MailSender"

theInstalledObjects(16) = "LyfUpload.UploadFile"

theInstalledObjects(17) = "Persits.Upload.1"

theInstalledObjects(18) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage

theInstalledObjects(19) = "Persits.Jpeg" 'AspJpeg

theInstalledObjects(20) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21

theInstalledObjects(21) = "sjCatSoft.Thumbnail"

theInstalledObjects(22) = "Microsoft.XMLHTTP"

theInstalledObjects(23) = "Adodb.Stream"
N为数组数字

If Not IsObjInstalled(theInstalledObjects(N)) Then
response.write "支持该组件"
else
response.write"不支持该组件"

end if

关键词：asp探针，asp探针函数，asp判断服务器支持，asp判断服务器支持组件，如何判断服务器支持组件，asp服务器组件查看，asp探针代码，asp探针函数，服务器探针