📄 sentemail.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统
💻 ASP
字号:
<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/char.inc"-->
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>发送文章到邮箱</title>
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>

<body>
<%
dim youname
dim email
dim youemail
dim founderr
dim con
dim rs,sql
fouunderr=false
dim errmsg
con="常用网址制作｜&copy;2000,All Right Servered，http://21feng.yeah.net，OICQ:2561496"
youname=trim(Request.Form("youname"))
youemail=trim(Request.Form("youemail"))
email=trim(Request.Form("email"))
if len(youemail)=0 then
   errmsg=errmsg+"<li>您的昵称不能为空!</li>"
   founderr=true
end if
if IsValidEmail(youemail)=false then
   errmsg=errmsg+"<li>您的email有错误!</li>"
   founderr=true
end if
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 yqlink where articleid="&request("id")
rs.open sql,conn,1,1
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =youemail    
objCDOMail.To =email   
objCDOMail.Subject ="网站介绍"  
objCDOMail.Body ="您的好友"&youname&"在参观本站的常用网址后，将以下网站介绍给您："&chr(13)&chr(10)&"网站名称："&rs("webname")&chr(13)&chr(10)&"网站地址："&rs("homepage")&chr(13)&chr(10)&"网站说明："&rs("content")&chr(13)&chr(10)&"欢迎继续再次光临常用网址网站http://21feng.yeah.net"&chr(13)&chr(10)&"Email：cwm@netease.com"    
objCDOMail.Send
Set objCDOMail = Nothing
rs.close
set rs=nothing
%>
<p><br></p>
        <div align="center">
          <p>网站内容发送成功，请再继续浏览阅读本站；有什么问题请在论坛提出！</p>
          <p>感谢您一如既往地对<b><font color="#FF0000">常用网址（http://21feng.yeah.net）</font></b>的支持，这里的建设离不开您的意见和建议！ 
            </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>
  <%
end if
%>  
<div align="center"><br>
<!--#include file="function/ads.inc"--></div>
</body>
</html>
⌨️ 快捷键说明

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