ASP编程：ASP进阶之文章在线办理更新(7)

显示全部楼层 · 发表于 2015-2-3 23:31:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。这是本法式的次要特征功效之一。在ASP中，可以经由过程使用NT中的SMTP来完成邮件的在线发送，不外你必需确认你的体系外面装置了WINDOWS NT OPTON PACK 的SMTP SERVICE，在本文章办理体系中就是经由过程其来完成文章的在线发送的，只不外同时必需挪用数据库中的内容并把它发送到邮箱中。

上面就为人人引见其详细完成的进程，以下是邮件发送法式（sendemail.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可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：ASP进阶之文章在线办理更新(7)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子