ASP网站制作之ASP进阶之文章在线办理更新（六）

显示全部楼层 · 发表于 2015-1-16 23:21:40

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

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

x

因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。在线ASP进阶之文章在线办理更新--文章转发邮箱篇

沙岸小子

这是本程序的次要特征功效之一。在ASP中，能够经由过程使用NT中的SMTP来完成邮件的在线发送，不外你必需确认你的体系内里安装了WINDOWSNTOPTONPACK的SMTPSERVICE，在本文章办理体系中就是经由过程其来完成文章的在线发送的，只不外同时必需挪用数据库中的内容并把它发送到邮箱中。

上面就为人人先容其详细完成的历程，以下是邮件发送程序（sendemail.asp）的详细代码和注解：

"拔出翻开数据库毗连文件

<html>
<head>
<metaHTTP-EQUIV="Content-Type"CONTENT="text/html;charset=gb2312">
<title>发送文章到邮箱</title>
</head>
<body>
<%
"界说相干变量
dimemail
dimfounderr
dimcon
dimrs,sql
fouunderr=false
dimerrmsg
email=trim(Request.Form("email"))
"使用事前界说的IsValidEmail函数判别email誊写是不是有误
ifIsValidEmail(email)=falsethen
errmsg=errmsg+"<li>您的email有毛病!</li>"
founderr=true
endif
%>
<divalign=center>
<tableborder="0"cellspacing="0"width="85%"cellpadding="0"
height="17"class="tableclass">
<tr>
<tdwidth="100%">
<%
iffounderr=falsethen
dimobjCDOMail
"经由过程从list.asp前往的ID值断定必要翻开纪录集article的内容
setrs=server.createobject("adodb.recordset")
sql="select*fromarticlewherearticleid="&request("id")
rs.opensql,conn,1,1
"使用CDONTS.NewMail发送邮件
SetobjCDOMail=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
"封闭毗连
SetobjCDOMail=Nothing
rs.close
setrs=nothing
%>
<p><br></p>
<divalign="center">
<p><fontsize="3">文章发送乐成，请再持续浏览本站其他文章；有甚么成绩请在论坛提出！</font></p>
<p><fontsize="3">感激您自始自终地对<b><fontcolor="#FF0000">ASP动网前锋（http://aasp.yeah.net）</font></b>的撑持，这里的建立离不开您的定见和倡议！
</font></p>
</div>
<%
response.write"</td></tr></table>"
"假设发送历程堕落,显现堕落信息
else%>
<p><fontcolor="#FF0000"><br>
Sorry，您的信息不克不及准确发送，请再细心反省以下的项目是不是准确：</font>
<ul>
<fontcolor="#FF0000"><%response.writeerrmsg%>
</font>
</ul></td>
</tr>
</table>
</div>
<ddalign="center">
<divalign="center"><br>
</div>
</form>
<%
endif
%>

</body>
</html>
<%
"判别EMAIL地点是不是准确
functionIsValidEmail(email)
dimnames,name,i,c
IsValidEmail=true
names=Split(email,"@")
ifUBound(names)1then
IsValidEmail=false
exitfunction
endif
foreachnameinnames
ifLen(name)<=0then
IsValidEmail=false
exitfunction
endif
fori=1toLen(name)
c=Lcase(Mid(name,i,1))
ifInStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0andnotIsNumeric(c)then
IsValidEmail=false
exitfunction
endif
next
ifLeft(name,1)="."orRight(name,1)="."then
IsValidEmail=false
exitfunction
endif
next
ifInStr(names(1),".")<=0then
IsValidEmail=false
exitfunction
endif
i=Len(names(1))-InStrRev(names(1),".")
ifi2andi3then
IsValidEmail=false
exitfunction
endif
ifInStr(email,"..")>0then
IsValidEmail=false
endif

endfunction
%>
</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

显示全部楼层 · 发表于 2015-2-6 13:29:00

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

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

[学习教程] ASP网站制作之ASP进阶之文章在线办理更新（六）

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

相关帖子

浏览过的版块