主题:  本小姐又提问!这种特效……

伊不能静

职务:普通成员
等级:1
金币:1.0
发贴:147
注册:2001/10/5 16:30:08
#12001/10/10 9:19:20
访问者进来时显示“欢迎xx省xx市xx县的朋友”,这种特效的代码谁有?请赞助!谢谢!



5D荣誉斑竹

职务:普通成员
等级:5
金币:10.0
发贴:3292
注册:2001/5/24 10:01:29
#22001/10/10 10:44:15
没有!



米米饭

职务:普通成员
等级:1
金币:0.0
发贴:79
注册:2000/10/9 17:44:03
#32001/10/10 12:10:29
用追捕的数据库啊,不过追捕的数据库也没有你说的那么全,不过还好,他在不断的完善中


转wry.dll为.mdb由于我们要优化数据库(适合我们用的),建议这样做:
将文件改为wry.xls用Excel打开。
在Access中新建表IP

字段名 类型 长度 说明

------------------------------------------------------------------------------------------------------------

id 自动编号

newid 数字 5 startip前三个数字
seconded 数字 5 startip第二部分三个数字
startip 文本 20 起始IP段
endip 文本 20 止 IP 段
country 文本 此段IP所在国家或省
local 文本 此段IP所在地



从Excel中copy startip/endip/country/local 四个字段至Access ,id会自动添加,对于newid和secondid当然我们不可能手工添加,可以这样实现:


<%
sqlcmd="select * from ip"

‘建议使用sqlcmd="select * from ipwhere id>=值1 and id<值2" ,因为对于一万个左右的数据一下子添加资源占用很大

set rs=ip.execute(sqlcmd)
do while not rs.eof
fir=left(rs("startip"),3)
sec=mid(rs("startip"),5,3)
sqlcmd3="update ip set newid='"&str&"',secondid='"sec"' "
ip.execute sqlcmd3
rs.movenext
loop
%>

这样就完成数据库的修改

有了数据库,你就可以用asp,cgi,php等技术做显示地址的功能了。

编辑历史:[这消息被5D大叔编辑过(编辑时间2001-10-10 13:12:04)]


伊不能静

职务:普通成员
等级:1
金币:1.0
发贴:147
注册:2001/10/5 16:30:08
#42001/10/10 13:18:55
天哪,这么复杂。我还以为只要放段代码就可以……



求可知

职务:普通成员
等级:3
金币:10.0
发贴:718
注册:2001/8/18 12:32:59
#52001/10/10 17:22:40
楼上的兄弟,数据库学的很好啊,以后我要想你多多请教了:-)



helmet

职务:版主
等级:4
金币:10.0
发贴:1559
注册:2004/1/30 15:59:27
#62001/10/10 19:33:01
免费代码:
http://www.jgwy.com/ipss.htm

看看怎样?