如何利用一张图片获取对方IP

发布网友 发布时间：2022-04-22 05:06

我来回答

共2个回答

热心网友 时间：2023-08-16 09:22

asp制作显示IP图片这是写的的ASP程序，你自己把图片和文字处填上就能用了 本程序采用动网论坛格式数据库,可从动网论坛的data目录找到 数据库文件为:IPaddress.MDB '------------------------------------ 'File: Ip.asp <!--#include file="conn.asp"--> <!--#include file="inc/config.asp"--> <%Response.ContentType = "image/gif" ConnDatabase Dim tempip,myipnumeber,sql,rs1 Dim country,city tempip=ReqIP tempip = Split(tempip,".") if Ubound(tempip)=3 then For i=0 To Ubound(tempip) tempip(i)=left(tempip(i),3) if isnumeric(tempip(i)) then tempip(i)=cint(tempip(i)) else tempip(i)=0 end if next myipnumeber=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3) End If sql="select country,city from DV_Address where IP1<="&myipnumeber&" and IP2>="&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.dev.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," 你的IP: "& ReqIP Jpeg.Canvas.PrintText 30,70," 你的位置: "&country&" "&city Jpeg.Canvas.PrintText 30,90," 操作系统: "&ClientInfo(0) Jpeg.Canvas.PrintText 30,110," 浏 览 器: "&RegExpFilter("Microsoft^�0�3 ", ClientInfo(1), 0, "") Jpeg.Canvas.PrintText 30,130,"-------------------------------------" Jpeg.Canvas.PrintText 30,145,"个性签名来自风易在线 www.knowsky.com" 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 <%dim conn,dbpath,UserIP sub ConnDatabase On Error Resume next set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("IP.MDB") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath If Err Then err.Clear Set Conn = Nothing Response.Write "数据库正在更新中，请稍后再试！" Response.End End If End Sub Sub CloseDatabase Conn.close Set Conn = Nothing End Sub%> '------------------------------------------------- 'File: config.asp <% Dim User_Agent User_Agent = Request.ServerVariables("HTTP_USER_AGENT") ' ============================================ ' 获取客户端配置 ' ============================================ Public Function ClientInfo(sType) If sType = 0 Then If InStr(User_Agent, "Windows 98") Then ClientInfo = "Windows 98" ElseIf InStr(User_Agent, "Win 9x 4.90") Then ClientInfo = "Windows ME" ElseIf InStr(User_Agent, "Windows NT 5.0") Then ClientInfo = "Windows 2000" ElseIf InStr(User_Agent, "Windows NT 5.1") Then ClientInfo = "Windows XP" ElseIf InStr(User_Agent, "Windows NT 5.2") Then ClientInfo = "Windows 2003" ElseIf InStr(User_Agent, "Windows NT") Then ClientInfo = "Windows NT" ElseIf InStr(User_Agent, "unix") or InStr(User_Agent, "Linux") or InStr(User_Agent, "SunOS") or InStr(User_Agent, "BSD") Then ClientInfo = "Unix & Linux" Else ClientInfo = "Other" End If ElseIf sType = 1 Then If InStr(User_Agent, "MSIE 7") Then ClientInfo = "Microsoft^�0�3 Internet Explorer 7.0" ElseIf InStr(User_Agent, "MSIE 6") Then ClientInfo = "Microsoft^�0�3 Internet Explorer 6.0" ElseIf InStr(User_Agent, "MSIE 5") Then ClientInfo = "Microsoft^�0�3 Internet Explorer 5.0" ElseIf InStr(User_Agent, "MSIE 4") Then ClientInfo = "Microsoft^�0�3 Internet Explorer 4.0" ElseIf InStr(User_Agent, "Netscape") Then ClientInfo = "Netscape^�0�3" ElseIf InStr(User_Agent, "Opera") Then ClientInfo = "Opera^�0�3" 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 %>转自：百度知道

热心网友 时间：2023-08-16 09:23

.net我就会。别人点击图片的时候链接的到你的网站上的时候。在首页加载事件中用requst。那有个属性可以取出对方的ip。访问统计你就加载一次加一次呗。就不是刷新一次加一次哦。这些字迹做吧