ASP编程：ASP进阶之文章在线办理更新(7)
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 这是本法式的次要特征功效之一。在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可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]
2