ASP進階之文章線上管理更新--文章轉寄信箱篇
作者：沙灘小子
這是本程式的主要特色功能之一。在ASP中，可以通過利用NT中的SMTP來實現郵件的線上發送，不過你必須確認你的系統裡面安裝了WINDOWS NT OPTON PACK 的SMTP SERVICE，在本文章管理系統中就是通過其來實現文章的線上發送的，只不過同時必須調用資料庫中的內容並把它發送到郵箱中。
下面就為大家介紹其具體實現的過程，以下是郵件發送程式（sendemail.asp）的具體代碼和註解：
"插入開啟資料庫連接檔案
<!--#include file="conn.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>發送文章到郵箱</title>
</head>
<body>
<%
"定義相關變數
dim email
dim founderr
dim con
dim rs,sql
fouunderr=false
dim errmsg
email=trim(Request.Form("email"))
"利用事先定義的IsValidEmail函數判斷email書寫是否有誤
if IsValidEmail(email)=false then
errmsg=errmsg+"<li>您的email有錯誤!</li>"
founderr=true
end if
%>
<div align=center>
<table border="0" cellspacing="0" width="85%" cellpadding="0"
height="17" class="tableclass">
<tr>
<td width="100%" >
<%
if founderr=false then
dim objCDOMail
"通過從list.asp返回的ID值確定需要開啟記錄集article的內容
set rs=server.createobject("adodb.recordset")
sql="select * from article where articleid="&request("id")
rs.open sql,conn,1,1
"利用CDONTS.NewMail發送郵件
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
"這裡的FROM為發信人的地址,TO為收信人的地址,在這裡為從list.asp檔案返回的email
objCDOMail.From ="wodeail@etang.com"
objCDOMail.To =email
