[软件名称]发送数据库备份邮件
[上传会员] 站长之家(1000)
[更新日期] 2013-05-11
[资费说明] 使用完全免费
[安全说明] 无病毒/无插件/无暗扣
[界面语言] 简体中文
[浏览人气] 232
[所属分类] 其它程序
[客户评分] ★★★★★
软件参数
软件下载
sendmail(rar/2.1KB)
<!--#include file=“pub.asp“-->
<!DOCTYPE html PUBLIC “-//WAPFORUM//DTD XHTML Mobile 1.0//EN“ “http://www.wapforum.org/DTD/xhtml-mobile10.dtd“>
<html xmlns=“http://www.w3.org/1999/xhtml“>
<head>
<meta http-equiv=“Content-Type“ content=“text/html; charset=utf-8“ />
<meta http-equiv=“Pragma“ content=“no-cache“/>
<meta http-equiv=“Cache-Control“ content=“no-cache“/>
<meta http-equiv=“Expires“ content=“0“/>
<title>发送数据库备份邮件</title>
<style type=“text/css“>
<!--
html,body{background-color:#EFF0E2;margin:2px;padding:0px;height:100%;font:Arial,Helvetica,sans-serif;}
/* 链接颜色 */
a:link,a:visited{color:#CC0000;text-decoration:none}
a:hover{text-decoration:underline;}
/* 区别链接颜色 */
.differ{}
a.differ:link,a.differ:visited{color:#0099ff;text-decoration:none}
a.differ:hover{text-decoration:underline;}
-->
</style>
</head>
<body>
<%
on error resume next
‘温馨提示：服务器支持Jmail组件才可用
‘1、请将此文件参数配置修改后上传到微博根目录下
‘2、电脑、手机均可访问此文件。为了使用方便，请您分别在电脑版、手机版添加本文件超链接(建议在管理功能“文件”下添加超链接)
‘###以下为参数配置###
new_toname=WebUser ‘收件人称呼(可不修改此项)
new_sendto=“XXX@XXX“ ‘收件箱地址
new_subject=WebTitle&“数据库备份“ ‘邮件标题(可不修改此项)
new_body=“附件是“&WebTitle&“数据库备份，请注意保存。“&VbCrLf&“欢迎您关注http://wapzz.cn“ ‘邮件正文(可不修改此项)
new_AddAttachment=DBPath ‘附件，相对路径(可不修改此项)
new_fromname=WebTitle ‘发件人称呼(可不修改此项)
new_from=“XXX@XXX“ ‘发件箱地址
new_serveraddress=““ ‘发件箱所使用的SMTP服务器地址，如smtp.qq.com
new_username=““ ‘SMTP服务器的验证用户名
new_password=““ ‘SMTP服务器的验证密码
‘###参数配置结束###
If Request.Cookies(“Verification-“&Flag) <> pass Then
Response.Write “您没有权限发送邮件。请登录管理后再操作。<br />“&VbCrLf
Response.Write “<a href=“““&WebUrl&“““>返回“&WebTitle&“</a>“&VbCrLf
Response.Write “</body>“&VbCrLf
Response.Write “</html>“&VbCrLf
Response.End()
End if
If sendmail(new_toname,new_sendto,new_subject,new_body,new_AddAttachment,new_fromname,new_from,new_serveraddress,new_username,new_password) Then
new_sendmail=“邮件成功发送到“&new_sendto&“<br />“
Else
new_sendmail=“邮件发送失败！<br />帮助参考：<br />服务器支持Jmail组件才可用；<br />检查参数配置是否正确。<br />“
End If
Response.Write new_sendmail&VbCrLf
Response.Write “<a href=“““&WebUrl&“““>返回“&WebTitle&“</a>“&VbCrLf
‘==============================
‘函数sendmail
‘基于Jmail组件Message对象的邮件发送。
‘返回值：BOOL，发送成功返回True，否则返回False。
‘参数：
‘toname:收件人称呼
‘sendto:收件箱地址
‘subject:邮件标题
‘body:邮件正文
‘AddAttachment:附件，相对路径
‘fromname:发件人称呼
‘from:发件箱地址
‘serveraddress:发件箱所使用的SMTP服务器地址
‘username:SMTP服务器的验证用户名
‘password:SMTP服务器的验证密码
‘==============================
function sendmail(toname,sendto,subject,body,AddAttachment,fromname,from,serveraddress,username,password)
dim jmail,return
set jmail=server.CreateObject(“JMAIL.Message“) ‘建立邮件对象
jmail.silent=true ‘屏蔽例外错误
jmail.logging=true ‘启用邮件日志
jmail.charset=“utf-8“ ‘邮件的文字编码
‘jmail.contenttype=“text/html;charset=utf-8“ ‘邮件的格式为HTML格式。如果发附件一定要注释掉这行，不然出现乱码，重要！
jmail.addrecipient sendto,toname
jmail.fromname=fromname
jmail.from=from
jmail.mailserverusername=username
jmail.MailServerPassword=password
jmail.subject=subject
jmail.body=body
if Trim(AddAttachment)<>““ then
Jmail.AddAttachment Server.MapPath(AddAttachment),true
end if
jmail.priority=3 ‘邮件的紧急程序，1为最快，5为最慢，3为默认值
return=jmail.send(serveraddress) ‘执行邮件发送
jmail.close() ‘关闭邮件对象
set jmail=nothing
sendmail=return
end function
%>
</body>
</html>
<!--#include file=“pub.asp“-->
<!DOCTYPE html PUBLIC “-//WAPFORUM//DTD XHTML Mobile 1.0//EN“ “http://www.wapforum.org/DTD/xhtml-mobile10.dtd“>
<html xmlns=“http://www.w3.org/1999/xhtml“>
<head>
<meta http-equiv=“Content-Type“ content=“text/html; charset=utf-8“ />
<meta http-equiv=“Pragma“ content=“no-cache“/>
<meta http-equiv=“Cache-Control“ content=“no-cache“/>
<meta http-equiv=“Expires“ content=“0“/>
<title>发送数据库备份邮件</title>
<style type=“text/css“>
<!--
html,body{background-color:#EFF0E2;margin:2px;padding:0px;height:100%;font:Arial,Helvetica,sans-serif;}
/* 链接颜色 */
a:link,a:visited{color:#CC0000;text-decoration:none}
a:hover{text-decoration:underline;}
/* 区别链接颜色 */
.differ{}
a.differ:link,a.differ:visited{color:#0099ff;text-decoration:none}
a.differ:hover{text-decoration:underline;}
-->
</style>
</head>
<body>
<%
on error resume next
‘温馨提示：服务器支持Jmail组件才可用
‘1、请将此文件参数配置修改后上传到微博根目录下
‘2、电脑、手机均可访问此文件。为了使用方便，请您分别在电脑版、手机版添加本文件超链接(建议在管理功能“文件”下添加超链接)
‘###以下为参数配置###
new_toname=WebUser ‘收件人称呼(可不修改此项)
new_sendto=“XXX@XXX“ ‘收件箱地址
new_subject=WebTitle&“数据库备份“ ‘邮件标题(可不修改此项)
new_body=“附件是“&WebTitle&“数据库备份，请注意保存。“&VbCrLf&“欢迎您关注http://wapzz.cn“ ‘邮件正文(可不修改此项)
new_AddAttachment=DBPath ‘附件，相对路径(可不修改此项)
new_fromname=WebTitle ‘发件人称呼(可不修改此项)
new_from=“XXX@XXX“ ‘发件箱地址
new_serveraddress=““ ‘发件箱所使用的SMTP服务器地址，如smtp.qq.com
new_username=““ ‘SMTP服务器的验证用户名
new_password=““ ‘SMTP服务器的验证密码
‘###参数配置结束###
If Request.Cookies(“Verification-“&Flag) <> pass Then
Response.Write “您没有权限发送邮件。请登录管理后再操作。<br />“&VbCrLf
Response.Write “<a href=“““&WebUrl&“““>返回“&WebTitle&“</a>“&VbCrLf
Response.Write “</body>“&VbCrLf
Response.Write “</html>“&VbCrLf
Response.End()
End if
If sendmail(new_toname,new_sendto,new_subject,new_body,new_AddAttachment,new_fromname,new_from,new_serveraddress,new_username,new_password) Then
new_sendmail=“邮件成功发送到“&new_sendto&“<br />“
Else
new_sendmail=“邮件发送失败！<br />帮助参考：<br />服务器支持Jmail组件才可用；<br />检查参数配置是否正确。<br />“
End If
Response.Write new_sendmail&VbCrLf
Response.Write “<a href=“““&WebUrl&“““>返回“&WebTitle&“</a>“&VbCrLf
‘==============================
‘函数sendmail
‘基于Jmail组件Message对象的邮件发送。
‘返回值：BOOL，发送成功返回True，否则返回False。
‘参数：
‘toname:收件人称呼
‘sendto:收件箱地址
‘subject:邮件标题
‘body:邮件正文
‘AddAttachment:附件，相对路径
‘fromname:发件人称呼
‘from:发件箱地址
‘serveraddress:发件箱所使用的SMTP服务器地址
‘username:SMTP服务器的验证用户名
‘password:SMTP服务器的验证密码
‘==============================
function sendmail(toname,sendto,subject,body,AddAttachment,fromname,from,serveraddress,username,password)
dim jmail,return
set jmail=server.CreateObject(“JMAIL.Message“) ‘建立邮件对象
jmail.silent=true ‘屏蔽例外错误
jmail.logging=true ‘启用邮件日志
jmail.charset=“utf-8“ ‘邮件的文字编码
‘jmail.contenttype=“text/html;charset=utf-8“ ‘邮件的格式为HTML格式。如果发附件一定要注释掉这行，不然出现乱码，重要！
jmail.addrecipient sendto,toname
jmail.fromname=fromname
jmail.from=from
jmail.mailserverusername=username
jmail.MailServerPassword=password
jmail.subject=subject
jmail.body=body
if Trim(AddAttachment)<>““ then
Jmail.AddAttachment Server.MapPath(AddAttachment),true
end if
jmail.priority=3 ‘邮件的紧急程序，1为最快，5为最慢，3为默认值
return=jmail.send(serveraddress) ‘执行邮件发送
jmail.close() ‘关闭邮件对象
set jmail=nothing
sendmail=return
end function
%>
</body>
</html>
报错
6
6暂无评论！
返回其它程序
客户评分