📄 email.asp
字号:
<!--#include file="connbbs.asp"-->
<!--#include file="../const.asp"-->
<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<%sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=fromEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
sub Cdonts(email)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =fromEmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
sub aspemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=fromEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>发送邮件-<%=sysname%>班级主页</title>
<link rel="stylesheet" href="../index.css">
</head>
<body background="../image/bg.gif"><table width=100%>
<tr><td align=center>
<% if request("action")="sendto" then
email=request("toemail")
fromemail=request("fromemail")
topic=request("topic")
mailbody=trim(request("touser"))&":<br>"
mailbody=mailboy&trim(request("body"))
mailbody=mailboy&"       你的朋友:"&trim(request("fromuser"))
if EmailFlag=0 then%><center>对不起，本系统不支持发送电子邮件!
<%elseif EmailFlag=1 then
Response.Write "<center> 成功发送"
email =request("toemail")
call Jmail(email)
%>
<%elseif EmailFlag=2 then
Response.Write "<center> 成功发送！"
email =request("toemail")
call Cdonts(email)
%>
<%elseif EmailFlag=3 then
Response.Write "<center> 成功发送"
email =request("toemail")
call Aspemail(email)
end if
end if
%>
<% if request("action")<>"sendto" then
user=request("user")
user=replace(user,"'","")
set rs=server.createobject("ADODB.recordset")
sql="select email from user where user='"&user&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<br><br><br><br><br><br><b>对不起，找不到该用户"
else%><form method="post" action="email.asp">
<table width=100%><tr><td width=30%>对方呢称:</td><td><input type=text name=touser value="<%=user%>"></td></tr>
<tr><td>对方信箱:</td><td><input type=text name=toemail value="<%=rs("email")%>"></td></tr>
<tr><td>你的信箱:</td><td><input type=hidden name=fromuser value="<%=session("user")%>"><input type=text name=fromemail value=""><input type=hidden name=action value="sendto"></td></tr>
<tr><td>邮件主题:</td><td><input type=text name=topic size=24 value=""></td></tr>
<tr><td valign=top>邮件内容：</td><td><textarea
cols="30" name="body" rows="9"></textarea></td></tr>
<tr><td valign=top> <input type="image" src="../image/1-sub.gif"></td><td><a href="javascript:reset()"><img border="0" src="../image/1-reset.gif" width="44" height="23"></a> </form></td></tr></table>
<% end if
end if%></td></tr></table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -