<!--#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="jiang_3428@163.com"
'利用事先定义的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 ="jiang_3428@sina.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
%>
运行后不出错，但是邮件也没受到，各位老兄帮忙看看吧，很急的！！！！！
