عنوان البريد الإلكتروني الخاص بك هو: IPaddress.MDB
'------------------------------------
'الملف: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "صورة/gif"
ConnDatabase
خافت tempip،myipnumber،sql،rs1
بلد خافت، مدينة
tempip=ReqIP
tempip = سبليت (tempip،".")
إذا Ubound(tempip)=3 ثم
لأني=0 إلى Ubound(tempip)
tempip(i)=يسار(tempip(i),3)
إذا كان غير رقمي (tempip (i)) إذن
tempip(i)=cint(tempip(i))
آخر
درجة الحرارة (ط) = 0
نهاية إذا
التالي
myipnumeber=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.إغلاق: تعيين rs1 = لا شيء
CloseDatabase
Dim LocalFile،TargetFile
LocalFile = Server.MapPath("Ip.gif")
خافت الحياة السياسية في فرنسا
تعيين Jpeg = Server.CreateObject("Persits.Jpeg")
إذا -2147221005=أخطأ إذن
Response.write "没有这个组件،请安装!" 'أفضل برامج AspJpeg
الاستجابة.النهاية ()
نهاية إذا
Jpeg.Open (LocalFile) 'ملف مفتوح'
إذا err.number ثم
Response.write "打开图片失败,请检查路径!"
الاستجابة.النهاية ()
انتهي إذا
خافت أأ
aa=Jpeg.Binary 'ملخص البيانات
' ===============http://www.devdao.com/========== ==
Jpeg.Canvas.Font.Color = &H000000 'قم بتحديد اللون
Jpeg.Canvas.Font.Family = "الصورة" 'الصورة
Jpeg.Canvas.Font.Bold = خطأ
Jpeg.Canvas.Font.Size = 12 بوصة حجم الصورة
Jpeg.Canvas.Font.ShadowColor = &Hffffff 'تحديد اللون
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = خطأ
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'
'=====================================================================
تعيين MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary ب
MyJpeg.DrawImage 0,0, Logo, 0.9 '0.3是透明度
cc=MyJpeg.Binary'
Response.BinaryWrite cc 'احصل على المزيد
تعيين أأ=لا شيء
تعيين ب = لا شيء
تعيين سم مكعب = لا شيء
Jpeg.إغلاق: تعيين Jpeg = لا شيء
MyJpeg.Close: اضبط MyJpeg = لا شيء
Logo.Close: تعيين الشعار = لا شيء
%>
'---------------------------------------------- ---
'الملف: conn.asp
<%dim conn,dbpath,UserIP
قاعدة بيانات Conn الفرعية
عند استئناف الخطأ بعد ذلك
مجموعة conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
إذا أخطأت ثم
خطأ. واضح
تعيين كون = لا شيء
Response.اكتب "هل ترغب في أن تكون سعيدًا؟"
الاستجابة.النهاية
نهاية إذا
End Sub
Sub CloseDatabase
كون.كلوز
تعيين كون = لا شيء
النهاية الفرعية%>
'-------------------------------------------- ----
'الملف: config.asp
<%
خافت User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
'==========================================================================================
' 取客户端配置
'==========================================================================================
معلومات العميل الخاصة بالوظيفة العامة (sType)
إذا كان sType = 0 ثم
إذا كان InStr(User_Agent، "Windows 98") إذن
معلومات العميل = "ويندوز 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") ثم
معلومات العميل = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") ثم
معلومات العميل = "ويندوز 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") ثم
معلومات العميل = "ويندوز إكس بي"
ElseIf InStr(User_Agent, "Windows NT 5.2") ثم
معلومات العميل = "ويندوز 2003"
ElseIf InStr(User_Agent, "Windows NT") ثم
معلومات العميل = "ويندوز NT"
ElseIf InStr(User_Agent, "unix") أو InStr(User_Agent, "Linux") أو InStr(User_Agent, "SunOS") أو InStr(User_Agent, "BSD") ثم
معلومات العميل = "يونكس ولينكس"
آخر
معلومات العميل = "أخرى"
نهاية إذا
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)
خافت RegEx
قم بتعيين RegEx = New RegExp
إذا كان sType = 1 ثم
RegEx.Global = صحيح
آخر
RegEx.Global = خطأ
نهاية إذا
RegEx.Pattern = النمط
RegEx.IgnoreCase = صحيح
RegExpFilter = RegEx.Replace(Str, ReplaceWith)
وظيفة النهاية
طلب الوظيفة العامة ()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
إذا كان ReqIP = "" أو IsNull(ReqIP) ثم ReqIP = Request.ServerVariables("REMOTE_ADDR")
وظيفة النهاية
%>