189 8069 5689
试试以下代码：核心就是循环调用发邮件代码就可以了
专注于为中小企业提供网站建设、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业偏关免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了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 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评论的话，是不需要插件的。系统默认的是可以评论的。
但是进入它的后台/网站设置管理/全局设置 里面可以关闭评论功能。如果网站主关闭这一项功能了的话，那就不能评论了。
学习网络推广我建议从以下几点进行：
第一、学习态度
刚接触学习网络推广的新手前几天基本都是铸躇满志，决心要成为网络推广高手，可当每天做着重复的事情就感觉到乏味，看理论感觉全懂，可实操时又不知从何做起。他在深圳嘉华的老师经常说：学习态度是第一要素。
第二、执行力
要坚持每天去做问答、做微博、写软文，发高质量的外链……在实践做好网络推广，多实践多总结就是最快速的学习方法。
第三、经验总结
网络推广离不开资源，而资源是一个日积月累的过程，需要在实践中不断地收集资源，在实践中不断地总结。
关于网络推广可以找一家专业的培训机构学习。我认为单仁资讯就不错。深圳市单仁资讯有限公司于2006年4月由央视财经评论员、电子商务专家单仁先生创立于深圳。十五年来，团队由十余人发展到逾千人，形成全国23家省市分公司的服务格局，集团始终以“帮助企业成长，创造更多就业”作为企业使命。