Home| Progetto| Web| Faq| Acronimi | ||||
Argomenti Documenti pubblicabili:1120
Scripts:1282 Documenti non pubblicabili:162 Categorie tematiche:68 .Net |_C# |_Visual basic.net |_Asp.net Active Server Pages C++ Cascade Style Sheet JavaScript Mysql Php Xml Java |_Java 2 Micro Edition |_Java server pages |_Java Servlet Oracle |_PLSQL PostgreSQL Unix
Oracle...
Script:
Redo log
Unix...
Tip:
How remove a file named -r
PLSQL...
Script:
Esempio inserimento righe all'interno di un loop
Active Server Pages...
Faq:
What is ASP?
Shell scripting...
Script:
while do loop
A User Agent, like a web browser, uses HTTP to request a HTML document
Php Funzione mail()
In programming the danger of exploring the small details of coding is that you get obsessed with every line of code you write, thereby greatly reducing productivity.
In general, is not worth obsessing over code. On the other hand you should code with deliberation and intent. Steven Feurstein Oracle Magazine July /August 2004 A User Agent, like a web browser, uses HTTP to request a HTML document
|
Active Server Pages
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 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Comandi ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
CercaAnger is creative, depression is useless.
Dyson, Freeman J. Anger is creative, depression is useless.
Dyson, Freeman J.
Oracle...
Definizioni:
Set di caratteri (Characterset)
Shell scripting...
Script:
if e else
fishScript.Com is accessible by Mobile access technology
as mobile phones, Palm and Pocket PC .
Nicoleta e Marco Magnani tutorial, examples, courses, esempi, corsi, esercizi, appunti vari Dottoressa Nicoleta Dragu Formatrice Docente Insegnante Mediatrice Culturale Dott. Marco Magnani Universita La Sapienza Roma Master Computer Science Hunter College New York , Data Base Administrator DBA oracle System architect |