本程式採用動網論壇格式資料庫，可從動網論壇的資料目錄找到資料庫檔案為: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")
結束功能
%>