📄 sentemail.asp

📁 人事管理系统毕业论文和代码希望大家喜欢
💻 ASP
字号:
<!--#include file="articleconn.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
con="ASP动网先锋制作｜&copy;2000,All Right Servered，http://aasp.yeah.net，OICQ:421634"
email=trim(Request.Form("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
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")
rs.open sql,conn,1,1
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =wodeail@etang.com    
objCDOMail.To =email   
objCDOMail.Subject =rs("title")  
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">文章发送成功，请再继续阅读本站其他文章；有什么问题请在<a href="http://www.meidao.net/bbs2001">论坛</a>提出！</font></p>
          <p><font size="3">感谢您一如既往地对<font color="#FF0000"><b>..:味道网:.. 版权所有，<span style="font-family:宋体; font-size: 9pt"><a href=# title=点击些处，关于我们... style="color:blue" target="_new" onClick="javascript:alert('\t\『味道网\』 版权所有\n\n程序设计:Kinwah.CHEN \n\t 陈贤福\n\n站点美工:陈健华\n\t 陈贤福 Ai\n\n社区顾问:Kinwah.CHEN\n\n味道网(C.)2001-2003');return false;">Three-UNknown拍档组合</a></span>&copy;2001-2003 
            All Rights Reserved</b></font><b> </b>的支持，这里的建设离不开您的意见和建议！ </font></p>
        </div>
<%
response.write "</td></tr></table>"
else%>
        <p>&nbsp; <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>
  <%
end if
%>
</body>
</html>
<%
function IsValidEmail(email)

dim names, name, i, c

'Check for valid syntax in an email address.

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
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -