alamat email, alamat data, alamat email: IPaddress.MDB
'--------------------------------------------------
'File: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "gambar/gif"
Basis Data Sambungan
Redupkan tempip,myipnumeber,sql,rs1
Negara redup, kota
tempip=Persyaratan
tempip = Pisahkan(tempip,.")
jika Ubound(tempip)=3 maka
Untuk i=0 Ke Ubound(tempip)
tempip(i)=kiri(tempip(i),3)
jika isnumerik(tempip(i)) maka
tempip(i)=cint(tempip(i))
kalau tidak
suhu(i)=0
berakhir jika
Berikutnya
nomor saya=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
Akhiri Jika
sql="pilih negara, kota dari DV_Address di mana IP1<="&myipnumeber&" dan IP2>="&myipnumeber
setel rs1=sambungan.eksekusi(sql)
jika tidak rs1.eof Lalu
negara = rs1(0)
kota = rs1(1)
Kalau tidak
negara = "51Tiao.Com"
kota = ""
Akhiri Jika
rs1.close : Tetapkan rs1 = Tidak ada
CloseDatabase
Redupkan File Lokal, File Target
File Lokal = Server.MapPath("Ip.gif")
Redupkan JPEG
Setel Jpeg = Server.CreateObject("Persits.Jpeg")
Jika -2147221005=Err maka
Response.tulis "没有这个组件,请安装!" '检查是否安装AspJpeg组件
Respon.Akhir()
Akhiri Jika
Jpeg.Open (LocalFile) 'foto
Jika err.number maka
Response.write"打开图片失败,请检查路径!"
Respon.Akhir()
Berakhir jika
Redupkan 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 = Salah
Jpeg.Canvas.Font.Quality = 4 ' '输出质量
Jpeg.Canvas.PrintText 30,30,"-------------------------------------" '水印位置及文字
Jpeg.Canvas.PrintText 30,50," 你的IP: "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置: "&negara&" "&kota
Jpeg.Canvas.PrintText 30,90," artinya: "&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," dan seterusnya: "&RegExpFilter("Microsoft<sup>®</sup> ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30.130,"-------------------------------------"
Jpeg.Canvas.PrintText 30,145,"个性签名来自风易在线www.downcodes.com "
bb=Jpeg.Binary '将文字水印处理后的值赋给bb,这时,文字水印没有不透明度
'============调整文字透明度=
Setel MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary dan
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 '将二进输出给浏览器
atur aa=tidak ada
atur bb=tidak ada
atur cc=tidak ada
Jpeg.close : Tetapkan Jpeg = Tidak Ada
MyJpeg.Close : Tetapkan MyJpeg = Tidak Ada
Logo.Tutup : Set Logo = Tidak Ada
%>
'----------------------------------------------- ---
'File: samb.asp
<%dim samb,dbpath,UserIP
sub ConnDatabase
Pada Error Resume selanjutnya
setel koneksi=server.buat objek("adodb.koneksi")
DBPath = Server.MapPath("IP.MDB")
samb.Buka "Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data=" & DBPath
Jika Salah Lalu
err.Hapus
Setel Sambungan = Tidak Ada
Tanggapan.Tulis "数据库正在更新中,请稍后再试!"
Respon.Akhir
Akhiri Jika
Akhiri Sub
Sub CloseDatabase
Sambungan tutup
Setel Sambungan = Tidak Ada
Akhir Sub%>
'--------------------------------------------- ----
'Berkas: config.asp
<%
Redupkan Agen_Pengguna
Agen_Pengguna = Permintaan.Variabel Server("HTTP_USER_AGENT")
' ===============
' 获取客户端配置
' ===============
Info Klien Fungsi Publik (sType)
Jika sType = 0 Maka
Jika InStr(User_Agent, "Windows 98") Lalu
Info Klien = "Windows 98"
ElseIf InStr(User_Agent, "Menang 9x 4,90") Lalu
Info Klien = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") Lalu
Info Klien = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Lalu
Info Klien = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Lalu
Info Klien = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT") Lalu
Info Klien = "Windows NT"
ElseIf InStr(User_Agent, "unix") atau InStr(User_Agent, "Linux") atau InStr(User_Agent, "SunOS") atau InStr(User_Agent, "BSD") Lalu
Info Klien = "Unix & Linux"
Kalau tidak
Info Klien = "Lainnya"
Akhiri Jika
ElseIf sType = 1 Maka
Jika InStr(User_Agent, "MSIE 7") Lalu
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Lalu
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Lalu
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Lalu
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Lalu
Info Klien = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") Lalu
Info Klien = "Opera<sup>®</sup>"
Kalau tidak
Info Klien = "Lainnya"
Akhiri Jika
Akhiri Jika
Fungsi Akhir
' ===============
' 按照指定的正则表达式替换字符
' ===============
Fungsi Publik RegExpFilter(Patrn, Str, sType, GantiDengan)
Redupkan RegEx
Tetapkan RegEx = RegExp Baru
Jika sType = 1 Maka
RegEx.Global = Benar
Kalau tidak
RegEx.Global = Salah
Akhiri Jika
RegEx.Pattern = Pola
RegEx.IgnoreCase = Benar
RegExpFilter = RegEx.Replace(Str, GantiDengan)
Fungsi Akhir
Persyaratan Fungsi Publik()
PersyaratanIP = Permintaan.ServerVariables("HTTP_X_FORWARDED_FOR")
Jika ReqIP = "" atau IsNull(ReqIP) Maka ReqIP = Request.ServerVariables("REMOTE_ADDR")
Fungsi Akhir
%>