一张图片，确可以动态显示你的IP，希望高手给解释一下。
网址如下：
http://www.kijk.info/sigtekst/bart.gif
问题点数：0、回复次数：15Top
1 楼cnidb（老菜）回复于 2004-05-02 01:21:52 得分 0
http://www.kijk.info/sigtekst/bart.gif/
他后面有/Top
2 楼FEB15（张郎）回复于 2004-05-02 01:30:46 得分 0
mark 学习Top
3 楼wanghr100（灰豆宝宝.net(努力工作)）回复于 2004-05-02 01:56:40 得分 0
原理就是,图片加文字显示.
类似于验证码.
文件夹 bart.gif
该文件夹下面有 index.asp 文件.
偶用的是 三角猫 大哥的 "验证码组件"
index.asp
<%
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
%>
<img src="code.asp?code=<%=userip%>&stype=0">
code.asp
<%
'----------------------------------------------------------------
'* sjcatsoft.ValidateCode Component V1.02 *
'* *
'* Author:三角猫 (sjcatsoft) *
'* *
'* Date: 2003-12-12 *
'* *
'* HomePage: http://www.5013.net/ *
'* *
'* Email: webmaster@5013.net *
'* sjcatsoft@163.com *
'* *
'* 作者保留所有版权 *
'* *
'* 本组件可以任意传播转载，但请务必注明 作者、出处 *
'* 算是对作者劳动的尊重；否则，作者有权禁止该用户 *
'* 使用，谢谢配合! *
'* *
'* *
'* 三角猫 *
'*--------------------------------------------------------------*
%>
<%
code = trim(request.querystring("code"))
stype = trim(Request.QueryString("stype"))
If not IsNumeric(stype) Then
stype = 1
Else
stype = CInt(stype)
End if
If stype > 1 Then stype = 1
set demo = Server.CreateObject("sjcatsoft.ValidateCode")
demo.SourceImageType = stype 'SourceImageType 是底图的文件类型，0为BMP，1为JPG
If stype = 0 Then
demo.SourceImage = Server.mappath("source.bmp") '设置背景图
Else
demo.SourceImage = Server.mappath("source.jpg") '设置背景图
End if
demo.CodeColor = 7 'CodeColor 是验证码的颜色，支持 0-19 共 20 种
demo.CodeFontSize = 12 'CodeFontSize 是 验证码的字体大小，无限制
call demo.CreateCode(code)
set demo = nothing
%>
还有一文件 请留下E-mail
sjcatsoft.dll
得先用
regsvr32 sjcatsoft.dll 注册.Top
4 楼mikespook（CSDN ＝＝ 吹死大牛）回复于 2004-05-02 03:06:08 得分 0
送出HTTP头伪造ASP文件为图象文件~~
而http://www.kijk.info/sigtekst/bart.gif
只不过是一个叫bart.gif的目录而已~~~
这个在APACHE下用REWRITE方式，可以伪造得更好~~~Top
5 楼stefli（）回复于 2004-05-02 07:18:20 得分 0
支持楼上的说法~
只是一个目录而已~Top
6 楼clys（我跳起来给微软一脚！）回复于 2004-05-02 09:57:06 得分 0
~~学习中
Top
7 楼dullwolf（超级大笨狼之羊皮马甲）回复于 2004-05-02 14:53:40 得分 0
用组件轻松可以做到。
如果用vb做半小时就做完。因为有可以参考的代码。Top
8 楼lang11zi（微软菜虫）回复于 2004-05-02 17:23:33 得分 0
upTop
9 楼dsclub（任搏软）回复于 2004-05-02 17:27:23 得分 0
TO:dullwolf(超级大笨狼过程版（★★）)
可以给个参考吗？
dsclub@sina.com
谢谢了Top
10 楼zhc168（上泉潮）回复于 2004-05-02 19:23:05 得分 0
这个东西好，有的朋友能给我一份完整的代码吗？
先谢了Top
11 楼dullwolf（超级大笨狼之羊皮马甲）回复于 2004-05-04 12:25:21 得分 0
vb有好多合成图片的例子啊，都是存成bmp,几行代码而已Top
12 楼tangxufeng（变幻之风）回复于 2004-05-04 13:05:37 得分 0
首先用userip = Request.ServerVariables("REMOTE_ADDR")得到对方的IP,用
a=split(useip,".",4)把IP地址给分解开,然后净数字和后台的图片建立联系,如
<img src="<%=a(0)%>.gif">这样就这到了图片显示IP的效果Top
13 楼chinalinx（林高敏）回复于 2004-05-04 16:11:02 得分 0
up学习一下，呵呵，Top
14 楼zhaozhen2004（圣骑士）回复于 2004-05-04 19:09:12 得分 0
我的ip显示不对！！！Top
15 楼xiaoxo（iei）回复于 2004-06-18 11:19:50 得分 0
upTop
