海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
今天是周末，在网上下载了纯真IP数据，不过是DAT格式的，好不容易将数据导出为TXT格式，然后再处理成ACCESS格式，以便可以在自己的网站数据上使用。数据库记录详细，多达37万条的IP记录，地址也非常的详细，实在是难得的IP数据。

因为下载的数据库中有某网站的网址在里面，所以就用了ASP技术过滤了数据库中全部的网址，实际上也就是批处理技术了，用到的代码如下：
<%
'请将该程序和生成的MDB数据库放在IIS的同一目录下，同时MDB数据库命名为ip.mdb！
Dim Conn
Dim Connstr
Connstr="DBQ="+Server.Mappath("ip.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.Createobject("ADODB.CONNECTION")
Conn.Open=Connstr
Conn.Execute("Update IP Set local='' Where local Like '%HOTTEY.CN%'")
Response.Write("内容：HOTTEY.CN 清理完毕！")
%>
另外，为了方便某些程序直接调用，本人还写了个程序将数据库中的国家和地区（地址）合并到另外一个字段中，用到的程序代码如下：
<%
'因为转换37万的记录需要一定的时间，所以需要延长脚本超时的时间！
Server.ScriptTimeOut=500000000
Dim Conn
Dim Connstr
Connstr="DBQ="+Server.Mappath("IP.MDB")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.Createobject("ADODB.CONNECTION")
Conn.Open=Connstr
set rs=server.createobject("adodb.recordset")
sql="select * from IP where id<>null"
rs.open sql,conn,1,3
if not rs.eof then 
do while not rs.eof
Country=rs("Country")
City=rs("City")
Mynew=Country&City
rs("Detail")=mynew
rs.update
rs.movenext
loop
end if
response.write"操作完成!"
%>

以上是本人在转换中写的一些程序，供有兴趣的朋友研究一下，当然，程序还可以简化，直接用Conn.Execute的方式来写，但是本人喜欢用传统的格式来写程序。

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!