Home >Active Server Pages > Controllare i componenti disponibili




<%
' Creiamo la lista dei componenti da controllare !
' Potete aggiungere tutti quelli che volete nel formato
' ListaCOM(x) = Array("nome_componente","nome_componente.chiamata_componente")

Dim ListaCOM(41)
ListaCOM(0) = Array( "AB Mailer","ABMailer.Mailman" )
ListaCOM(1) = Array( "ABC Upload","ABCUpload4.XForm" )
ListaCOM(2) = Array( "ActiveFile","ActiveFile.Post" )
ListaCOM(3) = Array( "ActiveX Data Object","ADODB.Connection" )
ListaCOM(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
ListaCOM(5) = Array( "ASP HTTP","AspHTTP.Conn" )
ListaCOM(6) = Array( "ASP Image","AspImage.Image" )
ListaCOM(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
ListaCOM(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
ListaCOM(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
ListaCOM(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
ListaCOM(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
ListaCOM(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
ListaCOM(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
ListaCOM(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
ListaCOM(15) = Array( "ASPSoft NT Object","ASPSoft.NT" )
ListaCOM(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
ListaCOM(17) = Array( "CDO NTS","CDONTS.NewMail" )
ListaCOM(18) = Array( "Chestysoft Image","csImageFile.Manage" )
ListaCOM(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
ListaCOM(20) = Array( "Dimac JMail","JMail.Message" )
ListaCOM(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
ListaCOM(22) = Array( "Dundas Mailer","Dundas.Mailer" )
ListaCOM(23) = Array( "Dundas Upload","Dundas.Upload.2" )
ListaCOM(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
ListaCOM(25) = Array( "Dynu HTTP","Dynu.HTTP" )
ListaCOM(26) = Array( "Dynu Mail","Dynu.Email" )
ListaCOM(27) = Array( "Dynu Upload","Dynu.Upload" )
ListaCOM(28) = Array( "Dynu WhoIs","Dynu.Whois" )
ListaCOM(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
ListaCOM(30) = Array( "File System Object","Scripting.FileSystemObject" )
ListaCOM(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
ListaCOM(32) = Array( "Last Mod","LastMod.FileObj" )
ListaCOM(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
ListaCOM(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
ListaCOM(35) = Array( "Persits ASPEmail","Persits.MailSender" )
ListaCOM(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
ListaCOM(37) = Array( "Persits File Upload","Persits.Upload.1" )
ListaCOM(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
ListaCOM(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
ListaCOM(40) = Array( "Image Size", "ImgSize.Check" )
ListaCOM(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )

' Creiamo la funzione per vedere quali di questi sono attivi

Function attiva( comIdentity )
On Error Resume Next
attiva = False
Err = 0
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then attiva = True
Set xTestObj = Nothing
Err = 0
End Function

' Creiamo la funzione per controllare i componenti e per stampare i risultati

Public Function controllaCOM()

disponibile = 0
strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=400>" & vbNewLine
For indice = LBound( ListaCOM ) To UBound( ListaCOM )
Provider = indice
strTxt = strTxt & vbTab & "<tr><td width=200><font face=Verdana size=2>" & ListaCOM(indice)(0) & "</font></td>"
strTxt = strTxt & "<td align=right width=20><font face=Verdana size=2>[</font></td>"

If attiva( ListaCOM(indice)(1) ) Then
strTxt = strTxt & "<td align=center><font face=Verdana size=2 color=blue>Disponibile</font></td>"
disponibile = disponibile + 1
Else
strTxt = strTxt & "<td align=center><font face=Verdana size=2>No</font></td>"
End If

strTxt = strTxt & "<td align=left width=20><font face=Verdana size=2>'></font></td></tr>" & vbNewLine
Next

strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><center><font face=Verdana size=2><font color=blue>" & disponibile & "</font> dei "
strTxt = strTxt & UBound( ListaCOM ) + 1 & " componenti della lista sono supportati.</font></center></td></tr>" & vbNewLine
controllaCOM = strTxt & "</table>" & vbNewLine
End Function

' E adesso vediamo di visualizzare il tutto
Response.Write( controllaCOM() )
%>

---

---

Warning: include(ads/text468x15.html): failed to open stream: No such file or directory in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

Warning: include(): Failed opening 'ads/text468x15.html' for inclusion (include_path='.;C:\php\pear') in D:\inetpub\webs\fishscriptcom\documents\view_document.php on line 131

Script
Ciclo for to Un semplice esempio per avvicinarsi ad uno dei costrutti fondamentali della programmazione  [Active Server Pages] 
Controllare i componenti disponibili Uno script per controllare i componenti disponibili  [Active Server Pages] 
Esempio di Loop con "Do Until" Costrutti fondamentali  [Active Server Pages] 
Form e inserimento dati in una tabella Invio di dati via attraverso un form e loro acquisizione e inserimento in una tabella  [Active Server Pages] 
Gestione degli errori Oggetto response.redirect  [Active Server Pages] 
Inclusione file Uso della direttiva include  [Active Server Pages] 
Let's use same variables 2   [Active Server Pages] 
Predisporre la data per inserimento in Access Formattare le date  [Active Server Pages] 
Recordset estrazione di dati da una tabella Lettura e stampa di dati da db  [Active Server Pages] 
Semplice esempio Loop utilizzando DO WHILE   [Active Server Pages] 
Server.Execute chiamata di un file esterno   [Active Server Pages] 
Verificare creazione e mantenimento delle variabili di sessione Un test per verificare la creazione di sessione e il suo mantenimeto  [Active Server Pages] 
Visualizzare una data salvata in un data base Access Le date con Access  [Active Server Pages] 
Esempio utilizzo di costrutto Case Costrutti fondamentali. Invio di valori via form. Gestione dei casi  [Active Server Pages] 
Beginning 1   [Active Server Pages] 
Comandi
Ricavare l'IP del client chiamante la pagina Stampa dei parametri di Request.ServerVariables  [Active Server Pages] 
Ricavare l'url della pagina di provenienza del client Stampa dei parametri di Request.ServerVariables  [Active Server Pages] 
Ricavare l'impostazione della lingua del browser Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")   [Active Server Pages] 
Ricavare dati su browser, sistema operativo, dispositivo,terminale, mobile... Request.ServerVariables("HTTP_USER_AGENT")   [Active Server Pages] 
Ricavare percorso e nome del file asp eseguito Request.ServerVariables("PATH_INFO")  [Active Server Pages] 
Ricavare percorso fisico e nome del file della pagina asp Request.ServerVariables("PATH_TRANSLATED")  [Active Server Pages] 

---

---