📄 sendmail.asp
字号:
<%dbdns="../"%>
<!--#include file="../conn.asp"-->
<!--#include file="../Config.asp"-->
<!--#include file="../client_infor.asp"-->
<%login_grade=session("login_grade")
admin_Remark_bak=session("Adm_Remark")
if len(session("login_name"))=0 then
%>
<script language="javascript">
alert("您没有权限访问,请登陆!")
window.location="index.asp"
</script>
<%response.end
elseif instr(login_grade,"6")=0 and admin_Remark_bak<>"super" then
%>
<script language="javascript">
alert("您的权限不够，不能访问该页面,请登陆!")
// window.location="index.asp"
window.history.back(-1);
</script>
<%response.end
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>邮件发送 - 机票后台管理</title>
<link rel="stylesheet" type="text/css" href="style/comm.css" />
<link rel="stylesheet" type="text/css" href="style/skin0.css" />
<style type="text/css">
<!--
.addr_line1 {font:bold 14px Verdana;padding:10px 0 3px 5px;margin-top:22px}
.submenu {background:#f2f7fc}
-->
</style>
<SCRIPT language=javascript>
<!--
function ChangeEmail(){
ZXLform.CEmail.value=ZXLform.Email.value;
}
-->
</SCRIPT>
</head>
<body class="tbody">
<div class="txt_title">邮件发送</div>
<div class="settingtable onesizeI"> </div>
<div id="masterdiv" class="settingtable onesizeI">
<span class="submenu" id="settingtable1">
<table width="95%" border="0" cellspacing="0" cellpadding="12" align="center">
<tr>
<td colspan="2" style="padding:0;"><div class="addr_line addr_line_top">给会员发送邮件</div></td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="0" class="settingtable">
<form id="ZXLform" name="ZXLform" method="post" action="sendmail.asp">
<tr class="normal black" >
<td colspan="2" style="text-align:right;"> </td>
</tr>
<tr class="normal black" >
<td width="120" style="text-align:right;">接收邮箱地址：</td>
<td><input name="CEmail" type="text" class="txt" id="CEmail" size="28" maxlength="130" />
<%
sql="select Mem_Name,Mem_Email from Tmember where Mem_Email<>'' order by Mem_ID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<select name="Email" onChange="ChangeEmail()">
<option value="">请选择联系人</option>
<%if not rs.eof then
do while not rs.eof
%>
<option value="<%=rs("Mem_Email")%>"><%=rs("Mem_Name")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></td>
</tr>
<tr class="normal black" >
<td width="120" style="text-align:right;">邮件主题：</td>
<td><input name="Subject" type="text" class="txt" id="Subject" size="28" maxlength="130" /></td>
</tr>
<tr class="normal black" >
<td width="120" style="text-align:right;">邮件内容：</td>
<td><textarea name="Content" rows="5" id="Content"></textarea></td>
</tr>
<tr class="normal black" >
<td width="120" style="text-align:right;"> </td>
<td><input type="submit" name="Submit" value=" 确认发送 "> <input type="reset" name="Submit2" value=" 重置表单 "></td>
</tr>
<tr class="normal black" >
<td colspan="2" style="text-align:right;"> </td>
</tr>
<input name="Act" type="hidden" id="Act" value="ok" />
</form>
</table>
<br>
</span>
</div>
<%
if request("Act")="ok" then
From=tmp(10)
FromName=tmp(1)
MailServerUserName=tmp(11)
MailServerPassword=tmp(12)
SMTP=tmp(13)
Website=tmp(2)
Otheinfo=tmp(21)
CEmail=request.Form("CEmail")
Subject=request.Form("Subject")
Content=request.Form("Content")
Subject = ""&Subject&""
AddRecipient = ""&CEmail&""
HTMLBody = ""&Content&"<br><br><a href="&Website&">点这里进入订票网站</a><br><br>如果您有任何疑问请致电我公司，服务热线："&tmp(15)&"<br>"&Otheinfo&""
'response.Write From&"<br>"&FromName&"<br>"&Subject&"<br>"&MailServerUserName&"<br>"&MailServerPassword&"<br>"&AddRecipient&"<br>"&HTMLBody&"<br>"&SMTP
Emailtype=1
if Emailtype=1 then
Jmailsend From,FromName,Subject,MailServerUserName,MailServerPassword,AddRecipient,HTMLBody,SMTP
else
SendMail From,AddRecipient,Subject,HTMLBody
end if
'Jmail邮件发送组件 1
Function Jmailsend(From,FromName,Subject,MailServerUserName,MailServerPassword,AddRecipient,HTMLBody,SMTP)
'Jmailsend(发送者地址,发送者姓名,邮件主题,身份验证的用户名,身份验证的密码,收件人地址,邮件主体,SMTP)
'On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为'US-ASCII'
' JMa il.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = From ' 发送者地址
JMail.FromName = FromName ' 发送者姓名
JMail.Subject = Subject ' 邮件主题
' 身份验证
JMail.MailServerUserName = MailServerUserName ' 身份验证的用户名
JMail.MailServerPassword = MailServerPassword ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("76062521@qq.com")
If Instr(AddRecipient,";") Then
AddR=Split(AddRecipient,";")
For i=0 to Ubound(AddR)
if i>Ubound(AddR) then exit for
JMail.AddRecipient (AddR(i))
Next
else
JMail.AddRecipient (AddRecipient)
End if
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = HTMLBody
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send(SMTP)
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
If err.number<>0 then
err.Clear
SendMail From,AddRecipient,Subject,HTMLBody
'Emailinfo= "<center>很遗憾，服务器暂不支持邮件发送！</center>"
else
response.Write "您的信息已经成功发送到指定邮箱。"
End if
End Function
'windows2003自带发送邮件 2
Function SendMail (mailFrom,mailTo,Subject,HtmlBody)
'On error resume next
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
with cm
.From=mailFrom
'发信人的邮箱
.To="76062521@qq.com;"&mailTo
'收信人的邮箱
.Subject=Subject
'邮件的主题
.HtmlBody=HtmlBody
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。
.Send
end with
Set cm=Nothing
if err then
SendMail=False
err.Clear
session("Emailinfo")="很遗憾，由于您的服务器不支持邮件发送！<br>请直接联系我们的客服，或者去帮助中心寻求帮助，感谢您对我们的支持！"
else
SendMail=True
response.Write "您的信息已经成功发送到指定邮箱！"
end if
End Function
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -