收藏 电子信箱 页面

 
 
 
 
 
 
帐号: 信箱: 密码:

电子信箱   申请1G免费邮箱

中文雅虎 263免费信箱 中华网免费电邮(2M) TOM 免费邮箱(10M)
网易 云南信息港 新浪 网易126信箱
亿唐邮局 搜狐邮箱(要有手机) 中华网信天邮 亿邮
163电子邮局 网易邮件中心 亿唐邮局 21cn.com
上海索易 百家免费电邮 ChinaRen邮箱 商都信息港--邮箱
88998免费邮局 天丽鸟 天丽鸟 上海热线
北京信息港免费邮件 阿福台免费电子信箱 亿邮 363.net
yahoo-mail Hotmail 2911邮件  
 

    版权所有 大唐网址精选   Copyright © 2004

<% function third(a) if len(a)=1 then third= "00"&a elseif len(a)=2 then third= "0"&a else third= a end if a="" end function function ipsearch(ip) if ip="" or isnull(ip)=true then ipsearch="请输入IP地址" elseif len(ip)<7 or len(ip)>15 or IsNumeric(replace(ip,".",""))=False or UBound(split(ip,"."))<>3 then ipsearch="您输入的IP地址格式不对" else ipsearchdim=split(ip,".") ip=ipsearchdim(0)&third(ipsearchdim(1))&third(ipsearchdim(2))&third(ipsearchdim(3)) ip=cdbl(ip) Set rsip = Server.CreateObject("ADODB.Recordset") sqlip="SELECT top 1 * FROM cn_ipsearch where nvarchar_start_ip<="&ip &" and nvarchar_end_ip>="&ip&" order by nvarchar_end_ip-nvarchar_start_ip" 'response.write sqlip 'response.end rsip.open sqlip,conn,1,1 if rsip.eof then ipsearch="暂时没有这个ip地址的信息" else ipsearch=rsip("nvarchar_country")&rsip("nvarchar_local") end if end if end function %>