Anonymous Mailer
With this code, you can send mail thrugh the web with ASP, with the CDONTS object. it is very simple script, I wrote it in 10 minutes and I am just a beginner (one month).
AI
AI 요약: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
소스 코드
<% if request.form("flag")=""then %>
<HTML>
<H1>Welcome to Anonymous Mailer by Ido Diamant</H1>
<H4>** Please enter all the required fields or it won't be send...</H4>
<FORM action=anonymous.asp method=post>
<TABLE border=0 cellPadding=1 cellSpacing=1 style="HEIGHT: 184px; WIDTH: 457px"
width="75%">
<TR>
<TD>From: </TD>
<TD><INPUT name=From size=30 style="HEIGHT: 22px; WIDTH: 321px"></TD></TR>
<TR>
<TD>To: </TD>
<TD><INPUT name=To size=30 style="HEIGHT: 22px; WIDTH: 321px"></TD></TR>
<TR>
<TD>Subject: </TD>
<TD><INPUT name=Subject size=50 style="HEIGHT: 22px; WIDTH: 321px"></TD></TR>
<TR>
<TD>Body of Message: <BR></TD>
<TD><TEXTAREA cols=30 name=Body rows=5 style="HEIGHT: 86px; WIDTH: 322px" wrap=virtual>Message Body</TEXTAREA></TD></TR></TABLE> <BR> <BR> <BR><BR>
<input type="submit" value="Send Mail">
<input type="hidden" name="flag" value="1">
</HTML>
<%
Else
Dim anonFrom,anonTo,anonSubj,anonBody
anonFrom = request.form("From")
anonTo = request.form("To")
anonSubj = request.form("Subject")
anonBody = request.form("Body")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From=anonFrom
objMail.To=anonTo
objMail.Subject=anonSubj
objMail.Body=anonBody
intReturn=objMail.Send()
%>
<HTML>
<H1>The message sent successfully</H1>
<input type='button' value='Back' onclick=history.back()>
</HTML>
<%
End if
%>
원본 댓글 (3)
Wayback Machine에서 복구됨