<%

Dim strClass

strClass = Trim(Request.Form("classname"))

If "" strClass then

Response.Write strClass & " "

If Not IsObjInstalled(strClass) then

Response.Write "没有安装，本主页提供站点不支持这个组件"

Else

Response.Write "安装了，本主页提供站点支持使用这个组件!"

End If

Response.Write "

" & vbCrLf

Else

%>

<%

Dim i

For i=0 to UBound(theInstalledObjects)

Response.Write "" & theInstalledObjects(i) & ""

If Not IsObjInstalled(theInstalledObjects(i)) Then

Response.Write "没有安装，本主页提供站点不支持这个组件"

Else

Response.Write "安装了，本主页提供站点支持使用这个组件!"

End If

Response.Write "" & vbCrLf

Next

%>

我提供这个工具是希望大家把自己的主页越办越好，能够充分利用

你的个人主页站点提供给你的组件做出技术水平更高的ASP主页出来。

好运。