Programalama > ASP


Ort. 0
Puan ver:
Componentchecker.asp 
------------------------------ 
<%response.buffer=true %> 
<title>componentchecker.asp</title> 
<body bgcolor="#FFFFFF"> 
<%  
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." ,"<a href='http://www." ) 
      If InStr(category,"href" )>0 Then 
         category=Mid(category,2) 
         category=category & "'>" & oldcategory & "]</a>" 
      End If 
      group= "<b>" & category & " component group</b><br>" 
      successcount=0 
      failcount=0 
      thisline=thisfile.readline 
      attempt=thisline 
      Response.Flush 
   End If 
   on error resume Next 
   Set tempobject=Server.CreateObject(attempt) 
   eol="<br>" & 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 & "<b>" & attempt & version & "</b> 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 & "<b>" & attempt & "</b>" & msg & eol 
      failcount=failcount+1 
   End If 
   Set tempobject=Nothing 
Loop 

thisfile.Close 
Set thisfile=Nothing 
Set fs=Nothing 

Response.Write "Checked: " & checkSTR & "<hr>" 
Response.Write successSTR & "<hr>" 
Response.Write failSTR  
%> 
------------------------------------------- 
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.