当前位置：网站首页 > 资源显示

aspfso邮件处理，一行5个邮箱输出

发布时间：2017/5/1 17:25:57 / 最后修改：2017-5-1 17:29:21 / 浏览：520

test.txt 文件数据如下：
7859318166XXXX13@qq.cn
5309326XXXX555@163.com　
yans33hengzong@sina.com　
36UU4XX48245@qq.com
zhan3uidong2008@163.com　
6171XXX36390@qq.com　
candy_o3nly_0@163.com
xuXXe3xiao3qin23@163.com
hu6i1998@teah.net
5036XXX6663804@qq.com　
yanz3on666gleicn@sina.com
lichao33198961006@126.com
mengxiangli1@126.com
lichao193891006@126.com　
song3huipo@163.com

输出格式入下图（一排5个邮箱，这样的格式，方便群发邮件）:
xxx3@qq.cn,d555@163.com,cong@sina.com,tt3@qq.com,ss@qq.com
xxx3@qq.cn,d555@163.com,cong@sina.com,tt3@qq.com,ss@qq.com

完整代码（代码框可以往下拉高显示）：

### email.html ###
<input name="file1" type="file" />
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="Email.asp" method="post">
  <tr>
    <td width="140" height="50">输入本地地址：</td>
    <td width="610"><input name="bdFile" type="text" id="bdFile" size="60" /></td>
  </tr>
  <tr>
    <td height="50">&nbsp;</td>
    <td><input type="submit" name="Submit" value="确定提交" /></td>
  </tr>
</form>
</table>

### Email.asp ###
<%
dim bdfile
bdfile=trim(request.Form("bdFile"))
if bdfile="" then
response.Redirect("Email.html")
response.End()
end if
'-----------------------------
dim ObjFso,ObjHtml,str,arrayStr
set ObjFso=server.CreateObject("Scripting.FileSystemObject")
set ObjHtml=ObjFso.OpenTextFile(""&bdfile&"",1,false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
str=replace(ObjHtml.ReadAll,vbCrLf,"|")
arrayStr=split(str,"|")
for i=0 to ubound(arrayStr)
response.Write(arrayStr(i))&","
if i mod 5=0 then 
response.write "<br /><br />"
end if
next
response.Write("<br /><br />一共"&i&"个邮件")
ObjHtml.close
set ObjHtml=nothing
%>

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区