Creati una pagina con estensione asp con questo codice. Caricala sul server e richiamala.Vedrai quali componenti sono installati.
codice:
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(10) ' modified by ninjaweb.it
Dim theComponentName(10)
Dim theotherComponent(2)
Dim theotherComponentName(2)
' the components
theComponent(0) = "SMTPsvg.Mailer"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "CDONTS.NewMail"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "dkQmail.Qmail"
theComponent(6) = "Geocel.Mailer"
theComponent(7) = "iismail.iismail.1"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10)= "CDO.Message" ' modified by ninjaweb.it
'the other components
theotherComponent(0) = "ASPMail.ASPMailCtrl.1"
theotherComponent(1) = "ocxQmail.ocxQmailCtrl.1"
theotherComponent(2) = "SoftArtisans.SMTPMail"
' the name of the components
theComponentName(0) = "ASPMail"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPQMail"
theComponentName(3) = "CDONTS"
theComponentName(4) = "Chili!Mail"
theComponentName(5) = "dkQMail"
theComponentName(6) = "GeoCel"
theComponentName(7) = "IISMail"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10)= "CDOSYS" ' modified by ninjaweb.it
'the name of the other components
theotherComponentName(0) = "OCXMail"
theotherComponentName(1) = "OCXQMail"
theotherComponentName(2) = "SA-Smtp Mail"
Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>
<HTML>
<HEAD>
<TITLE>EMail Component Test</TITLE>
</HEAD>
<BODY bgColor="white" text="midnightblue" link="darkblue" aLink="red" vLink="red">
<font face="Verdana, Arial, Helvetica">
<table border=0 cellspacing=0 cellpadding=0 align=center>
<tr valign="top">
<td bgcolor="black">
<table border=0 cellspacing=1 cellpadding=4>
<tr valign="top">
<td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">Test
componenti Email</font></td>
</tr>
<tr valign="top">
<td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">I seguenti componenti sono attualmente disponibili nell' ultima versione
del Forum Snitz 2000 </font></td>
</tr>
<% Dim i
For i=0 to UBound(theComponent)
Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & theComponentName(i) & ":</td><td bgColor=""A0B0E0"" align=""center"">"
If Not IsObjInstalled(theComponent(i)) Then
Response.Write "not installed"
Else
Response.Write "installed!"
End If
Response.Write "</td></font></tr>" & vbCrLf
Next %>
</table>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 align=center>
<tr valign="top">
<td bgcolor="black">
<table border=0 cellspacing=1 cellpadding=4>
<tr valign="top">
<td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">Testo
componenti Email</font></td>
</tr>
<tr valign="top">
<td bgcolor="midnightblue" colspan="2" align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica">I
seguenti componenti non sono scelte attualmente disponibili nell'
ultima versione del Forum Snitz 2000 ma i mods sono a
disposizione per aggiungerle.</font></td>
</tr>
<% Dim j
For j=0 to UBound(theotherComponent)
Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & theotherComponentName(j) & ":</td><td bgColor=""A0B0E0"" align=""center"">"
If Not IsObjInstalled(theotherComponent(j)) Then
Response.Write "not installed"
Else
Response.Write "installed!"
End If
Response.Write "</td></font></tr>" & vbCrLf
Next %>
</table>
</td>
</tr>
</table>
</font>
</BODY>
</HTML>
Permessi di invio
Rispondi quotando