michael/programming-examples
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
f4fa9cdf8e
programming-examples/asp/Components/System Detector.asp
Michael Reber 8258e10e80 Adding ASP example files
2019-11-18 14:25:58 +01:00

160 lines
5.7 KiB
Plaintext
Raw Blame History

<HTML>
<HEAD>
<TITLE>Detecting System Components</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" Text="#000000" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0"><TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697"> </TD>
<TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting Email Components...</B>
</FONT>
</TD>
<TD WIDTH="25%" BGCOLOR="#465697"> </TD>
</TR>
<TR><TD COLSPAN="3" WIDTH="100%"> </TD>
</TR>
<TR><TD WIDTH="25%"> </TD>
<TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><%
Dim sql_control
Dim sql_con_trol
sql_con_trol = 0
On Error Resume Next
Set sql_control = CreateObject("VSEmail.SMTPSendMail")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">VSEmail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = CreateObject("Persits.MailSender")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">ASPEmail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("CDONTS.NewMail")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">CDONTS</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("SMTPsvg.Mailer")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">ASPMail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("JMail.SMTPMail")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">JMail 3.7</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("JMail.Message")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">JMail 4.1</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("Dynu.Email")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">Dynu Mail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("ADISCON.SimpleMail.1")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">Simple Mail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
Set sql_control = Server.CreateObject("ASPMail.ASPMailCtrl.1")
If Err Then
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">OCXMail</FONT></B><BR>" & vbCrLf
sql_con_trol = sql_con_trol + 1
End If
Err.Clear
If sql_con_trol > 0 Then
Response.Write "<BR><BR>Found <B>" & sql_con_trol & "</B> components." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR><B><A HREF=""mailto:yellowbaris@yahoo.com"">yellowbaris@yahoo.com</A></B>" & vbCrLf
Else
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Your sever has Not installed any of the email components spidered by this program." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Please contact your web server administrator to be informed" & vbCrLf
Response.Write "<BR>about the installed <B>email components</B> on your server." & vbCrLf
End If
%></FONT>
</TD>
<TD WIDTH="25%"> </TD>
</TR>
</TABLE>
<BR>
<BR>
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697"> </TD>
<TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting FileSystem Components...</B>
</FONT>
</TD>
<TD WIDTH="25%" BGCOLOR="#465697"> </TD>
</TR>
<TR><TD COLSPAN="3" WIDTH="100%"> </TD>
</TR>
<TR><TD WIDTH="25%"> </TD>
<TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><%
On Error Resume Next
OutHTML = ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set act = FSO.CreateTextFile(Server.MapPath("testfile.txt"), True)
act.WriteLine("TestLine")
act.Close
Set act = Nothing
If Err = 0 Then
OutHTML = OutHTML & "<BR>Creating of files supported..." & vbCrLf
Else
OutHTML = OutHTML & "<BR>Creating of files <B>Not</B> supported..." & vbCrLf
End If
fso.DeleteFile(Server.MapPath("testfile.txt"))
If Err = 0 Then
OutHTML = OutHTML & "<BR>Deleting and Modifying of files supported..." & vbCrLf
Else
OutHTML = OutHTML & "<BR>Deleting and Modifying of files <B>Not</B> supported..." & vbCrLf
OutHTML = OutHTML & "<BR>This causes Mail-Robot Not To work propperly." & vbCrLf
End If
Set FSO = Nothing
If Err > 0 Then
Response.Write "<B>Scripting.FileSystemObject Not full supported.</B>" & vbCrLf
Else
Response.Write "Detected: <B><FONT COLOR=""#009900"">Scripting.FileSystemObject</FONT></B><BR><BR>" & vbCrLf
c1 = c1 + 1
End If
Err.Clear
Response.Write OutHTML
If c1 > 0 Then
Response.Write "<BR>Found <B>" & c1 & "</B> components." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR><B><A HREF=""mailto:yellowbaris@yahoo.com"">yellowbaris@yahoo.com</A></B>" & vbCrLf
Else
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>Please contact your web server administrator to be informed" & vbCrLf
Response.Write "<BR>about the installed <B>FileSystemObjects</B> on your server." & vbCrLf
End If
%></FONT>
</TD>
<TD WIDTH="25%"> </TD>
</TR>
</TABLE>
</BODY>
</HTML>
Reference in New Issue View Git Blame Copy Permalink