このプログラムは、アニメーション ネットワーク ブロック形式のデータ ベースを採用しており、アニメーション ネットワーク ブロックからデータ ファイルにアクセスできるデータ ファイル ファイルは次のとおりです。IPaddress.MDB
--------------------------------------------------
'ファイル: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "画像/gif"
接続データベース
Dim tempip、myipnumber、sql、rs1
薄暗い田舎、街
tempip=要求IP
tempip = Split(tempip,".")
Ubound(tempip)=3 の場合、
i=0 の場合、Ubound(tempip) へ
tempip(i)=left(tempip(i),3)
isnumeric(tempip(i)) の場合
tempip(i)=cint(tempip(i))
それ以外
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
set 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
Set Jpeg = Server.CreateObject("Persits.Jpeg")
-2147221005=エラーの場合
Response.write "没有这个组件，请安装!" '检查がAspJpegアセンブリをインストールしたかどうか
Response.End()
終了の場合
Jpeg.Open (LocalFile) '打开图片
err.number の場合
Response.write「打开图片失败、请检查路径！」
Response.End()
次の場合に終了
ディムああ
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 = False
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，このとき，文字水印不透明度
'============调整文字透明度================
Set 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、この時点でも目标画像了を生成できます
Response.BinaryWrite cc '将二进输出力给浏览器
aa=何も設定しない
bb=何も設定しない
cc=何も設定しない
Jpeg.close : Jpeg = なしを設定します
MyJpeg.Close : MyJpeg = なしを設定します
Logo.Close : ロゴ = なしを設定します
%>
'---------------------------------------------- ---
'ファイル: conn.asp
<%dim conn,dbpath,UserIP
サブ接続データベース
エラー時は次から再開
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;データ ソース=" & DBPath
エラーの場合はその後
エラークリア
Conn = 何も設定しない
Response.Write "データ据库正在更新中，请稍後再试！"
応答.終了
終了の場合
End Sub
Sub CloseDatabase
接続を閉じる
Conn = 何も設定しない
End Sub%>
'------------------------------------------ ----
'ファイル: config.asp
<%
ディムユーザーエージェント
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
' ===========================================
' 获取客户端配置
' ===========================================
パブリック関数 ClientInfo(sType)
sType = 0 の場合
If InStr(User_Agent, "Windows 98") then
クライアント情報 = "Windows 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") then
ClientInfo = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") then
ClientInfo = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") then
ClientInfo = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") then
ClientInfo = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT") then
クライアント情報 = "Windows NT"
ElseIf InStr(User_Agent, "unix") または InStr(User_Agent, "Linux") または InStr(User_Agent, "SunOS") または InStr(User_Agent, "BSD") then
ClientInfo = "Unix と Linux"
それ以外
クライアント情報 = "その他"
終了の場合
ElseIf sType = 1 then
If InStr(User_Agent, "MSIE 7") then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") then
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") then
ClientInfo = "Opera<sup>®</sup>"
それ以外
クライアント情報 = "その他"
終了の場合
終了の場合
終了機能
' ===========================================
' 按照指定の正表表示式置換文字
' ===========================================
パブリック関数 RegExpFilter(Patrn、Str、sType、ReplaceWith)
ディム正規表現
RegEx = 新しい RegEx を設定します
sType = 1 の場合
RegEx.Global = True
それ以外
RegEx.Global = False
終了の場合
RegEx.Pattern = パターン
RegEx.IgnoreCase = True
RegExpFilter = RegEx.Replace(Str, ReplaceWith)
終了機能
パブリック関数 ReqIP()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
ReqIP = "" または IsNull(ReqIP) の場合、ReqIP = Request.ServerVariables("REMOTE_ADDR")
終了機能
%>