Dirección IP.MDB
'------------------------------------
'Archivo: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "imagen/gif"
Base de datos de conexión
Tempip tenue, número myip, sql, rs1
País oscuro, ciudad
tempip=ReqIP
tempip = Dividir(tempip,".")
si Ubound(tempip)=3 entonces
Para i=0 a Ubound(tempip)
tempip(i)=izquierda(tempip(i),3)
si es numérico (tempip (i)) entonces
tempip(i)=cint(tempip(i))
demás
temperatura(i)=0
terminar si
próximo
minúmeroip=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
Terminar si
sql="seleccione país, ciudad de DV_Address donde IP1<="&myipnumeber&" e IP2>="&myipnumeber
establecer rs1=conn.execute(sql)
si no es rs1.eof entonces
país = rs1(0)
ciudad = rs1(1)
Demás
país = "51Tiao.Com"
ciudad = ""
Terminar si
rs1.close: Establecer rs1 = Nada
CerrarBase de datos
Dim LocalFile,TargetFile
Archivolocal = Server.MapPath("Ip.gif")
JPEG tenue
Establecer Jpeg = Server.CreateObject ("Persits.Jpeg")
Si -2147221005=Error entonces
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Respuesta.Fin()
Terminar si
Jpeg.Open (LocalFile) '打开图片
Si número de error entonces
Response.write"打开图片失败,请检查路径！"
Respuesta.Fin()
terminar si
tenue 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 = Falso
Jpeg.Canvas.Font.Quality = 4 ' '输出质量
Jpeg.Canvas.PrintText 30,30,"-------------------------------------" '水印位置及文字
Jpeg.Canvas.PrintText 30,50," 你的ＩＰ: "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置: "&país&" "&ciudad
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，这时，文字水印没有不透明度
'============调整文字透明度================
Establecer MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Establecer logotipo = Server.CreateObject("Persits.Jpeg")
Logotipo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.9 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器
establecer aa = nada
establecer bb = nada
establecer cc = nada
Jpeg.close: Establecer Jpeg = Nada
MyJpeg.Close: Establecer MyJpeg = Nada
Logo.Cerrar: Establecer logotipo = Nada
%>
'----------------------------------------------- ---
'Archivo: conn.asp
<%dim conn,dbpath,UserIP
subConnDatabase
En caso de error Reanudar siguiente
establecer conexión=servidor.createobject("adodb.conexión")
DBPath = Servidor.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Si se equivoca entonces
errar.Borrar
Establecer conexión = nada
Respuesta.Escriba "数据库正在更新中，请稍后再试！"
Respuesta.Fin
Terminar si
Fin Sub
Sub Cerrar Base de datos
Conex.cerrar
Establecer conexión = nada
Fin Sub%>
'----------------------------------------------------- ----
'Archivo: config.asp
<%
Agente de usuario atenuado
User_Agent = Solicitud.ServerVariables("HTTP_USER_AGENT")
' ===============================================
' 获取客户端配置
' ===============================================
Información de cliente de función pública (tipo)
Si sType = 0 Entonces
Si InStr(User_Agent, "Windows 98") Entonces
Información del cliente = "Windows 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") Entonces
Información del cliente = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") Entonces
Información del cliente = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Entonces
Información del cliente = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Entonces
Información del cliente = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT") Entonces
Información del cliente = "Windows NT"
ElseIf InStr(User_Agent, "unix") o InStr(User_Agent, "Linux") o InStr(User_Agent, "SunOS") o InStr(User_Agent, "BSD") Entonces
Información del cliente = "Unix y Linux"
Demás
Información del cliente = "Otro"
Terminar si
De lo contrario, si sType = 1, entonces
Si InStr(User_Agent, "MSIE 7") Entonces
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Entonces
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Entonces
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Entonces
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Entonces
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") Entonces
ClientInfo = "Ópera<sup>®</sup>"
Demás
Información del cliente = "Otro"
Terminar si
Terminar si
Función final
' ===============================================
' 按照指定的正则表达式替换字符
' ===============================================
Función pública RegExpFilter (Patrn, Str, sType, Reemplazar con)
Expresión regular tenue
Establecer RegExp = Nueva RegExp
Si sType = 1 Entonces
RegEx.Global = Verdadero
Demás
RegEx.Global = Falso
Terminar si
RegEx.Pattern = Patrón
RegEx.IgnoreCase = Verdadero
RegExpFilter = RegEx.Replace(Str, ReemplazarCon)
Función final
Función pública ReqIP()
ReqIP = Solicitud.ServerVariables("HTTP_X_FORWARDED_FOR")
Si ReqIP = "" o IsNull(ReqIP) Entonces ReqIP = Request.ServerVariables("REMOTE_ADDR")
Función final
%>