向广大人民群众求救！【已处理完了，多谢17号兄弟，偶朋友，师太，自己，还有老大】

安静的17号

汗......熊姐表给我发钱了, 太客气了, 我也没处花的, 水吧也是不是天天有人结婚......%@07
我也是没事干才做做的%@46

小熊寶寶

应该的，那我有空请你吃冰淇淋吧%@03

这星期你应该还不回家吧

cnlove

%@02 %@02


怎么这么快


%@14 %@14

偶的程序刚刚编好

小熊寶寶

原帖由 安静的17号 于 2008-7-15 14:56 发表
汗......熊姐表给我发钱了, 太客气了, 我也没处花的, 水吧也是不是天天有人结婚......%@07
我也是没事干才做做的%@46

等你娶媳妇了，可以当聘礼%@54

安静的17号

原帖由 小熊寶寶 于 2008-7-15 14:58 发表
应该的，那我有空请你吃冰淇淋吧%@03

这星期你应该还不回家吧

hehe客气了,不用请客滴, 以后有事也让你们帮忙么...%@59

小熊寶寶

原帖由 cnlove 于 2008-7-15 15:00 发表
%@02 %@02


怎么这么快


%@14 %@14

偶的程序刚刚编好

怎末用的？%@54
这个帖子里只处理了1.6w ，还有好多呢%@54

安静的17号

0.0%@04 %@04 %@04
程序都编出来了, 太牛了

有机会收我为徒吧, 也编个程序玩玩%@01

cnlove

%@52   那偶程序传给你 你叫LD 搞
要先将 xls 转化承 mdb
天涯不会就不叫天涯了

小熊寶寶

原帖由 安静的17号 于 2008-7-15 15:01 发表


hehe客气了,不用请客滴, 以后有事也让你们帮忙么...%@59

好说好说%@55 ，只要我能做到，肯定么问题的%@58

cnlove

地址在

www.wz8.com.cn/x/qingli.asp

cnlove

徒弟就不收了哈


代码贴上自己看

1. 
   
2. <!--#include file="conn.asp"-->
   
3. <%
   
4. set rs=conn.execute("select * from email order by id asc")
   
5. if rs.bof and rs.eof then
   
6. response.Write  "数据库怎么是空的？"
   
7. else
   
8. delid="0"
   
9. do while not rs.eof
   
10.   if len(split(rs(1),"@")(0))<4 then
    
11.     delid=delid&","&rs(0)
    
12. response.Write rs(1)&"已经删除.原因：<span style='color:red'>@前面不足四个字符</span><br />"
    
13.   end if
    
14.   
    
15.   if ubound(split(rs(1),"@"))<>1 then
    
16.     delid=delid&","&rs(0)
    
17.     response.Write rs(1)&"已经删除.原因：<span style='color:red'>多个@ 或者没有@</span><br />"
    
18.   else
    
19.    if ubound(split(split(rs(1),"@")(1),"."))<1 or ubound(split(split(rs(1),"@")(1),"."))>4 then
    
20.    delid=delid&","&rs(0)
    
21.    response.Write "已经删除.原因：<span style='color:red'>@ 后面没有 '.' 或者 '.'数量过多</span><br />"
    
22.    else
    
23.    
    
24.     if split(split(rs(1),"@")(1),".")(0)="56" or split(split(rs(1),"@")(1),".")(0)="" or split(split(rs(1),"@")(1),".")(1)="" then
    
25.    delid=delid&","&rs(0)
    
26.    response.Write rs(1)&"已经删除.原因：<span style='color:red'>56邮箱已经不能用了,@ 后面 . 前后 不能为空</span><br />"
    
27.     end if
    
28.    end if
    
29.   end if
    
30.   if instr(rs(1),"net")<1 and instr(rs(1),"org")<1 and instr(rs(1),"com")<1 and instr(rs(1),"cn")<1 and instr(rs(1),"edu")<1 and instr(rs(1),"gov")<1 and instr(rs(1),".")<1 then
    
31.    delid=delid&","&rs(0)
    
32.    response.Write rs(1)&"已经删除.原因：<span style='color:red'>这啥牌子的邮箱啊</span><br />"
    
33.   end if
    
34.   set rss=conn.execute("select * from email where id >"&rs(0)&" order by id asc")
    
35.   if rss.bof and rss.eof then
    
36.   else
    
37.       if rss(1)=rs(1)then
    
38.       delid=delid&","&rs(0)
    
39.    response.Write rs(1)&"已经删除.原因：<span style='color:red'>重复的邮箱地址</span><br />"
    
40.    end if
    
41.   end if
    
42. rs.movenext
    
43. loop
    
44. end if
    
45. rs.close
    
46. set rs=nothing
    
47. conn.execute("delete from email where id in ("&delid&")")
    
48. response.Write delid
    
49. response.Write "删除 ok !"
    
50. 
    
51. %>
    

复制代码

conn.asp

1. 
   
2. <%
   
3. dim conn  
   
4. dim connstr  
   
5. dim db   
   
6. db = "sdf.mdb"
   
7. connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
   
8. Set conn  =  Server.CreateObject("ADODB.Connection")
   
9. if err Then
   
10. err.clear
    
11. end if
    
12. conn.Open connstr
    
13. %>
    
14. 
    

复制代码

安静的17号

偶只看得懂VB, MS有点像, 不过不是%@07

cnlove

%@52  这个比vb  还简单
叫做 vbscript

小熊寶寶

原帖由 cnlove 于 2008-7-15 15:09 发表
徒弟就不收了哈


代码贴上自己看

像你附件里的3、7 邮件就不对了啊

cnlove

%@60 %@60  那个 。。。  偶想不到算法。。。