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

汇总技巧

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

 
 
 

日志

 
 

检测ISP是否支持ASP组件的代码  

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

  下载LOFTER 我的照片书  |
 %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 
  评论这张
 
阅读(93)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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