📄 sendmail.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<!--#include file="../Webconfig.asp"-->
<!--#include file="../char.asp"-->
<script src="ubbcode.js"></script>
<%dim userid,action,username,sendusermail
userid=int(request.QueryString("id"))
action=trim(request.QueryString("Action"))
if action="sendmail" then call sendemail()
set rs=server.CreateObject("adodb.recordset")
rs.open "select username,useremail from [shop_users] where userid="&userid,conn,1,1
username=trim(rs("username"))
sendusermail=trim(rs("userEmail"))
rs.close
set rs=nothing
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6396D6">
<tr>
<td height="18" background="images/admin_bg.gif"><div align="center"><strong><font color="#FFFFFF">给用户发送邮件</font></strong></div></td>
</tr>
<tr>
<td height="113" bgcolor="#DEE7FF"><br>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="myform" method="post" action="SendMail.asp?Action=sendmail">
<tr bgcolor="#DEE7FF">
<td width="15%"><div align="center"> 接收邮箱：</div></td>
<td width="85%" style="padding-left:6px"><input name="sendAddr" type="text" id="sendAddr" value=<%=sendusermail%>>
<input name=comeurl type=hidden value=<%=Request.ServerVariables("HTTP_REFERER")%>></td>
</tr>
<tr bgcolor="#DEE7FF">
<td><div align="center">邮件主题：</div></td>
<td style="padding-left:6px"><input name="mailTitle" type="text" id="mailTitle"></td>
</tr>
<tr bgcolor="#DEE7FF">
<td> </td>
<td style="padding-left:6px"><!--#include file="getUbb.asp" --></td>
</tr>
<tr bgcolor="#DEE7FF">
<td><div align="center">邮件内容：</div></td>
<td style="padding-left:6px"><textarea name="content" cols="60" rows="9" id="content"><%=username%>您好：</textarea></td>
</tr>
<tr bgcolor="#DEE7FF">
<td><div align="center"></div></td>
<td style="padding-left:6px"><input type="submit" name="Submit" value="确认发送"></td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
<br>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6396D6">
<tr>
<td height="16" background="images/admin_bg.gif"><div align="center"><font color="#FFFFFF"><strong>操作注意事项及说明</strong></font></div></td>
</tr>
<tr>
<td height="37" bgcolor="#DEE7FF"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>·使用此功能，首先要确保您的邮件发送功能已打开。<br>
</td>
</tr>
</table></td>
</tr>
</table><!--#include file="copyright.asp"-->
</body>
</html>
<%
sub sendemail()
if sendmail>0 then
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select jmailuser,jmailmail,jmailsmtp,jmailpassword from shop_config",conn,1,1
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'发送邮件参数设置
smtpserver = trim(rs1("jmailsmtp")) '//邮件服务器
smtpuser = trim(rs1("jmailuser")) '//用户名
smtpemail = trim(rs1("jmailmail")) '//邮件地址
smtppwd = trim(rs1("jmailpassword")) '//密码
rs1.close
set rs1=nothing
email=trim(request("sendAddr")) '//收信人地址
title=trim(request("mailTitle")) '//标题
msg=ubbcode(trim(request("content"))) '//内容
'发送邮件
select case sendmail
case 1
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From = smtpemail '//这里是发信人地址
jmail.FromName = webname '//发信人姓名
jmail.Subject = title '//标题
jmail.AddRecipient email '//地址
jmail.Body = msg '//内容
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
jmail.Close
set jmail = nothing
case 2
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.bodyFormat=0 '/支持html
objCDO.mailFormat=0 '/支持html
objCDO.To = email
objCDO.From = smtpemail & "("& webname &")"
'objCDO.bcc = "janedoe@aol.com" ’Blind cc 抄送
objCDO.Subject = title
objCDO.Body = msg
objCDO.Importance = 2 'High importance!
'objCDO.AttachFile("\\server\jane\resume.doc","Resume.doc") //附件
objCDO.Send 'Send off the email!
'Cleanup
Set objCDO = Nothing
end select
else
response.write "<script language=javascript>alert('发送失败，邮件发送功能未打开或服务器不支持Jmail。');window.location.reload('"&trim(request("comeurl"))&"')</script>"
response.End()
end if
response.write "<script language=javascript>alert('恭喜您，邮件发送成功！');window.location.reload('"&trim(request("comeurl"))&"')</script>"
response.End
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -