📄 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">文章发送成功，请再继续阅读本站其他文章；有什么问题请在论坛提出！</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;"><font size="3"><font color="#FF0000"><b>..:味道网:..</b></font></font></a></span></b></font>的支持，这里的建设离不开您的意见和建议！ 
            </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> 
<dl> 
  <dd align="center"> 
    <div align="center"><br> 
    </div> 
</form> 
<% 
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 + -