注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

检测个人主页站点是否支持组件的ASP工具  

2011-06-03 21:42:20|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

一个很有用的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
%
HTML
HEAD
TITLE检测ISP是否支持ASP组件的工具/TITLE
/HEAD
BODY
在下面的输入框中输入你要检测的组件的ProgId或则ClassId.
如果你没有输入的话,将使用默认值。
FORM action=%=Request.ServerVariables("SCRIPT_NAME")% method=post
input type=text value="" name="classname" size=40
INPUT type=submit value=Submit
INPUT type=reset value=Reset
/FORM
%
Dim strClass
strClass = Trim(Request.Form("classname"))
If ""  strClass then
Response.Write strClass  " "
If Not IsObjInstalled(strClass) then
Response.Write "strong没有安装,本主页提供站点不支持这个组件/strong"
Else
Response.Write "安装了,本主页提供站点支持使用这个组件!"
End If
Response.Write "P"  vbCrLf
Else
%
TABLE BORDER=0
%
Dim i
For i=0 to UBound(theInstalledObjects)
Response.Write "TRTD"  theInstalledObjects(i)  "/TDTD"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "strong没有安装,本主页提供站点不支持这个组件/strong"
Else
Response.Write "安装了,本主页提供站点支持使用这个组件!"
End If
Response.Write "/TD/TR"  vbCrLf
Next
%
/TABLE
%
End If
%
/BODY
/HTML
我提供这个工具是希望大家把自己的主页越办越好,能够充分利用
你的个人主页站点提供给你的组件做出技术水平更高的ASP主页出来。
好运。

  评论这张
 
阅读(63)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017