 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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 "取出数据库中指定记录集中的文章标题字段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：wodeail@etang.com" 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> <font color="#FF0000"><br> Sorry， 您的信息不能准确发送，请再仔细检查以下的项目是否准确：</font> <ul> <font color="#FF0000"><%response.write errmsg%> </font> </ul></td> </tr> </table> </div> <dd align="center"> <div align="center"><br> </div> </form> <% end if %> </body> </html> <% "判定EMAIL地址是否准确 function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function %> 通过邮件的发送和检查程序，我们就可以容易的把需要的文章发送到自己的邮箱，并且这个程序你也可以修改成邮件的在线发送程序，或者也可以做成论坛的帖子转送程序，当然在ASP中发送EMAIL的方式并不是就一种，有很多的第三方组件可以更好的实现这一功能，比如JMAIL。下一节我将为大家介绍本治理系统的主页面，也就是显示所有文章的标题和连接。 返回类别: 教程 上一教程: 不刷新页面筛选数据库中的数据 下一教程: 远程获取内容，并将内容存在本地电脑上，包括任何文件 您可以阅读与"ASP进阶之文章在线治理更新(7)"相关的教程: · ASP进阶之文章在线治理更新(1) · ASP进阶之文章在线治理更新(4) · ASP进阶之文章在线治理更新(8) · ASP进阶之文章在线治理更新(9) · ASP进阶之文章在线治理更新(12) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
