Bu kod senin hostunda yüklü olan bileşenleri gösterir.


<%
Dim ASPogren(68)
ASPogren(1) = "ADODB.Command"
ASPogren(2) = "ADODB.Connection"
ASPogren(3) = "ADODB.Recordset"
ASPogren(4) = "ADODB.Stream"
ASPogren(5) = "ADOX.Catalog"
ASPogren(6) = "AspDNS.Lookup"
ASPogren(7) = "ASPExec.Execute"
ASPogren(8) = "AspHTTP.Conn"
ASPogren(9) = "AspImage.Image"
ASPogren(10) = "AspMX.Lookup"
ASPogren(11) = "AspNNTP.Conn"
ASPogren(12) = "AspPing.Conn"
ASPogren(13) = "AspSock.Conn"
ASPogren(14) = "CDO.MESSAGE"
ASPogren(15) = "CDONTS.NewMail"
ASPogren(16) = "Dundas.Mailer"
ASPogren(17) = "Dundas.PieChartServer"
ASPogren(18) = "Dundas.PieChartServer.2"
ASPogren(19) = "Dundas.Upload"
ASPogren(20) = "Dundas.Upload.2"
ASPogren(21) = "Dundas.UploadProgress"
ASPogren(22) = "ECHOCom.Echo"
ASPogren(23) = "GuidMakr.GUID"
ASPogren(24) = "ImgSize.Check"
ASPogren(25) = "ixsso.Query"
ASPogren(26) = "ixsso.Util"
ASPogren(27) = "JMAil.Message"
ASPogren(28) = "JMail.POP3"
ASPogren(29) = "JMail.SMTPMail"
ASPogren(30) = "JRO.JetEngine"
ASPogren(31) = "Microsoft.DiskQuota.1"
ASPogren(32) = "microsoft.XMLDOM"
ASPogren(33) = "Microsoft.XMLHTTP"
ASPogren(34) = "MSWC.AdRotator"
ASPogren(35) = "MSWC.BrowserType"
ASPogren(36) = "MSWC.ContentRotator"
ASPogren(37) = "MSWC.Counters"
ASPogren(38) = "MSWC.IISLog"
ASPogren(39) = "MSWC.MyInfo"
ASPogren(40) = "MSWC.MyInfo"
ASPogren(41) = "MSWC.NextLink"
ASPogren(42) = "MSWC.PageCounter"
ASPogren(43) = "MSWC.PermissionChecker"
ASPogren(44) = "MSWC.Status"
ASPogren(45) = "MSWC.Tools"
ASPogren(46) = "MSXML.DomDocument"
ASPogren(47) = "MSXML2.DOMDocument"
ASPogren(48) = "MSXML2.DOMDocument.3.0"
ASPogren(49) = "Msxml2.FreeThreadedDOMDocument.3.0"
ASPogren(50) = "MSXML2.ServerXMLHTTP"
ASPogren(51) = "MSXML2.ServerXMLHTTP.3.0"
ASPogren(52) = "MSXML2.XSLTemplate"
ASPogren(53) = "Persits.Grid"
ASPogren(54) = "Persits.Jpeg"
ASPogren(55) = "Persits.MailSender"
ASPogren(56) = "Persits.Upload"
ASPogren(57) = "Persits.Upload.1"
ASPogren(58) = "Persits.UploadProgress"
ASPogren(59) = "POP3svg.Mailer"
ASPogren(60) = "Scripting.Dictionary"
ASPogren(61) = "Scripting.FileSystemObject"
ASPogren(62) = "Scriptlet.TypeLib"
ASPogren(63) = "SMTPsvg.Mailer"
ASPogren(64) = "SOFTWING.AspTear"
ASPogren(65) = "VBScript.RegExp"
ASPogren(66) = "WinHttp.WinHttpRequest.5.1"
ASPogren(67) = "WScript.Network"
ASPogren(68) = "WScript.Shell"
Response.write "Yüklü Bilesenler:
"
On Error Resume Next
For i = 1 To Ubound(ASPogren)
Set bilesen = Server.CreateObject(ASPogren(i))
If err.number = 0 Then
Set bilesen = nothing
Response.write ASPogren(i)
Response.write"
"
End If
Err.clear
Next
%>