ASP tool that checks whether a personal homepage site supports components

Source: Internet
Author: User
A very useful ASP code-checks whether the personal homepage provides site support components
There are many personal homepages that support ASP services to provide websites.
How can I know whether the site supports installation of some useful components, such as sending emails?
Jmail, cdo, or checks whether RDS is supported, and whether Index Server is supported.
Useful.
What you do is to upload the following detection file to your personal homepage and then run
It's okay, huh, huh, very simple, without any additional components.
Detection tool:
The CheckObj. asp code is as follows:
<% @ Language = "VBScript" %>
<% Option Explicit %>
<%
'This is some of the components that come with IIS4 (default)
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> tool used to check whether ISP supports ASP components </TITLE>
</HEAD>
<BODY>
Enter the ProgId or ClassId of the component you want to detect in the input box below.
If you do not enter the value, the default value is used.
<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>
<%
Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.