📄 sendmail.asp

📁 实现一定上传功能
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<%
sub sendmail( fromWho, toWho, Subject, Body )
     dim mymail
	setmymail = Server.CreateObject("CDONTS.Newmail")
	mymail.From = fromWho
	mymail.To = toWho
	mymail.Subject = Subject
	mymail.Body = Body
	mymail.Send
	set mymail = Nothing
end sub

fromWho = TRIM( Request.Form( "fromWho" ) )
toWho = TRIM( Request.Form( "toWho" ) ) 
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body" ) )

if toWho <> "" then
     sendMail fromWho, toWho, Subject, Body

end if
%>
<HTML>
<HEAD>
<TITLE>推荐文章</TITLE>
<link rel="stylesheet" type="text/css" href="css.css">

<script language="javascript">

function allowsend(udform)
{
var torf,torf1,torf2,torf3

var str1=udform.towho.value


var strlen1=str1.length

var atplace1=str1.match("@")

 if (strlen1>0)
  {

          if (!atplace1 || strlen1<5)
             {  
           alert("email填写不正确！")
           torf1=false     
             }
          else 
           {
            torf1=true
            }


    }

  else 
 {
alert ("请输入你要发送到的地址！")
 torf1=false
  }
return torf1
}
</script>
</HEAD>

<BODY BGCOLOR="#FFFFFF">

<form method="post" name="sendmail" actionn="sendmail.asp" onsubmit="return allowsend(sendmail)">
<BR>
 <%
 num=LTrim(request("num"))
  if num=""   then 
     response.write "<center><font size=3 color=#ff0000><b>你没有选择新闻标题！</b></font></center>"
     iterror=1     '定义一个标志性的变量

 end if

dim sql
dim rs
 sql="select * from article where title like '%" & num & "%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> 
  <table width="75%" border="0" align="center">
    <tr bgcolor="#F7F7F7"> 
      <td width="23%" class="unnamed2">好友信箱地址：</td>
      <td width="77%"> 
        <input name="towho" type="text" size=40 class="unnamed5">
      </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td width="23%" class="unnamed2">你的信箱地址：</td>
      <td width="77%"> 
        <input name="fromwho" type="text" size=40 class="unnamed5">
      </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td width="23%" height="44" class="unnamed2">标题：</td>
      <td width="77%" height="44"> 
        <input name="Subject" type="text" size=40 value="<%=rs("title")%>" class="unnamed5" maxlength="100">
      </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td width="23%" class="unnamed2">发送内容：</td>
      <td width="77%"> 
        <textarea name="Body" cols=60 rows=10><%content=replace(rs("content"),"<br>",chr(13))
            content=replace(content,"&nbsp;"," ")
            content=replace(content,"<img src=","[starark]")
            content=replace(content,"></img>","[/starark]")
            response.write content%></textarea>
      </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td width="23%">&nbsp;</td>
      <td width="77%"> 
        <div align="center">
          <input type="SUBMIT" value="发送" name="SUBMIT" class="unnamed5">
        </div>
      </td>
    </tr>
  </table>
  <BR>
  <BR>
</FORM>
</BODY>
</HTML>
<% 
 rs.close 
set rs=nothing 
  conn.close  
  set conn=nothing  
%>
⌨️ 快捷键说明

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