收藏 1000兆免费大邮箱页面

　
　
　
　
　
　
这里没有免费的午餐，只有免费的邮箱
活动内容: 免费申请雅虎1000M大邮箱，1000M就是1G！没有特别要求或限制，任何人均可申请！
活动介绍: 此次免费邮箱申请活动9月30日截止，
机不可失！
如果您还在使用付费邮箱......
如果您还在抱怨邮箱容量太小......
如果您还在烦恼经常出现信件丢失......
我们建议您注册使用雅虎1000M免费邮箱！

雅虎邮箱不仅容量巨大，其先进的技术同时保证了稳定性、安全性、实用性
您可以用它发送超大的邮件，也可以用它存储一些图片、FLASH、MP3文件
雅虎的品质及信用保证：邮箱终身免费！

直接点击FLASH宣传广告进入申请页面
活动方式:

http://www.datang.net/yahoo_1g_mail.htm
将此网址发送给您的朋友
让他们也有机会获得免费邮箱
　

电子邮件：datangnet@263.net    版权所有 大唐网址精选   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 %>