大家一定在网上的论坛或者百度贴吧经常遇到显示IP地址的个性图片吧！
也曾经一度为她的神秘而折服吧！
此刻，我们就来揭开她的神秘面纱，相信你也可以轻而易举的做出自己心仪的IP个性图片来！
1、对于一些菜鸟，只是想引用现成的图片的朋友来说，我们只需要找到此图片的地址，通过适当的方式贴到网页、论坛或者百度贴吧里就OK了！这里有3种方法提供给大家：
（1）贴网页：
在网页的适当位置加入代码[url=http://6.poketb.com/index.asp][color=#ff0000]http://6.poketb.com/index.asp[/color][/url]即可；
（2）贴论坛：
在论坛个性签名设置中加入代码[color=#ff0000]“[/color]”即可。
[color=#ff0000]【注意】[/color][color=#ff0000][img]与[/img]之间必须为图片地址，即网址扩展名必须为.jpg等图片格式，否则加入也看不到任何效果。因此，我们这里要加上“?id=1.jpg”来转换为图片格式，其id=后面的数字可以随便写，这个没有关系。[/color]
还有一种情况，比如[url=http://www1.fy25.com/ip/ipimg.asp?id=3328]http://www1.fy25.com/ip/ipimg.asp?id=3328[/url]想加入论坛签名的话，只需要在网址后面加上.jpg转换为图片地址，即[url=http://www1.fy25.com/ip/ipimg.asp?id=3328.jpg][color=#ff0000]http://www1.fy25.com/ip/ipimg.asp?id=3328[/color][/url][color=#ff0000].jpg[/color] 就OK了！
（3）贴百度贴吧：
只需用在发帖的图片地址处输入代码[color=#ff0000][url=http://6.poketb.com/index.asp?id=1.jpg]http://6.poketb.com/index.asp?id=1.jpg[/color][/url] 即可。
[color=#ff0000]【注意】一定是图片网址，不是的话，要按照上面的方法转换为图片格式。[/color]
[color=#000000]后面附录有大量的IP签名图片呢，嘿嘿~~[/color]
[b][color=#0000ff]【附录1】显IP图片大集合[/color][/b]
[img]http://www.blogbee.cn/IP/sign.asp[/img][img]http://ip.91cool.net/sign/2.gif[/img]


[img]http://ip.91cool.net/sign/merry.gif[/img][img]http://ip.91cool.net/img/91cool.gif[/img]
[img]http://ip.91cool.net/img/lyc.gif[/img][img]http://ip.91cool.net/sign/1.gif[/img]
[img]http://www.jaron.cn/Sign.aspx[/img] [img]http://www.ip109.com/ippb.php[/img]
[img]http://ip.91cool.net/sign/free.gif[/img][img]http://ip.91cool.net/sign/freebsd.gif[/img]

[img]http://www.qqlin.net/ip/Ip.asp[/img][img]http://www.qqlin.net/ip/Ip2.asp[/img]
[img]http://www.qqlin.net/ip/Ip3.asp[/img][img]http://www.qqlin.net/ip/Ip4.asp[/img]
[img]http://www.qqlin.net/ip/Ip5.asp[/img]
[img]http://ip.91cool.net/img/zbc.gif[/img]
[img]http://id.91cool.net/sign/?name=圆梦梦&say=圆梦空间欢迎您[/img]


2、对于喜欢追根问底的朋友呢，肯定想知道这种图片是怎么做出来的，下面就来解析一下：
（1）用PHP或者ASP语言编写程序代码，文件命名为[color=#ff0000]*.php[/color]或者[color=#ff0000]*.asp[/color][color=#000000]（详见附录2代码及相关说明）[/color]
（2）上传到支持PHP或者ASP动态语言的网页空间
（3）找到此文件网址，并复制
（4）按照上述1的方法粘贴到网页、论坛或者百度贴吧即可。
[color=#0000ff][b]【附录2】1、用PHP程序编写的代码：[/b][/color]

//定义输出文字
imagestring($$im,$$font,$$maginx,$$maginy+20,"Your computer's named:{$$host}",$$red);
imagestring($$im,$$font,$$maginx,$$maginy,"Your IP Address is:{$$ip}",$$red);
imagestring($$im,2,2,2,"Today is {$$wday} and {$$tips}",$$blue);
imagestring($$im,3,10,$$maginy+40,"TotalRefreshTimesFromToday:$$sum",$$blue);
//图片结尾必然语句
ImagePNG($$im);
ImageDestroy($$im);
?>

[b][color=#0000ff]2、用asp程序编写的代码：[/color][/b]
本程序采用动网论坛格式数据库,可从动网论坛的data目录找到 数据库文件为:IPaddress.MDB
'------------------------------------
'File: Ip.asp


="&myipnumeber
set rs1=conn.execute(sql)
if not rs1.eof Then
country = rs1(0)
  city = rs1(1)
Else
country = "51Tiao.Com"
city = ""
End If
rs1.close : Set rs1 = Nothing
CloseDatabase
Dim LocalFile,TargetFile
LocalFile = Server.MapPath("Ip.gif")
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open (LocalFile) '打开图片
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
End if
Dim aa
aa=Jpeg.Binary '将原始数据赋给aa
'=========加文字水印====http://www.devdao.com/=============
Jpeg.Canvas.Font.Color = &H000000 '水印文字颜色
Jpeg.Canvas.Font.Family = "宋体" '字体
Jpeg.Canvas.Font.Bold = False '是否加粗
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Font.ShadowColor = &Hffffff '阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Font.Quality = 4 ' '输出质量
Jpeg.Canvas.PrintText 30,30,"-------------------------------------" '水印位置及文字
Jpeg.Canvas.PrintText 30,50," 你的ＩＰ: "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置: "&country&" "&city
Jpeg.Canvas.PrintText 30,90," 操作系统:

"&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," 浏 览 器: "&RegExpFilter("Microsoft? ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30,130,"-------------------------------------"
Jpeg.Canvas.PrintText 30,145,"个性签名来自风易在线 [url=http://www.knowsky.com/]www.knowsky.com[/url]"
bb=Jpeg.Binary '将文字水印处理后的值赋给bb，这时，文字水印没有不透明度

'============调整文字透明度================
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.9 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close : Set Jpeg = Nothing
MyJpeg.Close : Set MyJpeg = Nothing
Logo.Close : Set Logo = Nothing
%>
'--------------------------------------------------
'File: conn.asp

Sub CloseDatabase
Conn.close
Set Conn = Nothing
End Sub%>
'-------------------------------------------------
'File: config.asp
? Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Then
ClientInfo = "Microsoft? Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Then
ClientInfo = "Microsoft? Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Then
ClientInfo = "Microsoft? Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Then
ClientInfo = "Netscape?"
ElseIf InStr(User_Agent, "Opera") Then
ClientInfo = "Opera?"
Else
ClientInfo = "Other"
End If
End If
End Function

' ============================================
' 按照指定的正则表达式替换字符
' ============================================
Public Function RegExpFilter(Patrn, Str, sType, ReplaceWith)
Dim RegEx
Set RegEx = New RegExp
If sType = 1 Then
RegEx.Global = True
Else
RegEx.Global = False
End If
RegEx.Pattern = Patrn
RegEx.IgnoreCase = True
RegExpFilter = RegEx.Replace(Str, ReplaceWith)
End Function
Public Function ReqIP()
  ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ReqIP = "" or IsNull(ReqIP) Then ReqIP = Request.ServerVariables("REMOTE_ADDR")
End Function
%>