| Home | Network | Php | java | SQL | Javascript | python | Hack | Seo | Link | MD5(Encryption/Decryption) | Works

73 2014 - 11 48
      1
2345678
9101112131415
16171819202122
23242526272829
30


  日志:1254 篇
  评论:169 篇
  会员:173 人
  建立:2007-06-01
  


  
 标题       内容

2009年3月1日到2009年2月22日被黑网站统计 对asp安全的总结
晴天 电话号码生成器   [ 日期:2009-03-02 ]   [ 来自:本站原创 ]
前几天写了一个电话号码生成器,用的asp写的,主要用途是从数据库里面查找不相同的电话号码并生成txt文件,可以用于短信群发,代码如下:
<%
on error resume next
ConnectionString="数据库连接文件根据自己的库自己来完成"
set conn=server.CreateObject("adodb.connection")
conn.CursorLocation =3
conn.open ConnectionString
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>tel</title>
</head>

<body>
<script LANGUAGE="JScript" RUNAT="Server"> 
function zmlxq(s){
while(s.indexOf("0")!=-1){s=s.replace("0","0");}
while(s.indexOf("1")!=-1){s=s.replace("1","1");}
while(s.indexOf("2")!=-1){s=s.replace("2","2");}
while(s.indexOf("3")!=-1){s=s.replace("3","3");}
while(s.indexOf("4")!=-1){s=s.replace("4","4");}
while(s.indexOf("5")!=-1){s=s.replace("5","5");}
while(s.indexOf("6")!=-1){s=s.replace("6","6");}
while(s.indexOf("7")!=-1){s=s.replace("7","7");}
while(s.indexOf("8")!=-1){s=s.replace("8","8");}
while(s.indexOf("9")!=-1){s=s.replace("9","9");}
return s;
}
</script>  
<%
set rs=server.createobject("adodb.recordset")
sql="select distinct 电话字段 from 数据表名 where 电话字段<>'' and len(电话字段)>8"
rs.open sql,conn,1,1
if rs.eof then
response.write("完成")
else
telephone=""
while not rs.eof
tel=replace(rs("电话字段"),",","")
tel=replace(tel,"/","")
tel=replace(tel,"-","")
tel=replace(tel,"、",",")
tel=replace(tel," ","")
tel=replace(tel,"..","")
tel=LCase(tel)
tel=zmlxq(tel)
 if isnumeric(tel) and (len(tel)=8 or len(tel)=11)  then
   if len(tel)=8 then
   tel="024"&tel
   end if
   telephone=telephone&","&tel
 end if
rs.movenext
wend
end if
if left(telephone,1)="," then
telephone=mid(telephone,2)
end if
fo=Server.MapPath("zmlxq.txt") 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set fn=fs.CreateTextFile(fo,True) 
fn.Write telephone
fn.Close 
response.write("成功创建!")
%>
</body>
</html>

引用这个评论 大蝎 于 2009-05-11 10:09 AM 发表评论: 
哪地方看不懂呢?

引用这个评论 Bai度Id已禁 于 2009-05-10 11:17 PM 发表评论: 
看不懂所以过来学习一下

您还没有登录,暂时不能发表评论!  注册会员
| Home  | Network | Php | java | SQL | Javascript | python | Hack | Seo| Link | 辽ICP备07011342号