判断是否支持FOS组件

<%

sub discreteness

%>

<table border=0 width="95%" cellspacing=1 cellpadding=3 class=a2 align=center>

<tr class=a1>

<td width="57%" height="25"> 组件名称</td><td width="41%" height="25">支持及版本</td>

</tr>

<%

Dim theInstalledObjects(17)

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) = "MSWC.PermissionChecker"

theInstalledObjects(7) = "ADODB.Stream"

theInstalledObjects(8) = "adodb.connection"

theInstalledObjects(9) = "Scripting.FileSystemObject"

theInstalledObjects(10) = "SoftArtisans.FileUp"

theInstalledObjects(11) = "SoftArtisans.FileManager"

theInstalledObjects(12) = "JMail.Message"

theInstalledObjects(13) = "CDONTS.NewMail"

theInstalledObjects(14) = "Persits.MailSender"

theInstalledObjects(15) = "LyfUpload.UploadFile"

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

theInstalledObjects(17) = "w3.upload"

For i=0 to 17

Response.Write "<TR class=a3><TD> " & theInstalledObjects(i) & "<font color=888888> "

select case i

case 8

Response.Write "(ACCESS 数据库)"

case 9

Response.Write "(FSO 文本文件读写)"

case 10

Response.Write "(SA-FileUp 文件上传)"

case 11

Response.Write "(SA-FM 文件管理)"

case 12

Response.Write "(JMail 邮件发送)"

case 13

Response.Write "(WIN虚拟SMTP 发信)"

case 14

Response.Write "(ASPEmail 邮件发送)"

case 15

Response.Write "(LyfUpload 文件上传)"

case 16

Response.Write "(ASPUpload 文件上传)"

case 17

Response.Write "(w3 upload 文件上传)"

end select

Response.Write "</font></td><td height=25>"

If Not IsObjInstalled(theInstalledObjects(i)) Then

Response.Write "<font color=red><b>×</b></font>"

Else

Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""

End If

Response.Write "</td></TR>" & vbCrLf

Next

%>

</table>

<%

end sub""""""""""""""""""""""""""""""

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

""""""""""""""""""""""""""""""

Function getver(Classstr)

On Error Resume Next

getver=""

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(Classstr)

If 0 = Err Then getver=xtestobj.version

Set xTestObj = Nothing

Err = 0

End Function

discreteness

%>