繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Jmail发信的实例,模块化随时调用
- ASP
- 一个ASP版的图片浏览管理器
- 无组件上传图片至SQLSERVER数据库
- 利用Jmail.Message发送邮件
- 用Web页面执行客户端程序
- 多图片上传到指定的目录并存到数据库
- dreamweaverMX通用分页代码研究
- 下拉菜单输入,根据输入内容自动定位
- 中文的无组件文件上传ASP函数
- 一个利用adsi得到局域网信息的asp文件
- 根据需要动态include不同的文件
- 让自定义文件下载支持断点续传
- 用数组实现数据记录的批量录入方法
- 上传的进度条 实时反映上传情况
- 用ASP动态生成javascript的表单验证代码
- ASP 编程中20个非常有用的例子
- ASP生成Word文档的又一方法
- 用asp解析图片地址，并将其保存。
- 利用ASP的文件操作实现用户管理
- 创建 Visual Basic COM 组件在 ASP 中使用
- 调试 ASP 中使用的 Visual Basic COM 组件
ASP 中的 Jmail发信的实例,模块化随时调用
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 61 ::
收藏到网摘: n/a
一个用jmail发信的过程，及使用方法.
发信时，直接调用这个过程就行了。
<%
dim str,HtmlBody
HtmlBody="<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
str=JmailSend( "hello","ILoveYou",true,HtmlBody,"[email protected]",[email protected],
dim str,HtmlBody
HtmlBody="<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
str=JmailSend( "hello","ILoveYou",true,HtmlBody,"[email protected]",[email protected],
"hello","smtp.sina.com.cn","hello","Password")
if str="Y" then
response.write("发送成功")
else
response.write("发送失败!请重试!")
end if
'=================================================
'函数名：JmailSend
'作 用：用Jmail发送邮件
'参 数：Subject 邮件标题
' Body 邮件内容
' Body 邮件内容
' isHtml 是否发送Html格式邮件 (true 是)
' HtmlBody Html格式邮件内容
' MailTo 收件人Email
' From 发件人Email
' FromName 发件人姓名
' Smtp smtp服务器
' Username 邮箱用户名
' Password 邮箱密码
'返回值：JmailSend="N" 发送失败 JmailSend="Y" 发送成功
'~~~~~~~~~~suercool~~~~~
'=================================================
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fr
if str="Y" then
response.write("发送成功")
else
response.write("发送失败!请重试!")
end if
'=================================================
'函数名：JmailSend
'作 用：用Jmail发送邮件
'参 数：Subject 邮件标题
' Body 邮件内容
' Body 邮件内容
' isHtml 是否发送Html格式邮件 (true 是)
' HtmlBody Html格式邮件内容
' MailTo 收件人Email
' From 发件人Email
' FromName 发件人姓名
' Smtp smtp服务器
' Username 邮箱用户名
' Password 邮箱密码
'返回值：JmailSend="N" 发送失败 JmailSend="Y" 发送成功
'~~~~~~~~~~suercool~~~~~
'=================================================
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fr
评论 (0) All
