Ver componentes instalados

02/03/2008

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

  1.  
  2. <%@ Language="VBScript" %>
  3. <% Option Explicit %>
  4. <%
  5. Dim theComponent(14)
  6. Dim theComponentName(14)
  7.  
  8. ‘ Lista dos Componentes
  9. theComponent(0) = "ADODB.Connection"
  10. theComponent(1) = "SoftArtisans.FileUp"
  11. theComponent(2) = "AspHTTP.Conn"
  12. theComponent(3) = "AspImage.Image"
  13. theComponent(4) = "LastMod.FileObj"
  14. theComponent(5) = "Scripting.FileSystemObject"
  15. theComponent(6) = "SMTPsvg.Mailer"
  16. theComponent(7) = "CDONTS.NewMail"
  17. theComponent(8) = "Jmail.smtpmail"
  18. theComponent(9) = "SmtpMail.SmtpMail.1"
  19. theComponent(10) = "Persits.Upload.1"
  20. theComponent(11) = "UnitedBinary.AutoImageSize"
  21. theComponent(12) = "aspSmartUpload.SmartUpload"
  22. theComponent(13) = "DAO.DBEngine.35"
  23.  
  24. ‘ Apelido dos Componentes
  25. theComponentName(0) = "ADODB"
  26. theComponentName(1) = "SA-FileUp"
  27. theComponentName(2) = "AspHTTP"
  28. theComponentName(3) = "AspImage"
  29. theComponentName(4) = "LastMod"
  30. theComponentName(5) = "FileSystemObject"
  31. theComponentName(6) = "ASPMail"
  32. theComponentName(7) = "CDONTS"
  33. theComponentName(8) = "JMail"
  34. theComponentName(9) = "SMTP"
  35. theComponentName(10) = "Persits Upload"
  36. theComponentName(11) = "AutoImageSize"
  37. theComponentName(12) = "ASpSmartUpload"
  38. theComponentName(13) = "DBEngine"
  39.  
  40. Function IsObjInstalled(strClassString)
  41. On Error Resume Next
  42. IsObjInstalled = False
  43. Err = 0
  44.  
  45. Dim xTestObj
  46. Set xTestObj = Server.CreateObject(strClassString)
  47. If 0 = Err Then IsObjInstalled = True
  48. Set xTestObj = Nothing
  49. Err = 0
  50. End Function
  51. %>
  52. <table border="1" cellpadding="0" cellspacing="0" width="100%"><tbody>
  53. <tr>
  54. <td align="center"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong>Componentes
  55. instalados:</strong></font></td>
  56. </tr>
  57. <tr>
  58. <td>
  59. <table border="0" cellpadding="0" cellspacing="0" width="100%"><tbody>
  60. <tr>
  61. <td>" & vbCrLf
  62. Response.Write "<strong>" & theComponentName(i) & "</strong>" & vbCrLf
  63. Response.Write "</td>
  64. </tr>
  65. </tbody></table>
  66. </td>
  67. </tr>
  68. </tbody></table>
  69.  

Dica: Acesse também http://www.webly.com.br/

Agência OFF, desenvolvimento de soluções web para as Agências Digitais


Tags: • • •
por Ted k' |
1 Comentário |
ASP

Uma pessoa respondeu Ver componentes instalados

  1. Sílvio Lima 12/04/2011 at 12:57 PM | Permalink |

    Obrigado.Muito útil.

    Sílvio Lima

Deixe seu Comentário