-
您的位置:首页 → 精文荟萃 → 软件资讯 → 检测个人主页站点是否支持组件的ASP工具
检测个人主页站点是否支持组件的ASP工具
时间:2004/10/7 19:07:00来源:本站整理作者:蓝点我要评论(0)
-
一个很有用的ASP代码---检测个人主页提供站点是否支持组件
现在有很多支持ASP服务的个人主页提供站点,但是困惑大家的一点就是
我怎么才能够知道该站点是否支持某些很有用的组件是否安装,例如一些发邮件
的组件jmail,cdo,或则检测是否支持RDS,是否支持Index Server等等,真的很
有用耶。
你所做的是只需要把下面这个检测文件上传到你的个人主页站点上,然后运行
它就可以了,呵呵,很简单的,不用任何附加的组件哦。
检测工具:
CheckObj.asp代码如下:
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
' 这是一些随IIS4附带的一些组件(默认的)
Dim theInstalledObjects(8)
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"
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
%>
检测ISP是否支持ASP组件的工具
在下面的输入框中输入你要检测的组件的ProgId或则ClassId.
如果你没有输入的话,将使用默认值。
<%
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
%>
<%
End If
%>
我提供这个工具是希望大家把自己的主页越办越好,能够充分利用
你的个人主页站点提供给你的组件做出技术水平更高的ASP主页出来。
好运。
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3
最新文章
微信3.6.0测试版更新了微信支付漏洞会造成哪
360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗
人气排行
xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本
查看所有0条评论>>