Файлы данных могут быть загружены с помощью IPaddress.MDB.
'------------------------------------
'Файл: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "изображение/гиф"
База данных Conn
Тусклый темп, myipnumeber, sql, rs1
Тусклая страна, город
tempip=ReqIP
tempip = Split(tempip,".")
если Ubound(tempip)=3, то
Для i=0 до Ubound(tempip)
tempip(i)=влево(tempip(i),3)
если isnumeric(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.close : Установить rs1 = Ничего
CloseDatabase
Dim LocalFile, TargetFile
LocalFile = Server.MapPath("Ip.gif")
Тусклый JPEG
Установить Jpeg = Server.CreateObject("Persits.Jpeg")
Если -2147221005=Ошибка, тогда
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Ответ.Конец()
Конец, если
Jpeg.Open (LocalFile) 'Фото файла
Если номер ошибки, то
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")
Логотип.OpenBinary bb
MyJpeg.DrawImage 0,0, Логотип, 0,9 '0,3 дюйма
cc=MyJpeg.Binary '将最终结果赋值给cc, 这时也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器
установить аа=ничего
установить bb=ничего
установить cc=ничего
Jpeg.close: Установить Jpeg = Ничего.
MyJpeg.Close: Установить MyJpeg = Ничего
Logo.Close: Установить логотип = Ничего
%>
'----------------------------------------------- ---
'Файл: conn.asp
<%dim conn,dbpath,UserIP
дополнительная база данных ConnDatabase
При ошибке Возобновить дальше
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Источник данных=" & DBPath
Если Ошибка Тогда
Ошиб.Очистить
Установить соединение = ничего
Ответ.Напишите «数据库正在更新中，请稍后再试！»
Ответ.Конец
Конец, если
Завершить подписку
CloseDatabase
Конн.закрыть
Установить соединение = ничего
End Sub%>
'--------------------------------------------- ----
'Файл: config.asp
<%
Тусклый User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
' ==========================================
' 获取客户端配置
' ==========================================
Открытая функция ClientInfo(sType)
Если sType = 0 Тогда
Если InStr(User_Agent, «Windows 98») Тогда
КлиентИнфо = "Windows 98"
ИначеЕсли InStr(User_Agent, «Win 9x 4.90») Тогда
ClientInfo = "Windows ME"
ИначеЕсли InStr(User_Agent, «Windows NT 5.0») Тогда
КлиентИнфо = "Windows 2000"
ИначеЕсли InStr(User_Agent, «Windows NT 5.1») Тогда
КлиентИнфо = "Windows XP"
ИначеЕсли InStr(User_Agent, «Windows NT 5.2») Тогда
КлиентИнфо = "Windows 2003"
ИначеЕсли InStr(User_Agent, «Windows NT») Тогда
ClientInfo = "Windows NT"
ИначеЕсли InStr(User_Agent, «unix») или InStr(User_Agent, «Linux») или InStr(User_Agent, «SunOS») или InStr(User_Agent, «BSD») Тогда
ClientInfo = "Unix и Linux"
Еще
Информация о Клиенте = "Другое"
Конец, если
ИначеЕсли sType = 1 Тогда
Если InStr(User_Agent, «MSIE 7») Тогда
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ИначеЕсли InStr(User_Agent, «MSIE 6») Тогда
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ИначеЕсли InStr(User_Agent, «MSIE 5») Тогда
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ИначеЕсли InStr(User_Agent, «MSIE 4») Тогда
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ИначеЕсли InStr(User_Agent, «Netscape») Тогда
ClientInfo = "Netscape<sup>®</sup>"
ИначеЕсли InStr(User_Agent, "Opera") Тогда
ClientInfo = "Opera<sup>®</sup>"
Еще
Информация о Клиенте = "Другое"
Конец, если
Конец, если
Конечная функция
' ==========================================
' 按照指定的正则表达式替换字符
' ==========================================
Открытая функция RegExpFilter(Patrn, Str, sType, replaceWith)
Тусклое регулярное выражение
Установить RegEx = Новое регулярное выражение
Если 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")
Конечная функция
%>