📄 sendmail.asp

📁 ·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构信息
💻 ASP
字号:
<!--#include file="dbpath.asp"-->
<!--#include file="confirm.asp"--><%
if Request.Form("toWho")<>"" then
fromWho = Request.Form("fromWho")
toWho = Request.Form("toWho") 
imagename = Request.Form("imagename") 
id = Request.Form("id") 
yourname = Request.Form("yourname")
message = Request.Form("message")
galleryname = Request.Form("galleryname")
url = Request.Form("url")
    dim mymail
	set mymail = Server.CreateObject("CDONTS.Newmail")
	mymail.From = fromWho
	mymail.To = toWho
	mymail.Subject = "此图片推荐自你的好友:"&yourname&""
	mymail.Body = "这封EMAIL是由你的朋友"&yourname&"发给你的！<br>"&message&"<br>---------------------------------------------<br>图片名称："&imagename&"<br>观看此图片："&url&"/showimage.asp?id="&id&"<br>来自：<a href="&url&">"&galleryname&"</a>"
	mymail.Send
	set mymail = Nothing
response.write ("<center><font size=1>发送成功&nbsp;&nbsp;<a href=javascript:self.close()>关闭窗口</a></font><center>"& VbCrlf)
response.end
else
%>
<HTML>
<HEAD>
<TITLE>send this page</TITLE>
<link rel="stylesheet" type="text/css" href="links.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 ("请填写你的EMAIL！")
 torf1=false
  }
return torf1
}
</script>
</HEAD>

<BODY>

<form method="post" name="sendmail" actionn="sendmail.asp" onsubmit="return allowsend(sendmail)">
<%dim objRS,sql
dim id
id = request.querystring("id")
  if id=""   then 
     response.write "<center><font size=3 color=#ff0000><b>Wrong parameter!no site selected!</b></font></center>"
     

 end if

set objrs=server.createobject("adodb.recordset")
 sql="select * from gallery where id= " & id&""

objRS.Open sql, objConn, 3, 3
%> 
<input type="hidden" name="imagename" value="<%=objRS("imagename")%>">
<input type="hidden" name="id" value="<%=objRS("id")%>">
<input type="hidden" name="galleryname" value="<%=objrs1("galleryname")%>">
<input type="hidden" name="url" value="<%=objrs1("url")%>">
  <table width="300" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000" bordercolordark="#FFFFFF">
    <TBODY> 
    <tr> 
      <td background="images/background.gif" height="20" align="center" colspan="2"><b>推荐这张图片</b></td>
    </tr>
    <tr> 
      <td width="100"> 
        <div align="center">朋友的邮箱：</div>
      </td>
      <td width="170"> 　
<input name="towho" type="text" size=20>
      </td>
    </tr>
    <tr> 
      <td width="100"> 
        <div align="center">自己的邮箱：</div>
      </td>
      <td width="170"> 　
<input name="fromwho" type="text" size=20>
      </td>
    </tr>
    <tr> 
      <td width="100" height="44"> 
        <div align="center">你的名字：</div>
      </td>
      <td width="170" height="44"> 　
<input name="yourname" type="text" size=20  maxlength="100">
      </td>
    </tr>
    <tr> 
      <td width="100"> 
        <div align="center">信息：</div>
      </td>
      <td width="170"> 　 
        <textarea name="message" cols=18 rows=4></textarea>
      </td>
    </tr>
    <tr> 
      <td colspan="2"> 
        <div align="center"> <br>
          <input type="SUBMIT" value=" 发 送 " name="SUBMIT" class="unnamed5">
          <br>
          <br>
          <a href=javascript:self.close()>关闭窗口</a> <br>
        </div>
      </td>
    </tr>
  </table>
  <div align="center"><a href=javascript:self.close()><br>
    </a></div>
</FORM>
</BODY>
</HTML>
<% end if
 objrs.close 
set objrs=nothing 
objrs1.close
set objrs1=nothing
  objconn.close  
  set objconn=nothing  
%>
⌨️ 快捷键说明

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