前几天看见有人提起如何实现这效果，当时想了一下，其实要实现的话也挺简单的，不过要有条件的朋友
应该具备的条件：
1.有权限调整WEB服务器应用程序映射
2.被允许在服务器上安装新的组件
首先我们来准备一下：
第一步：调整WEB服务器设置（这里是使用IIS5），设置您的站点应用程序映射，添加.jpg为ASP.DLL所解析执行，允许的动作可以设置为Only Get（最好新建一站点测试
不然给人黑了就别说我说这样做的
）
第二步：安装组件。本例中采用的是LEADBBS使用的GflSDK图形开发库。至于它的具体使用方法可以查阅它的帮助手册
现在，万事俱备，只欠东风了。让我们来编写获取和显示IP的程序代码吧
把以下代码存为*.jpg，然后通过WEB地址访问即可看到效果
代码：
Response.Expires = 0 Response.Buffer = TRUE Dim MyObj Set MyObj = Server.CreateObject("GflAx190.GflAx") MyObj.EnableLZW = True MyObj.LoadBitmap(Server.mappath("1.jpg")) if err Then GBL_FileType = 2 SaveSmallPic = 0 Set MyObj = Nothing err.clear Response.end End If UserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") UserIp2 = Request.ServerVariables("REMOTE_ADDR") If UserIp = "" then UserIp = UserIp2 Call MyObj.TextOut(UserIp, 108, 129, &H00FF0000&) Response.BinaryWrite MyObj.SendBinary
