<%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 "<TR><TD>" & theInstalledObjects(i) & "</TD><TD>"
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>
检测ISP是否支持ASP组件的代码
时间： 2024-08-27 05:48:00
检测ISP是否支持ASP组件的代码的相关文章
asp 检测空间是否支持aspjpeg组件并生成缩略图
'函数名:isobjinstalled '作 用:检查组件是否已经安装 '参 数:strclassstring ----组件名 '返回值:true ----已经安装 ' false ----没有安装 function isobjinstalled(strclassstring) on error resume next isobjinstalled = false err = 0 dim xtestobj set xtestobj =
js检测用户浏览器支持flash版本号实现代码
代码如下 复制代码 (function(){ ver has=0, ver=0; try{ has=new ActiveXObject('ShockwaveFlash.ShockwaveFlash'); if(has) { ver = +(has.GetVariable("$version").match(/d+/)); } } catch(e){ has=navigator.plugins["Shockwave Flash"]; if(has) { ver =
测试空间是否支持XMLHTTP组件
XMLHTTP组件的应用范围很广,也很实用,例如获取网页源代码等等,所以,如果您需要用到XMLHTTP服务,那么必须在购买空间前确认服务器是否支持该组件. 测试方法 把代码保存为asp文件,上传到空间,直接访问,即可检测. <% On Error Resume Next Response.Write "<h3>服务XmlHttp组件支持情况:</h3>" oxml=array("Msxml2.ServerXMLHTTP.6.0",&qu
Microsoft的 ASP 组件指南
microsoft 作者:J.D. MeierMicrosoft Corporation2000 年 1 月 24 日 简介 组件.有人喜欢它们,有人则害怕.害怕组件的人通常都能给您讲一个骇人的经历.让我们面对它:当开始在 ASP 下使用组件时,并不知道什么能伤害您.如果您摔倒了,那么站起来,自己拍干净,然后接着来.在这篇文章中,我将提供从实践中获得的一般指南,帮助您建立更好的基于组件的 ASP 解决方案. 为什么使用组件? 在我开始讨论组件指南之前,值得考虑将组件添加到 ASP 应用程序的价值
ASP组件（二）
在上一讲中,我们学习了如何创建组件,使用了浏览器能力组件.File Access组件.AD Rotator组件和Content Linking组件,也知道了Server对象的CreateObject方法.MapPath方法和HTMLEncode方法.本讲将继续组件的学习. 一. Email组件:NTS Collaboration Data Objects我们在网上经常看到,许多站点均提供在线发信功能(即用表单实现Question提交,Support或信息反馈等等)或者给访问者发送确认信息.这一功
ASP 组件|无组件上传
ASP 组件|无组件上传 最后更新:2006-08-25 21:22 纯Javascript打造的ASP上传组件,支持多文件上传.进度条.数据库存放和文件系统存放 组件下载地址(为方便版本同步,未在此处上传附件): http://www.zope.org/Members/Rimifon/FyUpload.sct(右键下载) 相关说明:有组件上传方式请右键"FyUpload.sct"注册,然后可以使用: Server.CreateObject("Rimifon.Upload&q
手把手教你使用VB来创建ASP组件
创建 一.什么是组件 组件是包含可以更改的数据形式的代码的对象,是可用代码的封装,这些代码可以用来执行应用程序的一些功能,如从数据库中检索某些信息等功能.现在经常听人说起COM,其使它的意思是组件对象模型(Component Object Model),是由微软开发的可以在Windows平台上执行的对象模型,COM定义了组件之间的交互能力.为COM编写的组件可以重复使用,并不依赖于编写所用的语言,比如说,一个组件可以用VB,VC++甚至是Java来编写,总之,只要遵守COM规范就可以了. 二.为
[ASP-Last-Code]显示ASP页面的代码
显示|页面 <%'*************************************************************'在支持FSO的情况下,可以显示本站内的所有ASP页面的代码'适用于代码演示时在效果页面上直接显示该页面的代码而不用再对代码制作专门的页面'使用方法:ViewSource.asp?file=要显示的文件名'如:ViewSource.asp?file=x.asp'modify By : Babyt'*******************************
教你让IIS6.0支持ASP方法
iis ASP脚本在目前的网页开发方面使用的很广泛,但Windows 2003中自带的IIS 6.0默认情况下不支持ASP脚本,但可以运行aspx程序,这给运行和调试ASP代码带了不便.其实,在Windows 2003的Internet信息管理器中稍加调整,就可以解决这一问题. 点击"开始/程序/管理工具/Internet信息管理器",在IIS管理器窗口中,在窗口左侧面板选中"Web 服务扩展",在窗口右侧的属性列表中点击"Active S