Jmail群发邮件的源码

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

创新互联-专业网站定制、快速模板网站建设、高性价比松溪网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式松溪网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖松溪地区。费用合理售后完善，10余年实体公司更值得信赖。

%@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.com' 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.com" 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.com, 请修改

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

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

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

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

%

虫虫营销助手

　   有没有和我一样喜欢玩各种论坛博客的读者朋友呢，接下来和我了解一下关于虫虫营销助手吧。

关于虫虫

网站推广人员和SEO从业者了解的虫虫指的是虫虫营销助手软件(原名虫虫博客2009)，是深圳市辉创软件技术有限公司开发的一款知名SEO优化软件，自动注册论坛、博客、B2B并自动发布外链和 广告 信息，是虫虫团队继知名SEO软件《虫虫博客群建》之后，广泛采纳用户建议、升级改进技术架构而研发成功的新一代综合SEO工具软件，用于外链发布 和站群管理。主要功能是针对大型网站包括门户博客和大型论坛，新闻评论，各种中小博客和论坛等高价值高权重网站的自动注册，自动发布，友情链接和签名档设置等。软件付费装机量超过两万+，为很多客户创造了巨大财富，拥有忠实的粉丝用户群体,在行业内具有一定的知名度。

虫虫营销助手拥有八大功能模块

1, 博客论坛群发群建：主要支持主流大型门户博客、大型论坛、贴吧、各种评论网站、分类信息、B2B商务信息网站的群建群发。

2, 站群自由管理：支持主流单用户,多用户公共建站程序多达180多种!可轻松管理数百个网站、博客站群 。

3, 文章 快速采集：内置强大的采集模块,灵活的采集规则编写功能,可采集任网站的内容,采集速度快。

4, 文章伪原创：支持标题组合,段落打乱, 近义词 替换,关键词自动链接与及随机关键词插入功能,促进搜索引擎收入。

5, 其它 SEO铺助：内置PR值,关键排名,网站收录数,关键词密度等多项个性化小功具,方便用户使用,提高工作效率。

6, 验证码智能识别：注册各类博客帐号论坛帐号时将为用户自动填写账户信息，用户只需要填写验证码并提交即可注册成功。

7, 链轮/串链功能：文章中串加其它文章的链接,交叉促进收录,可多个数目串加链接数。

8, 数据灵活管理：全方位管理数据,支持上传备份下载,导入导出备份还原功能,让你轻松管理数理重要网站信息无忧患 。

虫虫营销助手基本功能

1.支持主流大型门户博客群建群发功能：

支持大型门户博客批量注册账号批量发布文章，截至2010年7月达到七十多个。包括：新浪博客、博客网、163网易博客、中国博客网、搜狐博客、百度空间、凤凰网博客、和讯博客、51.com、博客大巴blogbus、TOM博客、天涯博客、阿里巴巴网商博客、聚友网Myspace.cn、Csdn博客、中国网专家博客、东方博客、中金博客、豆瓣、土豆网个人空间、中关村在线博客、猫扑Hi、歪酷博客、乐趣网、搜房网博客、企博网、敏思博客、Facekoo飞思酷、比特博客、赛迪网IT博客、文学博客网、红豆博客网、大众论坛、四川在线天府博客、粉丝网、艾瑞网、环球在线博客、中证 财经 博客、太平洋汽车博客、51CTO技术博客、途牛博客、开啦空间、领地免费网站空间、创业邦、虎扑体育社区、太平洋电脑博客、摇篮空间、半岛博客、法律博客、我酷网、强国博客、Ku6网空间、太平洋女性网、中国证券网博客、同城旅游网博客、YOKA时尚网空间、直销博客、 儿童 博客网、成长博客、我邻网空间、法律博客、体坛博客、新竹自助建站系统、TechWeb IT博客等。

2.支持主流大型门户论坛群发：

截至2010年5月达到60个,包括：新浪论坛、TOM社区论坛、阿里巴巴商人论坛、中关村在线论坛、太平洋电脑网产品论坛、中国站长论坛、永年论坛、汽车论坛-网上车市、搜房网论坛、Csdn程序员论坛、口碑网论坛等等。

3.支持贴吧，股吧，分类信息，B2B商务信息网站群发：

截至2010年5月有十几个,包括：慧聪网、生意宝、百度贴吧、58同城网分类信息网、和讯股吧、赶集网、今题网分类信息、易登网、事事旺分类信息网、百度知道、新浪爱问知识人、天涯问答、天涯来吧、网易有道快贴、搜狗说吧等。

4.支持国外大型博客和英文博客群发：

截至2010年5月达到二十多个,包括：wordpress.com、blogger.com、digg.com、livejournal.com、home.live.com、xanga.com、viviti.com、edublogs.org、blog.fc2.com、blog.zoznam.sk、blog.com、terapad.com、easyjournal.com、circles.globe.com.ph、blogaliza.org、urbanblog.dk、blog23.com、blogit.naimisiin.infoblogs、elleblogs.es、bicyclesports.com、blogguru.net、military- net.com、my1blog.com、bloggatore.com、log.ph、blog.palungjit.com、、networking.studentfilmmakers.com、fratlounge.com、identityloop.com、、、blog.com、等。

5.站群管理功能：

支持主流单用户、多用户公共程序类型(专业版站群模块)四十多种，包括：ZBlog，Wordpress、Wordpress Mu、DedeCms织梦、帝国CMS、Php168、动易CMS、Bo-BLog、Pjblog、无忧CMS、KingCMS、ActCms 、SDCMS、新云CMS、PhpCms2008、OBLOG4、OBLOG3、PBDigg、LxBlog博客、动网博客Dvbbs Iboker、BbsGood论坛博客、Qjblog博客、Blog System、Discuz论坛、PhpWind论坛、BbsMax论坛、Phpbb2国外论坛、VBulletin国外论坛，Drupal,MovableType等。有了虫虫营销助手，轻松管理数百个网站或者博客群，不是问题。

6.文章内容采集功能：

虫虫营销助手内置采集功能，可以采集任何网站的内容，如果你懒于文章的编写，可以使用这个功能。

7.内容伪原创功能：

采集的内容经过伪原创后，能促进搜索引擎的收录。伪原创功能主要有标题变量组合，段落打乱，近义词替换，关键字自动链接，随机插入关键词，同时还集成了英汉互译，凡间互换等功能。

8.网址资源自动搜索，自行更新数据库功能：

软件可以从Google和百度自动抓取网址地址资源并验证入库。用户可以方便的自行更新地址库，并且可以根据自己的需要，自行定制抓取规则。

9.其它众多辅助功能和SEO查询功能：

虫虫营销助手还有多项个人性化的小功能，比如PR值查询，关键字排名查询，网站收录数百度谷歌查询，关键词密度查询，数据的服务器备份和本地备份，自动设置友情链接，导出用户首页地址，网址的有效性检查和网址清理功能，根据关键词对网址资源分组功能，代理服务器管理等等。

虫虫营销助手的市场潜力

营销ERO系统进入中国已经有十多个年头了，但依然保持着很大的发展速度，依旧是一个朝阳行业。据悉，前几年单单中国网络广告市场规模就有300多亿元，并且预计几年的数字将会增长为460多亿。而营销软件在最近几年更是如同雨后春笋一般涌现而出。的整合营销软件以一对一超精准营销软件的概念推出更是瞬间就获得了市场的肯定。虽然近年来互联网的发展速度非常之快，但因为本身的基数小，整合营销软件在同类市场中所占比例更低。市场处于出生的阶段，微课方兴未艾，蓝海一片。

飞速发展的互联网已经深深改变了人们的生活方式，越来越多的公司或是个人开始通过网络宣传产品和服务。营销软件的出现在很大程度上减少了宣传人员的劳动压力，提升了工作效率，又能以较小的成本去获取更大的利益。

资料显示，营销软件在国内市场已经有十来个年头了，但整合营销软件的推出还是首次，但中小企业收到价格和传统营销思维等因素的约束，在国内的市场还未打开。相对于传统功能单一的营销软件，整合营销软件具有一对一超精准营销、信息整合、在线操作、数据实时搜索、协同办公等诸多优势。它弥补了传统软件的单一功能、单方面营销、数据的质量问题、操作不便等问题，填充了中小企业在网络营销上飞速发展的需求。

整合营销软件的出现毋庸置疑就是多方位的进行营销方式。营销的方式是多种多样的，我们熟悉的就有搜索引擎的营销(SEM)、SEO优化、B2B、B2C平台站点营销等等，每个方面都有其优劣势，但若是将这些营销手段都组合到一起取长补短的话，那么效果很快就能凸显出来了。

z-blog 网站上有人留言 我怎么回复？求详细解答，没分了，但还是热心的朋友多。谢谢

在评论里应该有回复按钮的，点击按钮就可以直接回复了。如果你的没有就是你zblog主题模板没有添加相关代码！！

如何在博客上为网站做外链

今天登陆博客后台看到很多被插件拦截下来的垃圾评论有所感悟，顺便分析一下如何在博客上做外链。 z-blog会自动把回复中的网址转换成一个博客主站的链接，因此在z-blog上回复是达不到做外链的效果(百度的外链支持普通文本链接，应该是有一点效果)。wordpress的收录速度非常快，虽然有的博客会给站外链接带上nofollow标记，但是仍然不失为做外链的好地方。 在wordpress博客上面做外链是非常有技巧的，如果想偷懒，最终得到的结果就是被博主无情封杀，达不到外链效果。七叶草认为在博客上做外链需要考虑以下几点： 1、千万不要用seo软件群发。wordpress的插件还是比较牛叉的，群发的留言基本上都被看作垃圾评论，前台连显示的机会都没有。做英文seo的朋友可能用群发的更多，确实也获得了一些效果，个人感觉可能是老外和中国人的习惯不同，中国人最讨厌别人在自己的地盘撒野，因此在中文wordpress博客上做外链千万不要用群发。 2、留言内容要与文章相关。

网站栏目：zblog博客评论群发 zblog收录排名怎样
分享地址：http://myzitong.com/article/doepijs.html