Les informations sur les données et les données sont les suivantes : IPaddress.MDB
'------------------------------------
'Fichier : Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "image/gif"
Base de données Conn
Dim tempip,monnuméroip,sql,rs1
Pays sombre, ville
tempip = ReqIP
tempip = Split(tempip,".")
si Ubound(tempip)=3 alors
Pour i=0 Vers Ubound(tempip)
tempip(i)=gauche(tempip(i),3)
si est numérique (tempip (i)) alors
tempip(i)=cint(tempip(i))
autre
tempip(i)=0
finir si
suivant
monipnumer=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
Fin si
sql="sélectionnez le pays, la ville à partir de DV_Address où IP1<="&myipnumeber&" et IP2>="&myipnumeber
définir rs1 = conn.execute (sql)
sinon rs1.eof Alors
pays = rs1(0)
ville = rs1(1)
Autre
pays = "51Tiao.Com"
ville = ""
Fin si
rs1.close : Définir rs1 = Rien
CloseDatabase
Dim LocalFile,TargetFile
LocalFile = Serveur.MapPath("Ip.gif")
Faible Jpeg
Définir Jpeg = Server.CreateObject("Persits.Jpeg")
Si -2147221005=Err alors
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Réponse.Fin()
Fin si
Jpeg.Open (LocalFile) '打开图Photo
Si numéro d'erreur alors
Response.write "Il n'y a aucun problème à résoudre ce problème ;"
Réponse.Fin()
Terminer si
Faible 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 = Faux
Jpeg.Canvas.Font.Quality = 4 ' '出质量
Jpeg.Canvas.PrintText 30,30,"---------------------------------------------------" '水印位置及文字
Jpeg.Canvas.PrintText 30,50," et : "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置 : "&pays&" "&ville
Jpeg.Canvas.PrintText 30,90," Nom : "&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," Il s'ensuit : "&RegExpFilter("Microsoft<sup>®</sup> ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30 130,"---------------------------------------------------"
Jpeg.Canvas.PrintText 30 145,"个性签名来自风易在线www.downcodes.com "
bb=Jpeg.Binary '将文字水印处理后的值赋给bb，这时，文字水印没有不透明度
'==============================================
Définir 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 '
définir aa = rien
définir bb = rien
définir cc = rien
Jpeg.close : Définir Jpeg = Rien
MyJpeg.Close : Définir MyJpeg = Rien
Logo.Close : Définir le logo = Rien
%>
'-------------------------------------------------------------- ---
'Fichier : conn.asp
<%dim conn,dbpath,UserIP
sous ConnDatabase
En cas d'erreur, reprendre ensuite
set conn=server.createobject("adodb.connection")
DBPath = Serveur.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Si erreur alors
err.Effacer
Définir Conn = Rien
Réponse.Écrivez "数据库正在更新中，请稍后再试！"
Réponse.Fin
Fin si
Fin du sous-sous Fermer
la base de données
Conn.fermer
Définir Conn = Rien
Fin du sous%>
'--------------------------------------------- ----
'Fichier : config.asp
<%
Faible User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
' =============================================
' 获取客户端配置
' =============================================
Fonction publique ClientInfo(sType)
Si sType = 0 Alors
Si InStr(User_Agent, "Windows 98") Alors
ClientInfo = "Windows 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") Alors
ClientInfo = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") Alors
ClientInfo = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Alors
ClientInfo = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Alors
ClientInfo = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT") Alors
ClientInfo = "Windows NT"
Sinon, si InStr(User_Agent, "unix") ou InStr(User_Agent, "Linux") ou InStr(User_Agent, "SunOS") ou InStr(User_Agent, "BSD") Alors
ClientInfo = "Unix et Linux"
Autre
ClientInfo = "Autre"
Fin si
SinonSi sType = 1 Alors
Si InStr(User_Agent, "MSIE 7") Alors
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Alors
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Alors
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Alors
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Alors
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") Alors
ClientInfo = "Opera<sup>®</sup>"
Autre
ClientInfo = "Autre"
Fin si
Fin si
Fonction de fin
' =============================================
' 按照指定的正则表达式替换字符
' =============================================
Fonction publique RegExpFilter (Patrn, Str, sType, ReplaceWith)
Dim RegEx
Définir RegEx = Nouvelle RegExp
Si sType = 1 Alors
RegEx.Global = Vrai
Autre
RegEx.Global = Faux
Fin si
RegEx.Pattern = Modèle
RegEx.IgnoreCase = Vrai
RegExpFilter = RegEx.Replace(Str, RemplacerAvec)
Fonction de fin
Fonction publique ReqIP()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Si ReqIP = "" ou IsNull(ReqIP) Alors ReqIP = Request.ServerVariables("REMOTE_ADDR")
Fonction de fin
%>