邮件后台发送

提供个实用的小修改，关于邮件的，每次修改都要上传累，在后台统一管理多好！以下是修改方法
1，修改common.asp
第二行dim web_dim(22)
修改为dim web_dim(25)
2，修改admin_config_edit.asp
找到   <tr><td colspan=3 class=td> 网站安全过滤设置</td></tr>
在上面一行添加
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>SMTP邮件服务器：</td>
  <td><input type=text name=web_dim_23 value='<%response.write web_dim(23)%>' size=30 maxlength=60> </td>
  <td class=gray>发信的邮件服务器，例如：220.221.23.56或者mail.cnfreebo.com</td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=web_dim_24 value='<%response.write web_dim(24)%>' size=30 maxlength=60></td>
<td class=gray>如果用“name@domain.com”这样的用户名登录时，请指明domain.com</td>
</tr>
<tr>
<td>SMTP认证密码：</td>
  <td><input type=text name=web_dim_25 value='<%response.write web_dim(25)%>' size=30 maxlength=60> </td>
  <td class=gray>发信的邮件服务器的SMTP认证密码</td>  </tr>
</tr>
3，修改 jk_sendmail.asp的
function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
过程
以下是我的代码，大家对照下

function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
  on error resume next
  dim Jmail
  Set Jmail=server.createobject("Jmail.Message")
  Jmail.Charset="gb2312"
  Jmail.Priority=1     '优先级
  Jmail.MailServerUserName=web_dim(24)  '这里换成您的SMTP验证帐号
  Jmail.MailServerPassword=web_dim(25)             '这里填写您的SMTP认证密码
  Jmail.From=j_email     '发信人邮件地址
  Jmail.FromName=j_name     '发信人姓名
  Jmail.Subject=j_Subject    '信件主题
  Jmail.AddRecipient j_sendname    '收信人地址
  Jmail.Body=j_HTMLBody     'TXT Mailbody参数是信件正文
  'JMail.HTMLBody=j_HTMLBody    'HTML信件正文
  Jmail.Send(web_dim(23))    '发信的邮件服务器
  Jmail.clear
  Set Jmail=nothing
  send_jmail=true
  if err then
    err.clear
    send_jmail=false
  end if
end function

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: