本程序采用动网论坛格式数据库,可从动网论坛的data目录找到 数据库文件为:IPaddress.MDB
-
'ไฟล์: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "รูปภาพ/gif"
ConnDatabase
ติ่มซำอุณหภูมิ, myipnumber, sql, rs1
ประเทศสลัวเมือง
tempip=ReqIP
เทมปิป = แยก(เทมปิป,".")
ถ้า Ubound(tempip)=3 แล้ว
สำหรับ i=0 ถึง Ubound(tempip)
เทมปิป(i)=ซ้าย(เทมปิป(i),3)
ถ้าเป็นตัวเลข(tempip(i)) แล้ว
เทมปิป(i)=cint(เทมปิป(i))
อื่น
เทมปิป(i)=0
สิ้นสุดถ้า
ต่อไป
myipnumeber=อุณหภูมิ (0)*256*256*256+อุณหภูมิ (1)*256*256+อุณหภูมิ (2)*256+อุณหภูมิ (3)
สิ้นสุดถ้า
sql="เลือกประเทศ,เมืองจาก DV_Address โดยที่ IP1<="&myipnumeber&" และ IP2>="&myipnumeber
ตั้งค่า rs1=conn.execute(sql)
ถ้าไม่ใช่ rs1.eof งั้น
ประเทศ = rs1(0)
เมือง = rs1(1)
อื่น
ประเทศ = "51Tiao.Com"
เมือง = ""
สิ้นสุดถ้า
rs1.close : ตั้งค่า 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 '将原始数据赋给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 = เท็จ
Jpeg.Canvas.Font.Quality = 4 ' ' 输出质量
Jpeg.Canvas.PrintText 30,30,"-------------------------------------" 'ข้อความ位置及文字
Jpeg.Canvas.PrintText 30,50," คุณＩＰ: "& 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")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, โลโก้, 0.9 '0.3 是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标images了
Response.BinaryWrite cc '将二进输出给浏览器'
ตั้งค่า aa=ไม่มีอะไร
ตั้ง bb=ไม่มีอะไร
ตั้งค่า cc=nothing
Jpeg.close : ตั้ง Jpeg = ไม่มีเลย
MyJpeg.Close : ตั้งค่า MyJpeg = ไม่มีเลย
Logo.Close : ตั้งค่าโลโก้ = ไม่มี
%>
'---------------------------------------------------- ---
'ไฟล์: conn.asp
<%dim conn,dbpath,UserIP
ฐานข้อมูลย่อย ConnDatabase
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่า conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open "ผู้ให้บริการ = Microsoft.Jet.OLEDB.4.0; แหล่งข้อมูล = " & DBPath
หากผิดพลาดแล้ว
ผิดพลาด เคลียร์
ตั้งค่า Conn = ไม่มีเลย
Response.Write "数据库正在更新中，请稍后再试!"
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
สิ้นสุด
ฐานข้อมูลย่อยย่อย
คอน.ปิด
ตั้งค่า Conn = ไม่มีเลย
จบย่อย%>
'------------------------------------------------- ----
'ไฟล์: config.asp
<%
Dim User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
-
获取客户端配置
-
ClientInfo ฟังก์ชั่นสาธารณะ (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") จากนั้น
ข้อมูลลูกค้า = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") จากนั้น
ข้อมูลลูกค้า = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") จากนั้น
ข้อมูลลูกค้า = "วินโดวส์ 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") จากนั้น
ข้อมูลลูกค้า = "ยูนิกซ์และลินุกซ์"
อื่น
ข้อมูลลูกค้า = "อื่นๆ"
สิ้นสุดถ้า
ElseIf sType = 1 จากนั้น
ถ้า InStr(User_Agent, "MSIE 7") แล้ว
ลูกค้าข้อมูล = "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") จากนั้น
ลูกค้าข้อมูล = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") จากนั้น
ClientInfo = "เน็ตสเคป<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") จากนั้น
ClientInfo = "โอเปร่า<sup>®</sup>"
อื่น
ข้อมูลลูกค้า = "อื่นๆ"
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
' 按foto指定的正则表达式替换字符
-
ฟังก์ชั่นสาธารณะ RegExpFilter (รูปแบบ, Str, sType, แทนที่ด้วย)
Dim RegEx
ตั้งค่า RegEx = RegExp ใหม่
ถ้า sType = 1 แล้ว
RegEx.Global = จริง
อื่น
RegEx.Global = เท็จ
สิ้นสุดถ้า
RegEx.Pattern = รูปแบบ
RegEx.IgnoreCase = จริง
RegExpFilter = RegEx.Replace(Str, แทนที่ด้วย)
ฟังก์ชันสิ้นสุด
ReqIP ฟังก์ชั่นสาธารณะ ()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
ถ้า ReqIP = "" หรือ IsNull(ReqIP) ดังนั้น ReqIP = Request.ServerVariables("REMOTE_ADDR")
ฟังก์ชันสิ้นสุด
-