Sunucuda Hangi Componentler Yüklü?

Sunucuda Hangi Componentler Yüklü? (ASP Kod) Hakkında Bilgiler
#

Sunucuda Hangi Componentler Yüklü? (ASP Kod)

Sunucuda Hangi Componentler Yüklü?

Sunucuda Hangi Componentler Yüklü? (ASP Kod)


Componentchecker.asp dosyası;

------------------------------ 
Componentchecker.asp
------------------------------ 
<%response.buffer=true %> 
componentchecker.asp 
 
<%  
dim successSTR, FailSTR, checkSTR 
whichfile=Server.MapPath("component.ini" ) 
Set fs = CreateObject("Scripting.FileSystemObject" ) 
Set thisfile = fs.OpenTextFile(whichfile, 1, False) 
 
counter=0 
 
do  Until thisfile.AtEndOfStream 
   counter=counter+1 
   thisline=thisfile.readline 
      attempt=Trim(thisline) 
   pad="    "
   Do While attempt="" AND thisfile.atendofStream=false 
      thisline=thisfile.readline 
       attempt=Trim(thisline) 
   Loop
   If Mid(thisline,1,1)="[" Then
      ' ignore 
      CheckSTR=CheckSTR & thisline & " "
      lastcategory=category 
      category=LCase(thisline) 
      oldcategory=Mid(category,1,Len(category)-1)    
      category=Replace(category,"www." ,"0 Then
         category=Mid(category,2) 
         category=category & "">" & oldcategory & "]"
      End If
      group= "" & category & " component group
" successcount=0 failcount=0 thisline=thisfile.readline attempt=thisline Response.Flush End If on error resume Next Set tempobject=Server.CreateObject(attempt) eol="
" & vbcrlf whicherr=err.number If whicherr=0 Then If successcount=0 Then successSTR=successSTR & group End If vleft=" (ver=" vright=") " Select Case LCase(attempt) Case "adodb.connection" version= vleft & tempobject.version & vright Case Else version="" End Select successSTR= successSTR & pad & "" & attempt & version & " successfull!" & eol successcount=successcount+1 Else If failcount=0 Then FailSTR=FailSTR & group End If If whicherr=-2147221005 Then msg = " is not registered!" Else msg = " failed. Error #" & whicherr End If FailSTR= failSTR & pad & "" & attempt & "" & msg & eol failcount=failcount+1 End If Set tempobject=Nothing Loop thisfile.Close Set thisfile=Nothing Set fs=Nothing Response.Write "Checked: " & checkSTR & "
" Response.Write successSTR & "
" Response.Write failSTR %>

Componenet.ini dosyası;

-------------------------------------------
Component.ini 
-------------------------------------------

[standard] 
mswc.browsertype 
mswc.nextlink 
scripting.dictionary 
scripting.filesystemobject 
 
[ado] 
adodb.recordset 
adodb.connection 
adodb.command 
 
[cdo] 
CDONTS.NewMail  
 
[cyscape] 
cyScape.browserObj 
 
[indexserver] 
ixsso.Query 
ixsso.Util 
 
[Lyris] 
Lyris.LCP 
 
[http://msdn.microsoft.com/scripting] 
Wscript.Shell 
 
[msfreebies] 
iissample.asp2htm 
iissample.contentrotator 
iissample.registry 
iissample.summaryinfos 
iissample.tracer 
mswc.adrotator 
mswc.counters 
mswc.myinfo 
MSWC.PageCounter 
MSWC.PermissionChecker 
mswc.tools 
mswc.loadbalance 
 
[msXML] 
microsoft.XMLHTTP 
microsoft.XMLDOM 
 
[www.aspdb.com] 
ASPdb.Free 
ASPdb.View 
ASPdb.Pro 
ASPdb.EP 
 
[www.serverobjects.com] 
ASPChart.Chart 
AspConv.Expert 
AspDNS.Lookup 
AspFile.FileObj 
AspHTTP.Conn 
AspImage.Image 
AspInet.FTP  
AspMX.Lookup 
AspNNTP.Conn 
AspPager.Pager 
SMTPsvg.Mailer 
 
[www.softartisans.com] 
SoftArtisans.FileUp 
SoftArtisans.SACheck 
SoftArtisans.SASessionPro 
SoftArtisans.FileManager 
EZsite.Calender 
EZsite.CalendarManager 
EZsite.WebNotes 
 
[www.active4.com] 
ActiveLaunch.Control 
ActiveSAR.SearchAndReplace 
ActiveShopper.Cart 
ActiveShopper.BasketItem 
FileTouch.Control 
PCAuthX.Authorizer 
Prt2Disk.Control 
SemClient.Control 
SPrinterPro.Object
TimeSpan.Control 
WWWPrint.Client 
 
[Zaks Software] 
ZaksPop3.Server 
JavaPop3.Mailer 
 
[www.persits.com] 
Persits.MailSender 
 
[www.oceantek.com] 
ASPL.Login 
 
[www.able-consulting.com] 
ACI.WhoIs 
 
[www.softwing.com] 
Softwing.EventLogReader 
Softwing.OdbcRegTool 
w3info.w3info.1 
InetCtls.Inet.1 
Softwing.AspQPerfCounters 
SQLOLE.SQLServer 
SOFTWING.ASPEventlog 
SOFTWING.ASPtear 
SOFTWING.EDConverter 
SOFTWING.EventLogReader 
SOFTWING.FileCache.1 
SOFTWING.OdbcRegTool 
SOFTWING.LocaleFormatter 
SOFTWING.Profiler 
 
[www.dougdean.com] 
EZsite.EZuploadLite 
 
[www.algonet.se/~jekman] 
lightcom.xBrowser 
lightcom.xContent 
lightcom.xPop3 
lightcom.xSMTP 
lightcom.xTree 
lightcom.xBrowser 
JESoftware.xContent 
JESoftware.xPop3 
JESoftware.xSMTP 
JESoftware.xTree 
 
[tech.dimac.net] 
Socket.TCP 
 
[www.de-info.com] 
checkemail.maccheckemail 
 
[www.pstruh.cz] 
TCPIP.Trace 
TCPIP.DNS 
 
[www.dana-net.com/products/aspcomponents/magicregistry] 
MagicRegistry.Tricks


İlk yorumu yapan sen ol!



Yorum Bırak

Site İçi Genel Arama


Sosyel Medya Paylaşım



Bazı Paylaşımlar
  • Adres: Levent İstanbul, Turkiye
  • Email: info@unpoo.com


  • Hafta içi: 10:00-17:00
Sosyal Medya

Bu siteyi kullanarak sitenin ve site üzerinde kullanılan diğer sitelerin çerez politikalarını kabul etmiş sayılırsınız.
Copyright © 1998-2016 UnPoo! All rights reserved. Sayfa 0,1600sn de yüklendi.