<%
'Component Info version 1.2
'This script will check if a specifik component exist on your server.
'Feel free to add any components which are not listed, but,
'if you do so, please send an email to: admin@msweb.dk
'and let me know, so I can update the script.
'Currently 52 components are supported.
'Developed by Mads Buch Stage
Response.buffer = true
strCompo = ""
'Dimac
strCompo = strCompo & "@<a href=""
http://www.dimac.se"" style=""color: #FF6600;"">Dimac</A>"
strCompo = strCompo & "$JMail.Speedmailer"
strCompo = strCompo & "$JMail.SMTPMail:Version"
strCompo = strCompo & "$w3.Upload"
strCompo = strCompo & "$w3.netutils"
strCompo = strCompo & "$Socket.TCP"
'Dundas
strCompo = strCompo & "@<a href=""
http://www.dundas.com"" style=""color: #FF6600;"">Dundas</A>"
strCompo = strCompo & "$Dundas.ChartServer2D.1"
strCompo = strCompo & "$Dundas.ChartServer"
strCompo = strCompo & "$Dundas.PieChartServer.1"
strCompo = strCompo & "$Dundas.Mailer"
strCompo = strCompo & "$Dundas.Upload.2"
'Serverobjects
strCompo = strCompo & "@<a href=""
http://www.serverobjects.com"" style=""color: #FF6600;"">Serverobjects</A>"
strCompo = strCompo & "$SMTPsvg.Mailer"
strCompo = strCompo & "$AspImage.Image:Version"
strCompo = strCompo & "$POP3svg.Mailer:Version"
strCompo = strCompo & "$AspNNTP.Conn"
strCompo = strCompo & "$AspHTTP.Conn"
strCompo = strCompo & "$ImgSize.Check:Version"
strCompo = strCompo & "$AspPing.Conn:Version"
strCompo = strCompo & "$LastMod.FileObj"
strCompo = strCompo & "$WaitFor.Comp"
strCompo = strCompo & "$AspCrypt.Crypt"
strCompo = strCompo & "$GuidMakr.GUID"
strCompo = strCompo & "$ASPExec.Execute"
strCompo = strCompo & "$AspInet.FTP"
strCompo = strCompo & "$ASPsvg.Process"
strCompo = strCompo & "$Bible.Lookup"
'Websupergoo
strCompo = strCompo & "@<a href=""
http://www.websupergoo.com"" style=""color: #FF6600;"">Websupergoo</A>"
strCompo = strCompo & "$ImageGlue4.Canvas"
strCompo = strCompo & "$ImageGlue.Canvas"
'Asp2sms
strCompo = strCompo & "@<a href=""
http://www.asp2sms.com"" style=""color: #FF6600;"">Asp2sms</A>"
strCompo = strCompo & "$ASPCOM.ASP2SMS"
'aspSmart
strCompo = strCompo & "@<a href=""
http://www.aspsmart.com"" style=""color: #FF6600;"">aspSmart</A>"
strCompo = strCompo & "$AspSmartChat.SmartChat"
strCompo = strCompo & "$aspSmartMenu.SmartMenuPopUp"
strCompo = strCompo & "$AspSmartForum.SmartForum"
strCompo = strCompo & "$AspSmartFile.SmartFile"
strCompo = strCompo & "$AspSmartSecurity.FileSec"
strCompo = strCompo & "$AspSmartDate.SmartDate"
strCompo = strCompo & "$AspSmartImage.SmartImage"
strCompo = strCompo & "$AspSmartUpload.SmartUpload"
strCompo = strCompo & "$aspSmartMail.SmartMail"
strCompo = strCompo & "$aspSmartCache.SmartCache"
'flicks
strCompo = strCompo & "@<a href=""
http://www.flicks.com"" style=""color: #FF6600;"">Flicks</A>"
strCompo = strCompo & "$ASPMAIL.ASPMailCtrl.1"
strCompo = strCompo & "$AUTHXISP.AuthXOCXCtrl.1"
'Softartisans
strCompo = strCompo & "@<a href=""
http://www.softartisans.com"" style=""color: #FF6600;"">Softartisans</A>"
strCompo = strCompo & "$SoftArtisans.ExcelWriter"
strCompo = strCompo & "$SoftArtisans.FileUp"
strCompo = strCompo & "$softartisans.ImageGen"
strCompo = strCompo & "$SoftArtisans.SMTPMail"
strCompo = strCompo & "$SMUM.XCheck.1"
'Geocel
strCompo = strCompo & "@<a href=""
http://www.geocel.com"" style=""color: #FF6600;"">Geocel</A>"
strCompo = strCompo & "$Geocel.Mailer:Version"
'DevGuru
strCompo = strCompo & "@<a href=""
http://www.devguru.com"" style=""color: #FF6600;"">Devguru</A>"
strCompo = strCompo & "$dgCalendar.Calendar"
strCompo = strCompo & "$dgFileUpload.dgUpload"
strCompo = strCompo & "$dgSort.QuickSort"
strCompo = strCompo & "$dgTree.Tree"
'Persits
strCompo = strCompo & "@<a href=""
http://www.persits.com"" style=""color: #FF6600;"">Persits</A>"
strCompo = strCompo & "$Persits.Upload.1"
strCompo = strCompo & "$Persits.MailSender"
strCompo = strCompo & "$Persits.Grid"
strCompo = strCompo & "$Persits.CryptoManager"
strCompo = strCompo & "$Persits.Jpeg"
strCompo = strCompo & "$Persits.AspUser"
'Hexillion
strCompo = strCompo & "@<a href=""
http://www.hexillion.com"" style=""color: #FF6600;"">Hexillion</A>"
strCompo = strCompo & "$Hexillion.HexLookup:Version"
strCompo = strCompo & "$Hexillion.HexIcmp:Version"
strCompo = strCompo & "$Hexillion.HexTcpQuery:Version"
strCompo = strCompo & "$HexDns.Connection:Version"
strCompo = strCompo & "$HexDns.Lookup"
strCompo = strCompo & "$HexValidEmail.Connection:Version"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Component Info</title>
</head>
<body bgcolor="#606060" style="color: White; font-family: Arial, Helvetica, sans-serif; font-size: 9px;">
<DIV ALIGN="CENTER">
<TABLE BORDER="0" CELLPADDING="3" CELLSPACING="1">
<%
First = true
arrComp = Split(strCompo,"$")
FOR i = 0 TO UBound(arrComp)
arrThis = Split(arrComp(i),"@")
IF First = true THEN
Response.write "<TR BGCOLOR=""#202020""><TD COLSPAN=""2""><FONT SIZE=""-2"">" & arrThis(1) & "</FONT></TD></TR>"
First = false
ELSE
strThisObject = Split(arrThis(0),":")
Response.write "<TR BGCOLOR=""#303030""><TD><FONT SIZE=""-2"">" & strThisObject(0) & ":</FONT></TD>"
Response.write "<TD><FONT SIZE=""-2"">" & ServerCreateObject(arrThis(0)) & "</FONT></TD></TR>"
IF UBound(arrThis) = 1 THEN
Response.write "<TR BGCOLOR=""#202020""><TD COLSPAN=""2""><FONT SIZE=""-2"">" & arrThis(1) & "</FONT></TD></TR>"
END IF
END IF
NEXT
%>
</TABLE>
<br><br>
Udviklet af Mads Buch Stage, <A HREF="mailto:admin@msweb.dk" style=""color: #FF6600;"">admin@msweb.dk</A>
</DIV>
</body>
</html>
<%
PRIVATE FUNCTION ServerCreateObject(strCompID)
DIM objComp
ON ERROR RESUME NEXT
arrCompID = Split(strCompID,":")
Set objComp = Server.CreateObject(arrCompID(0))
IF Err.Number = 0 THEN
strReturn = "<FONT COLOR=""#00C000""><B>+"
IF UBound(arrCompID) = 1 THEN
strToDo = Trim(arrCompID(1))
IF strTodo = "Version" THEN
strReturn = strReturn & " " & objComp.Version
ELSEIF strTodo = "About" THEN
strReturn = strReturn & " " & objComp.About
END IF
END IF
strReturn = strReturn & "</B></FONT>"
ELSE
strReturn = "<FONT COLOR=""#C00000""><B>-</B></FONT>"
END IF
ServerCreateObject = strReturn
END FUNCTION
%>
Slettet bruger
Opret
Preview
