Jmail群发邮件的源码

试试以下代码：核心就是循环调用发邮件代码就可以了

专注于为中小企业提供网站建设、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业偏关免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

%

Server.ScriptTimeOut=9999999

Response.Buffer = True

dim FoundErr, ErrMsg, Action

dim MailServerUserName, MailServerPassWord, MailDomain, MailServer

dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority

FoundErr = False

ErrMsg = ""

Action = Trim(Request("action"))

ComeUrl = ""

%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"

HTML

HEAD

TITLE群发邮件系统/TITLE

META http-equiv=Content-Type content="text/html; charset=gb2312"

META content="Microsoft FrontPage 4.0" Name=GENERATOR

STYLE type=text/css

a {text-decoration: none;} /* 链接无下划线,有为underline */

a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */

a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */

a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */

a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */

TD {

FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;

}

BODY {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

INPUT {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

SELECT {

FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'

}

.title

{

background:#0DB432;

color: #ffffff;

font-weight: normal;

}

.border

{

border: 1px solid #0DB432;

}

.tdbg{

background:#f0f0f0;

line-height: 120%;

}

.tdbg1{

background:#A3E2B1;

line-height: 120%;

}

/STYLE

/HEAD

BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0

br

%

Select Case Action

Case "send"

Call sendMail()

Case Else

Call Main()

End Select

If FoundErr = True Then

Response.Write WriteErrMsg(ErrMsg, ComeUrl,"错误信息")

End If

Response.write"/BODY/HTML"

sub main()

If Not IsObjInstalled("JMail.Message") Then

FoundErr=True

ErrMsg = "服务器不支持JMail组件，请正确安装"

Exit Sub

End If

%

form action="wssf.asp?Action=send" method=post

table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589"

tr

td height="40" colspan="2" align="center" class="title"

pb 群发邮件系统/b/p /td

/tr

tr

td width='30%' class='tdbg1' height="25"strong邮件服务器地址：/strong /td

td class='tdbg' height="25"

input name='MailServer' type='text' id='MailServer' value='smtp.163点抗 ' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width='30%' class='tdbg1' height="25"strong登录用户名一：/strong

/td

td class='tdbg' height="25"

input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width='30%' class='tdbg1' height="25"strong登录密码一：/strong

/td

td class='tdbg' height="25"

input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40' FONT color=#ff0000*/FONT

/td

/tr

tr

td width="30%" class="tdbg1" height="25"您的姓名：/td

td class="tdbg" height="25"input name="name" type=text id="name" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg1" height="25"您的E-mail：/td

td class="tdbg" height="25"input name="email" type=text id="email" value="XXX@163点抗 " size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg1" height="25"收件人姓名：/td

td class="tdbg" height="25"input name="toname" type=text id="toname" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg1" height="25"收件人Email:/td

td class="tdbg" height="25"input name="toemail" type="text" id="toemail" size="30" maxlength="100"

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg1" height="25"邮件标题：/td

td class="tdbg" height="25"input type=text name="topic" size=30

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg1" height="500"邮件内容：/td

td class="tdbg" height="500"textarea name="body" cols=74 rows=34 id="body"/textarea

FONT color=#ff0000*/FONT/td

/tr

tr

td width="30%" class="tdbg" height="27"/td

td height=27 class="tdbg"

input type="Submit" value="发送邮件" name="Submit"

input type="reset" name="Clear" value="重新填写"

/td

/tr

/table

/form

%

End Sub

Sub sendMail()

MailServer = trim(Request("MailServer")) 'SMTP服务器地址：smtp.163点抗 , 请修改

MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名：XXX@163点抗 , 请修改

MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登录密码：***, 请修改,注意大小写

MailDomain = trim(Request("MailDomain")) 'SMTP域名：163点抗 , 请修改

FromName = trim(Request("name")) '发件人名字

MailFrom = trim(Request("email")) '发件人邮箱

MailtoName = trim(Request("toname")) '发件人名字

MailtoAddress=trim(Request("toemail")) '收件人邮箱

Subject = trim(Request("topic"))

MailBody = trim(Request("body"))

Priority=3

If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then

FoundErr = True

ErrMsg = "请填写完整每一项信息！"

Exit Sub

End If

ErrMsg = JSendMail()

If ErrMsg"" Then

FoundErr = True

Exit Sub

Else

Response.Write WriteErrMsg("", ComeUrl,"成功信息")

End If

End Sub

Function JSendMail()

On Error Resume Next

JSendMail = ""

Dim JMail,tempMessage

Set JMail = Server.CreateObject("JMail.Message")

JMail.silent=true

JMail.Logging = True

JMail.Charset = "gb2312" '邮件编码

JMail.silent = True

JMail.ContentType = "text/html" '邮件正文格式

JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器

'如果服务器需要SMTP身份验证则还需指定以下参数

JMail.MailServerUserName = MailServerUserName1 '登录用户名

JMail.MailServerPassWord = MailServerPassWord1 '登录密码

JMail.AddRecipient MailtoAddress, MailtoName '收信人

JMail.Subject = Subject '主题

JMail.HtmlBody = MailBody '邮件正文（HTML格式）

JMail.Body = MailBody '邮件正文（纯文本格式）

JMail.FromName = FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority = Priority '邮件等级，1为加急，3为普通，5为低级

Dim emailArray

If MailtoAddress="" then

set fsObj = Server.CreateObject("Scripting.FileSystemObject")

FilePath = Server.MapPath("email.txt")

set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)

i = 0

Do While Not txtsObj.atEndOfStream

emailArray(i)=txtsObj.ReadLine

JMail.AddRecipient Trim(emailArray(i)),MailtoName

i=i+1

loop

Else

JMail.AddRecipient MailtoAddress, MailtoName

End If

JMail.Send (MailServer)

tempMessage = JMail.ErrorMessage

JMail.Close

Set JMail = Nothing

If tempMessage"" then

FoundErr = True

JSendMail = tempMessage

end if

Set JMail = Nothing

End Function

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = CreateObject(strClassString)

If Err.Number = 0 Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

Function WriteErrMsg(sMsg, sComeUrl,Massages)

Dim strMsg

strMsg = strMsg "htmlheadtitle"Massages"/titlemeta http-equiv='Content-Type' content='text/html; charset=gb2312'" vbCrLf

strMsg = strMsg "/headbodybrbr" vbCrLf

strMsg = strMsg "table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center" vbCrLf

strMsg = strMsg " tr align='center' class='title'td height='22'strong"Massages"/strong/td/tr" vbCrLf

if FoundErr=True Then

strMsg = strMsg " tr class='tdbg'td height='100' valign='top'b产生错误的可能原因：/b" sMsg "/td/tr" vbCrLf

Else

strMsg = strMsg " tr class='tdbg'td height='100' valign='top'brb恭喜，成功用JMail发送邮件！/b" sMsg "/td/tr" vbCrLf

End If

strMsg = strMsg " tr align='center' class='tdbg'td"

If sComeUrl "" Then

strMsg = strMsg "a href='javascript:history.go(-1)' 返回上一页/a"

Else

strMsg = strMsg "a href='javascript:window.close();'【关闭】/a"

End If

strMsg = strMsg "/td/tr" vbCrLf

strMsg = strMsg "/table" vbCrLf

strMsg = strMsg "/body/html" vbCrLf

WriteErrMsg = strMsg

End Function

%

Z-Blog博客系统 怎么用 详细

Z-Blog 1.7 使用手册

系统配置:

服务器：Windows 2000及IIS5.0以上，需要ADO数据库、FSO、XMLDOM等系统组件支持和空间的读写权限，具体请查询网络服务商或查看本机配置。

客户端：支持Mozilla FireFox 1.0、IE6.0、Opear 8.0及更高版本的浏览器。客户端浏览器需要启用JavaScript脚本支持。

安装说明:

如果用的是手动安装包,上传所有文件后,在浏览器中打开博客地址将自动转到初次安装的向导页.

如果用的是自动安装包,上传仅有的两个文件后,在浏览器中打开 ,其中指的是你的博客地址,像这样: ,程序会引导你完成几个简单的安装步骤.

进入向导页也仅需完成4项内容:

1.BLOG的网络地址(自动读取)

2.数据库的名称和地址(系统自动随机生成)

3.博客管理员账号(用户名与密码)

4.BLOG唯一标识符(系统自动随机生成)

实际上,在这一步中,只要设置好你的管理员账号就行了,其它三项都由程序自动生成的.

点击提交,整个安装过程就完成了,Good Luck To You!

如果你的域名更换或想把数据库移至其它目录,请参考使用说明中的"如何手动配置BLOG程序?"条目,以更新配置.

另外,在程序后台"用户管理"中,管理员可以创建比自己权限低的账号，推荐建立一个“高级用户”供日常使用。

升级说明:

使用1.2-1.6beta版本的用户，将数据库放入1.7版程序的DATA目录中，在设置完c_custom.asp里的ZC_DATABASE_PATH参数和ZC_BLOG_HOST参数后，使用以前的账号登入后台管理界面，在[备份与更新]栏使用[数据库升级]功能，让旧版的数据库升级为最新版的数据库结构，再将需要保留的附件、样式等放入相应的目录即完成了升级。1.6 Final版本的用户不用升级数据库，只修改ZC_DATABASE_PATH参数和ZC_BLOG_HOST参数。

使用说明:

1.如何手动配置BLOG程序?

当域名变更或其它原因需要手动配置BLOG程序，参照此法：

请先将c_custom.asp文件中的 ZC_BLOG_HOST 更改为已分配的IP或域名。

格式一定要是""，前面要加 http://' ,后面要加上 '/' 。

将DATA目录下的数据库改为一个非常复杂的名称。

再更改 ZC_DATABASE_PATH 值为 "data/你的数据库名称" ，数据库升级只能放在DATA目录下(你可以在升级后更改路径)。

数据库中默认的管理员账号和密码均为zblogger。

2.在[网站设置]中更改你的BLOG名称等等，也包括更换CSS界面样式等各种配置。

在设置完成之后请点[文件重建]或[索引重建]以让更改后的配置生效。

3.首次使用,请先在[分类管理]建立一个分类，再到[文章管理]中添加新日志文章。

管理员和高级用户有分类创建或删除的权限。

4.可选用UBB编辑器或是可视编辑器新建和修改日志。

在文章提交完成之后再次编辑该文件才能向对方的BLOG发送引用。

最好请自行提取正文的文字做为摘要，系统的自动截断功能有可能会使列表页显示不正常。

5.什么时候需要点击[索引重建]？

[索引重建]让系统刷新缓存和统计数据，同时，生成该BLOG的RSS 2.0和Atom 1.0聚合的XML文件于根目录中。

每次发表文章、修改分类等操作后需要点击[索引重建]。

6.什么时候需要点击[文件重建]？

当你在[网站设置]更改了相应的设置，都需要使用“文件重建”以使每个文章页面更改生效。

“文件重建”是一个消耗资源与时间的事件，尤其是BLOG中日志数量众多时。

7.如何减轻服务器压力进行[文件重建]？

在“网站设置”中将"单次重建文件数目"设置为10-20个左右，

将"单次重建文件后的间隔秒数"设置为5-10秒左右，

再进行[文件重建]，就会将一个很长的过程分解为有时间间隔的小段重建过程。

8.关于“导航栏”、“友情链接”等条目请在在后台进入[文件管理]页面直接修改源文件。

它们的格式都是：

lia href="" target="_blank"布罗格的烘培机/a/li

也可在INCLUDE目录中修改相应文件的HTML代码。

9.如何让日志显示源代码，包括HTML，ASP，PHP代码等，请用“[ CODE ] [/ CODE ]”(固定文本区域)

或“[CODE_LITE] [/CODE_LITE]”将源程序包含就行了。

UBB代码请参考这里的介绍:;extra=page%3D1

10.附件都上传在UPLOAD目录中，只能上传限定类型的文件。

请用IE或FireFox上传全ASCII字符名称的文件。

在[网站设置]中可以设置上传文件的种类和大小限制。

11.如何在日志中引用附件呢？

编辑状态下上传附件将自动插入相应代码。以下格式，系统会自动将相对路径替代成绝对路径。

a href="upload/abc.zip" alt="xxx" title="xxx"xxx/a

img src="upload/abc.jpg" alt="xx" title="xxx" width="xx" height="xx" /

[ URL=]abc.jpg[/URL] 或 [URL=upload/abc.jpg]abc.jpg[/URL]

12.如何在一个站点(域名)内使用两个及以上的Z-Blog程序？

进入后台[网站设置]页，将ZC_BLOG_CLSID设置为不同的值即可。

由于程序自身的限制，Z-Blog不支持多域名共同指向同一个BLOG。

13.Z-Blog的XML-RPC功能如何使用？

Z-Blog的XML-RPC接口采用MetaWeblog的API，可以在相应软件和网站调用该接口。

相应的XMP-RPC接口URL为: ,在你的博客后台首页可以看到该地址.

14.如何应对SPAM的侵扰？

每隔一段时间（几个月或更长）在后台设置中更改一次ZC_BLOG_CLSID的值，然后进行[文件重建]。在网站设置里还可以关闭评论和引用。或是采用第三方的插件以达到此目的。

15.请保管好你的管理员账号与密码。

Z-Blog提供对管理员账号开放权限的服务器文件修改功能，这个功能非常强大但也异常危险，所以请你务必小心保管你的管理员的账号，防止他人对你网站的全面侵入。

zblog 评论是要下载哪个插件啊。

您好，

zblog评论的话，是不需要插件的。系统默认的是可以评论的。

但是进入它的后台/网站设置管理/全局设置 里面可以关闭评论功能。如果网站主关闭这一项功能了的话，那就不能评论了。

如何学习网络推广啊？

学习网络推广我建议从以下几点进行：

第一、学习态度

刚接触学习网络推广的新手前几天基本都是铸躇满志，决心要成为网络推广高手，可当每天做着重复的事情就感觉到乏味，看理论感觉全懂，可实操时又不知从何做起。他在深圳嘉华的老师经常说：学习态度是第一要素。

第二、执行力

要坚持每天去做问答、做微博、写软文，发高质量的外链……在实践做好网络推广，多实践多总结就是最快速的学习方法。

第三、经验总结

网络推广离不开资源，而资源是一个日积月累的过程，需要在实践中不断地收集资源，在实践中不断地总结。

关于网络推广可以找一家专业的培训机构学习。我认为单仁资讯就不错。深圳市单仁资讯有限公司于2006年4月由央视财经评论员、电子商务专家单仁先生创立于深圳。十五年来，团队由十余人发展到逾千人，形成全国23家省市分公司的服务格局，集团始终以“帮助企业成长，创造更多就业”作为企业使命。