ASP advanced article online Management Update--article forwarding email
Author: Beach Boy
This is one of the main features of this program. In ASP, you can make use of NT SMTP to send Mail Online, but you must confirm that your system has installed the Windows NT Opton PACK SMTP SERVICE, in this article management system is through it to achieve the online transmission of articles, It is only necessary to call the contents of the database and send it to the mailbox.
Here is a description of their implementation of the process, the following is the Mail Send program (sendemail.asp) The specific code and comments:
"Insert Open database Connection file
<!--#include file= "conn.asp"-->
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> send articles to email </title>
<body>
<%
"Define related variables
Dim email
Dim Founderr
Dim con
Dim rs,sql
Fouunderr=false
Dim errmsg
Email=trim (Request.Form ("email"))
"Using predefined IsValidEmail functions to determine if email writing is wrong
If IsValidEmail (email) =false Then
errmsg=errmsg+ "<li> your email has errors!</li>"
Founderr=true
End If
%>
<div align=center>
<table border= "0" cellspacing= "0" width= "85%" cellpadding= "0"
height= "class=" "Tableclass" >
<tr>
<TD width= "100%" >
<%
If Founderr=false Then
Dim objcdomail
"Determines what you need to open the recordset article by the ID value returned from list.asp
Set Rs=server.createobject ("Adodb.recordset")
Sql= "SELECT * from article where articleid=" &request ("id")
Rs.Open sql,conn,1,1
"Use Cdonts.newmail to send mail
Set Objcdomail = Server.CreateObject ("CDONTS. NewMail ")
"Here from is the address of the sender, to the address of the addressee, here for the email returned from the list.asp file
Objcdomail.from = "Wodeail@etang.com"
Objcdomail.to =email
