本程序采用动网论坛格式数据库，可从动网论坛的数据目录找到数据库文件为:IPaddress.MDB
'------------------------------------
'文件：Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "图像/gif"
康涅狄格州数据库
昏暗的 tempip，myipnumber，sql，rs1
昏暗的乡村，城市
tempip=请求IP
tempip = Split(tempip,".")
如果 Ubound(tempip)=3 那么
对于 i=0 至 Ubound(tempip)
tempip(i)=左(tempip(i),3)
如果 isnumeric(tempip(i)) 那么
tempip(i)=cint(tempip(i))
别的
温度(i)=0
结束如果
下一个
myipnumber=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
结束如果
sql="从 DV_Address 选择国家/地区、城市，其中 IP1<="&myipnumeber&" 和 IP2>="&myipnumeber
设置 rs1=conn.execute(sql)
如果不是 rs1.eof 那么
国家 = rs1(0)
城市 = rs1(1)
别的
国家=“51Tiao.com”
城市=“”
结束如果
rs1.close ：设置 rs1 = Nothing
关闭数据库
Dim LocalFile,TargetFile
LocalFile = Server.MapPath("Ip.gif")
暗淡 Jpeg
设置 Jpeg = Server.CreateObject("Persits.Jpeg")
如果-2147221005=错误则
Response.write "没有这个组件，请安装！" '检查是否安装AspJpeg组件
响应.End()
结束如果
Jpeg.Open (LocalFile) '打开图片
如果 err.number 那么
Response.write"打开图片失败，请检查路径！"
响应.End()
结束如果
昏暗的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,"你的IP:"&ReqIP
Jpeg.Canvas.PrintText 30,70,"你的位置: "&country&" "&city
Jpeg.Canvas.PrintText 30,90," 网络: "&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," 浏览器: "&RegExpFilter("Microsoft<sup>®</sup> ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30,130，“------------------------------------------------”
Jpeg.Canvas.PrintText 30,145，“个性签名来自风易在线www.downcodes.com ”
bb=Jpeg.Binary '将文字水印处理后的值赋给bb，接下来，文字水印没有不透明度
'============调整文字宽度================
设置 MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
徽标.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.9 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc，接下来也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器
设置 aa=无
设置 bb=无
设置抄送=无
Jpeg.close ：设置 Jpeg = Nothing
MyJpeg.Close ：设置 MyJpeg = Nothing
Logo.Close : 设置 Logo = 无
%>
'------------------------------------------------------------ ---
'文件：conn.asp
<%dim conn,dbpath,用户IP
子连接数据库
出错时继续下一步
设置 conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open“Provider=Microsoft.Jet.OLEDB.4.0;数据源=”& DBPath
如果出错那么
错误清除
设置 Conn = 无
Response.Write "数据库正在更新中，请稍后再试！"
响应.结束
结束如果
结束子
子关闭数据库
康涅狄格州关闭
设置 Conn = 无
结束子%>
'-------------------------------------------------------- ----
'文件：config.asp
<%
昏暗的用户代理
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
==============================================
'获取客户端配置
==============================================
公共函数 ClientInfo(sType)
如果 sType = 0 那么
如果 InStr(User_Agent, "Windows 98") 那么
客户端信息 =“Windows 98”
ElseIf InStr(User_Agent, "Win 9x 4.90") 然后
客户端信息 =“Windows ME”
ElseIf InStr(User_Agent, "Windows NT 5.0") 然后
客户端信息 =“Windows 2000”
ElseIf InStr(User_Agent, "Windows NT 5.1") 然后
客户端信息 =“Windows XP”
ElseIf InStr(User_Agent, "Windows NT 5.2") 然后
客户端信息 =“Windows 2003”
ElseIf InStr(User_Agent, "Windows NT") 然后
客户端信息 =“Windows NT”
ElseIf InStr(User_Agent, "unix") 或 InStr(User_Agent, "Linux") 或 InStr(User_Agent, "SunOS") 或 InStr(User_Agent, "BSD") 那么
ClientInfo =“Unix 和 Linux”
别的
客户信息=“其他”
结束如果
ElseIf sType = 1 那么
如果 InStr(User_Agent, "MSIE 7") 那么
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") 然后
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") 然后
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") 然后
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") 然后
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") 那么
ClientInfo = "Opera<sup>®</sup>"
别的
客户信息=“其他”
结束如果
结束如果
结束功能
==============================================
' 指定的正则表达式替换字符
==============================================
公共函数 RegExpFilter(Patrn, Str, sType, ReplaceWith)
昏暗的正则表达式
设置正则表达式 = 新正则表达式
如果 sType = 1 那么
正则表达式.Global = True
别的
正则表达式.Global = False
结束如果
RegEx.Pattern = 模式
RegEx.IgnoreCase = True
RegExpFilter = RegEx.Replace(Str, ReplaceWith)
结束功能
公共函数 ReqIP()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
如果 ReqIP = "" 或 IsNull(ReqIP) 则 ReqIP = Request.ServerVariables("REMOTE_ADDR")
结束功能
%>