当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP进阶之文章在线管理更新(7)

ASP
利用ASP将HTML格式数据传输给Excel 的技巧
用ASP CSS实现随机背景
用ASP实现在线文章翻译的功能
动态网页爱好者来看：Asp过滤HTML的函数
自动去除字符中含有html代码的几个ASP函数
用ASP对网页进行简单的保护
ASP网页开发过程中的几个小技巧
ASP动态网页制作中使用SQL语句的方法
ASP开发中存储过程应用全接触
入门：初学ASP动态网页制作常用错误处理
ASP动态网页下UTF-8页面乱码的解决方法
小技巧：解决ASP脚本运行超时的方法
动态网页制作技术ASP开发中的常见问题
动态网页技术ASP日期和时间函数示例
ASP程序实现保存参数值的分页功能
用ASP寻找到真实IP地址的方法
ASP中文显示解决技巧及创建对象方法
ASP实例：Asp 防止网页频繁刷新一法
将ASP动态网页转换成HTM静态页面的方法
技巧：得到刚刚插入的记录的自动编号值一例

No. « 2 3 4 5 »

技术文章搜索

关键字

ASP进阶之文章在线管理更新(7)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 22 ::
收藏到网摘: n/a

  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 ="[email protected]"    
objCDOMail.To =email
   "取出数据库中指定记录集中的文章标题字段title做邮件的主题   
objCDOMail.Subject =rs("title")  
   "取出数据库中指定记录集中的文章内容字段content做邮件的内容部分,在这里可以用"&&"插入自己的内容
objCDOMail.Body ="文章标题："&rs("title")&chr(13)&chr(10)&"正文："&rs("content")&chr(13)&chr(10)&"欢迎继续使用ASP动网先锋论坛http://aasp.yeah.net"&chr(13)&chr(10)&"Email：[email protected]"    
objCDOMail.Send
   "关闭连接
Set objCDOMail = Nothing
rs.close
set rs=nothing
%>
<p><br></p>
        <div align="center">
          <p><font size="3">文章发送成功，请再继续阅读本站其他文章；有什么问题请在论坛提出！</font></p>
          <p><font size="3">感谢您一如既往地对<b><font color="#FF0000">ASP动网先锋（http://aasp.yeah.net）</font></b>的支持，这里的建设离不开您的意见和建议！
            </font></p>
        </div>
<%
response.write "</td></tr></table>"
   "假如发送过程出错,显示出错信息
else%>
        <p>&nbsp; <font color="#FF0000"><br>
          Sorry， 您的信息不能正确发送，请再仔细检查以下的项目是否正确：</font>
    &n