一个免费的邮件列表源程序(一)

核心提示：MailToList.asp<%@ Language=javaScript %> <!--#include file = "include/SetGlobals.asp"--> <!--#include file = "include/DBPath.asp&q

MailToList.asp
<%@ Language=javaScript %>

<!--#include file = "include/SetGlobals.asp"-->
<!--#include file = "include/DBPath.asp"-->

<%
// output relevant meta tags
Init( "Mail to list" );

// output common top of page
Header( '<a href="work.asp">Work</a> --> Mail to list', 3 );

// output page content
Content ( );

// output common bottom of page
Footer( );
%>

<% /* standard page elements */ %>
<!--#include file = "utils/Init.asp"-->
<!--#include file = "utils/Database.asp"-->
<!--#include file = "utils/Header.asp"-->
<!--#include file = "utils/Footer.asp"-->

<%
// ============================================
// the content of this page
// ============================================
function Content ( )
{
　 Out ( '<td width="20%"> </td>' );
　 Out ( '<td width="60%">' );
　　
　　　// if the form has a passWord, validate it first
　　　// so that if it fails we can show the form again
　　　var bSubmitted = (Request.Form.Count > 0);

　　　// has the form been submitted?
　　　if ( bSubmitted )
　　　{
　　　　 // get the password from the form...
　　　　　sPassword = "" + Request.Form ( "password" );

　　　　 // validate the password and moan if it fails
　　　　 if ( sPassword != sDBPath )
　　　　 {
　　　　　　Out ( '<h3><font color="red">Invalid password!</font></h3>' );
　　　　　　// PRetend the form hasn'\t been sent yet
　　　　　　bSubmitted = false;
　　　　 }
　　　}

　　　// show the form if not submitted yet
　　　if ( !bSubmitted )
　　　{
　　　　 Out ( 'In <a href="Subscribe.asp">Part 1</a> I showed you how I allowed you to subscribe to my mailing list. Here\'s where I can post an email to members of that mailing list.' );
　　　　 Out ( '<p>Strangely, I\'m not going to let you do it, but you <i>can</i> get the source code from the bottom of the page, and learn how I did it.' );
　　　　 // here's the form tag. the action attribute is the name of
　　　　 // the file that will be called with the answer - in this case
　　　　 // it's the same page. the method can be "post" to send the
　　　　 // form data 'behind the scenes' or "get" to appending the
　　　　 // data to the URL in the style page.asp?data1=a&data2=b
　　　　 //
　　　　 // use post most of the time - it's neater and "get" is limited
　　　　 // in the amount of data that can be sent.
　　　　 Out ( '<form action="MailToList.asp" method="post">' );
　　
　　　　　　// another table to line up the titles and inputs
　　　　　　Out ( '<table border="0" cellpadding="0">' );
　　　　　　Out ( '<tr><td align="right" valign="top">' );
　　　　　　　 Out ( 'Password:' );
　　　　　　Out ( '</td><td align="left" valign="top">' );
　　　　　　　 // a simple text box. we'll reference it with the name "password"
　　　　　　　 // and show 37 characters on the form. use the maxlength
　　　　　　　 // attribute to set the maximum characters they can enter.
　　　　　　　 // use value="some text" to pre-fill the input with data.
　　　　　　　 Out ( '<input type="password" name="password" size="30"></input>' );
　　　　　　Out ( '</td></tr>' );

　　　　　　Out ( '<tr><td align="right" valign="top">' );
　　　　　　　 Out ( 'Message:' );
　　　　　　Out ( '</td><td align="left" valign="top">' );
　　　　　　　 // textarea is a multiline text box. specify the size with the
　　　　　　　 // cols and rows attributes. wrap can be "off" (the default)
　　　　　　　 // "physical" or "virtual". as an example, consider the user
　　　　　　　 // typing in the following text in a 40 character wide input:
　　　　　　　 //
　　　　　　　 // "I wonder how this text will appear to the server when I send it?"
　　　　　　　 //
　　　　　　　 // wrap="off" will send it as typed, but the user has to scroll off
　　　　　　　 // to the right to see the text. (Horrid)
　　　　　　　 //
　　　　　　　 // wrap="physical" will physically split the line after the word
　　　　　　　 // 'server' and send two lines to the server
　　　　　　　 //
　　　　　　　 // wrap="virtual" will send one line, as typed, but the user
　　　　　　　 // will see the text nicely wrap in the input. Perfect!
　　　　　　　 Out ( '<textarea name="message" cols="30" rows="8" wrap="physical"></textarea>' );
　　　　　　Out ( '</td></tr>' );

　　　　　　Out ( '<tr><td align="right" valign="top">' );
　　　　　　　 Out ( ' ' );
　　　　　　Out ( '</td><td align="left" valign="top">' );
　　　　　　　 // type='submit" provides a submit button to perform the
　　　　　　　 // form action. the button says "Submit" unless you override
　　　　　　　 // with the value attribute.
　　　　　　　 Out ( '<input type="submit" value="Send Mail"></input>' );
　　　　　　Out ( '</td></tr>' );

　　　　　　Out ( '</table>' );

　　　　 Out ( '</form>' );
　　　}
　　　else
　　　{
　　　　 // get the message from the form
　　　　 var sMessage = "" + Request.Form ( "message" );

　　　　 // open the connection
　　　　 DBInitConnection ( );

　　　　 // get the emails addresses
　　　　 var sSQL = 'SELECT Email FROM MailingList;';

　　　　 DBGetRecords ( sSQL );

　　　　 var sEmailList = "";
　　　　 var sSep = "";

　　　　 while ( !oRecordSet.EOF )
　　　　 {
　　　　　　sEmailList += sSep + oRecordSet ( 0 );

　　　　　　sSep = ";";

　　　　　　oRecordSet.MoveNext ( );
　　　　 }

　　　　 // free the connection
　　　　 DBReleaseConnection ( );

　　　　 Email ( 'It\'s a ShawThing - what\'s new?', sEmailList, sMessage );

　　　　 Out ( '<p>Email sent successfully.<p>' );
　　　}

　　　Out ( 'Want to see how this form to mail the subscribers was done? Click below to get all the source code!' );
　　　Out ( '<p><center><a href="ShowSource.asp? page=MailToList"><img src=http://www.cncms.com/"images/source.gif" border=0></a></center>' );

　 Out ( '</td>' );
　 Out ( '<td width="20%"> </td>' );
}

// ============================================
// email me!
// ============================================
function Email ( sSubject, sEmail, sMessage )
{
　 // send an email to the address just to confirm what just happened
　 var oMail = Server.CreateObject ( "CDONTS.NewMail" );

　 // setup the mail
　 oMail.From = oMail.To = 'MailingList@shawthing.com';

　 oMail.Bcc = sEmail;
　 oMail.Importance = 1;

　 oMail.Subject = sSubject;
　 oMail.Body = sMessage;

　 // send it
　 oMail.Send ( );

　 // release object
　 oMail = null;
}
%>
　　 
utils/Database.asp
<%
// globals
var oConnection;
var oRecordSet;
var sConnection;

// ============================================
// example usage:
//　　　DBInitConnection ( );
//
//　　　var sSQL = "SELECT * FROM Somewhere";
//
//　　　DBGetRecords ( sSQL );
//
//　　　...use oRecordSet
//
//　　　DBReleaseRecords ( );　　　// optional step
//
//　　　DBReleaseConnection ( );
// ============================================

// ============================================
// initializes database variables for first use on page
// ============================================
function DBInitConnection ( )
{
　 // don't open it again if already opened!
　 if ( sConnection != undefined )
　　　return;
　　　 
　 // get connection object
　 oConnection = Server.CreateObject( 'ADODB.Connection' );

　 // get the database connection string
　 // use MapPath to make relative path into physical path
　 sConnection = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + Server.MapPath ( sDBPath );

　 // open the connection
　 oConnection.Open( sConnection );

　 // as an attempt at optimization we now open
　 // the recordset here, not in DBGetRecords()
　 oRecordSet = Server.CreateObject ( 'ADODB.Recordset' );
}

// ============================================
// tidies up after DBInitConnection
// ============================================
function DBReleaseConnection ( )
{
　 // don't release the connection if not connected!
　 if ( sConnection == undefined )
　　　return;
　　　 
　 // as an attempt at optimization we now close
　 // the recordset here, not in DBReleaseRecords()
　 if ( oRecordSet.State != 0 )
　　　oRecordSet.Close();
　 oRecordSet = undefined;

　 oConnection.Close();
　 oConnection = undefined;
　　
　 sConnection = undefined;
}

// ============================================
// executes the passed in SQL statement
// and returns the oRecordSet object
// ============================================
function DBGetRecords ( sSQL )
{
　 // remember that this can fail if passed garbage, and hence
　 // 'oRecordSet' will already be 'closed'
　 oRecordSet = oConnection.Execute( sSQL );
}

// ============================================
// tidies up after DBGetRecords
// ============================================
function DBReleaseRecords ( )
{
　 // IMPORTANT: THIS FUNCTION INTENTIONALLY BLANK
　 // as an attempt at optimization we now open/close
　 // the recordset with the connection, not separately
　 // so all code was moved to DBReleaseConnection.
　　
　 // it is recommended that you still call this function as soon
　 // as the recordset is finished with.
　　
　 // note that it is assumed by the caller that it is legal
　 // to call DBReleaseConnection without calling this function
}
%>