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

73 2017 - 9 48
     12
3456789
10111213141516
17181920212223
24252627282930


  日志:1265 篇
  评论:274 篇
  会员:184 人
  建立: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>

引用这个评论 Monday 于 2017-08-21 02:14 PM 发表评论: 
helinlin2017.8.21
http://www.adidasnmd.org.uk
http://www.adidas-nmd.us.com
http://www.adidasnmd.us.org
http://www.adidasnmd-shoes.us
http://www.adidasoutlet.us.com
http://www.adidas-shoes.us.com
http://www.adidas-superstar.us.com
http://www.adidasyeezyshoes.us.com
http://www.birkenstocks.us
http://www.birkenstocksandals.org.uk
http://www.burberry-outlet-canada.ca
http://www.cheapjordans.com.co
http://www.cheapjordan-shoes.in.net
http://www.cheapjordanshoes.us.com
http://www.cheapjordans-shoes.us.com
http://www.cheapmlbjerseys.us
http://www.cheapmlbjerseyswholesale.us.com
http://www.cheapoakleysunglassesofficial.us.com
http://www.cheapraybans.com.co
http://www.christianlouboutinsale.us.org
http://www.christianlouboutinoutlet.us
http://www.christianlouboutinshoes.us.org
http://www.coachfactoryonlineoutlet.com.co
http://www.coach-outletonlines.us.com
http://www.coachfactoryoutletsonlines.us.com
http://www.coach-factoryoutlet-online.us.com
http://www.coachfactory-outletstore.us.com
http://www.coachoutlet.in.net
http://www.coachoutletcanada.ca
http://www.coachoutletcoachfactoryoutletonline.us.com
http://www.coachoutletsonlines.us.com
http://www.coach-outletonline.us.org
http://www.coachoutletonlinecoachfactoryoutlet.us.com
http://www.coachoutlets.in.net
http://www.coach-outlets.us.com
http://www.coachoutlets.us.org
http://www.coachoutletstoreonline.com.co
http://www.coachoutletstoreonlineclearances.in.net
http://www.coachoutletonlineinc.us.com
http://www.doudounemonclerpascher.fr
http://www.guccioutlets.us.org
http://www.hermesbirkin.in.net
http://www.hermes-handbags.us
http://www.jameshardenshoes.us.com
http://www.michael-korshandbags.me.uk
http://www.michaelkors-handbags.us.org
http://www.michaelkorshandbags-outlet.us.org
http://www.michaelkors-outlet.ca
http://www.michael-korsoutlet.ca
http://www.michaelkorsoutletclearance.in.net
http://www.michaelkorsoutletonlineclearance.in.net
http://www.moncleroutlet.in.net
http://www.moncler-outlet.us.com
http://www.nikeshoes.us.com
http://www.nike-store.us.com
http://www.oakley.nom.co
http://www.oakleyssunglassescheap.us.com
http://www.oakley--sunglasses.us.org
http://www.officialcoachoutlet.us.com
http://www.pandoracharms.com.co
http://www.pandoracharms.name
http://www.pandoracharmssaleclearance.com
http://www.pandoracharmssaleclearance.me.uk
http://www.pandorajewelryoutlet.in.net
http://www.pandorajewelryoutlet.name
http://www.ralph-laurenoutlet.me.uk
http://www.ralphlaurenoutlet.us.org
http://www.ralphlauren-outletonline.us.com
http://www.raybans.org.uk
http://www.raybansunglasses.net.co
http://www.red-bottoms.us.com
http://www.toms.in.net
http://www.tomsoutletstore.in.net
http://www.tomsshoes.us.com
http://www.yeezyboost.org.uk
http://www.yeezyboost.us.com
http://www.yeezyboost-350.co.uk
http://www.yeezyboost350.me.uk
http://www.yeezyboost-350.us.com
http://www.adidas-outlet.us.com
http://www.birkenstockshoes.us.com
http://www.cheapnfl-jerseyswholesale.us.com
http://www.coachhandbagsoutlet.us.com
http://www.coach-outlet.in.net
http://www.katespadeoutletonline.us.com
http://www.longchamphandbags.me.uk
http://www.michaelkorsoutlet.co.uk
http://www.michaelkorsfactoryoutletsale.us.com
http://www.mlbjerseys-cheap.us.com
http://www.mulberry-bags.me.uk
http://www.mulberryoutlet.org.uk
http://www.nikeoutlet.us.com
http://www.nikeoutletonline.us.com
http://www.pandora.us.com
http://www.pandoracharms.us.com
http://www.pandora-outlet.us.com
http://www.pandora-uk.me.uk
http://www.polo-ralphlauren.us.com
http://www.ralphlaurenoutletonlines.us.com
http://www.ralphlaurensaleclearance.me.uk
http://www.ralphlaurensaleclearance.org.uk
http://www.ultraboost.us
http://www.raybanssunglasses-cheap.us.com
http://www.ralph-laurenuk.co.uk
http://www.ralphlaurenuk.me.uk
http://www.hermesbag.us.com
http://www.louboutin-shoes.us.com
http://www.air-jordans.us.com
http://www.michaelkorsoutlets.us.com
http://www.valentinoshoesoutlets.us.com
http://www.birkenstockoutletstore.us.com
http://www.toryburchoutletonline.com.co
http://www.longchampbagsuk.me.uk
http://www.pandoracharmsuk.uk
http://www.cheapraybansunglassesofficial.us.com
http://www.ralph-laurenuk.org.uk
http://www.uggsoutlets.com.co
http://www.ralph-laurenoutlet.com.co
http://www.pandora-charms.us.org
http://www.uggsoutlets.in.net
http://www.jordanretro.name
http://www.michaelkors-mkoutlet.in.net
http://www.ugg.in.net
http://www.uggs.net.co
http://www.michael-kors-outletonline.us.com
http://www.coach-factoryoutletonline.us.org
http://www.nfljerseyscheapwholesale.us.com
http://www.oakleysunglassses-cheap.us.com
http://www.raybanssunglassesoutlet.us.com
http://www.raybansunglassessales.us.com
http://www.nikehuaracheshoes.in.net
http://www.nikecortez.in.net
http://www.katespadehandbag.us.com
http://www.canadagoosejackets.net.co
http://www.airmax-2018.com
http://www.monclerjacketsoutlet.in.net
http://www.adidas-yeezyshoes.us.com
http://www.harden-vol1.com
http://www.nikeairmax.in.net
http://www.louboutinshoes.in.net
http://www.katespade.in.net
http://www.nikeshoes.in.net
http://www.fitflopssale.us.com
http://www.uggoutlet.net.co
http://www.cheapuggboots.com.co
http://www.cheap-uggboots.net.co
http://www.cheapuggsale.in.net
http://www.cheap-uggsboots.us.com
http://www.uggbootsoutlet.com.co
http://www.ugg-outlet.com.co
http://www.uggsale.us.com
http://www.uggsbootscanada.ca
http://www.uggs-outlet.net.co
http://www.canadagoosejacketscanada.ca
http://www.canadagoosejacketsuk.me.uk
http://www.canadagooseoutlet.net.co
http://www.canadagoose-outlet.net.co
http://www.louisvuitton-outletonline.us.com
http://www.uggs-australia.it
http://www.uggs-boots.fr
http://www.uggsaustralia.fr
http://www.canadagoose-outlet.name
http://www.beatsbydrdre.org.uk
http://www.burberryoutletsale.com.co
http://www.burberrysale.org.uk
http://www.canadagoosejacket.com.co
http://www.canadagooseoutlet.cc
http://www.catboots.us
http://www.coachcanadaoutlet.ca
http://www.goosecanadaoutlet.us.com
http://www.kate-spade.us.com
http://www.longchamp-outlet.us.com
http://www.louisvuittonoutlet.us.org
http://www.mbtshoes.us.org
http://www.michaelkorsoutletstoreonline.us.org
http://www.northfaceoutlet.us.com
http://www.polo-ralphlauren.in.net
http://www.redbottomsshoes.us.com
http://www.superdryuk.org.uk
http://www.supremeuk.org.uk
http://www.timberland-outlets.us
http://www.ugg-boots.net.co
http://www.uggsandals.in.net
http://www.uggsboots-outlet.com.co
http://www.ugg-slippers.us.com
http://www.uggs-outlets.in.net
http://www.cheapuggs.in.net
http://www.cheapuggssale.com.co
http://canadagoose.jacketsoutlet.us.com
http://ugg.bootsoutlet.us.com
http://www.moncleroutlets.us.org
helinlin2017.8.21

引用这个评论 大蝎 于 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号