<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<!--#include file="Inc/Wh_BmpText.asp" -->
<%
Dim IP, nTime
IP = iXs.ReqIP()
iXs.User_Agent = iXs.UserBrowser(2)
nTime = iXs.FormatTime(Now(), 8)

Dim objbmp, mexp, ms
Set objbmp = New Wh_bmpText
objbmp.FontPath = server.mappath("DataBase/#Font_12.mdb")
objbmp.loadBMP(server.mappath("Skins/IpImg_000.bmp"))

ms = split(mexp, ";")
' =====================================
' Guidy注：DrawTextWE(lX,lY,sText,color) 参数说明
' lX	：文字的X坐标（左上角为0）
' lY	：文字的Y坐标（左上角为0）
' sText	：要输出的文字
' color	：文字色彩 这里的颜色是叠加颜色
' =====================================
' 修改时要注意：
' 您制作的IP签名图片必须是8位BMP格式
' 图片宽度最好大一点，因为有些IP定位的地址会很长
' 我这个只是演示，所以没有制作的很大
' 并且我这里过滤了浏览器信息的：Microsoft<sup>&reg;</sup>
' =====================================

' 已经标注过的文字信息是已经做在图片上的，为了减少服务器压力
'objbmp.DrawTextWE 20, 18, "您的来访信息:", 250
objbmp.DrawTextWE 125, 18, nTime, 30
objbmp.DrawTextWE 126, 19, nTime, 129
'objbmp.DrawTextWE 20, 26, "-----------------------------------", 200
objbmp.DrawTextWE 72, 36, IP, 200
objbmp.DrawTextWE 72, 52, Look_Ip(iXs.ReqIp()), 200
objbmp.DrawTextWE 84, 68, iXs.ClientInfo(0), 200
objbmp.DrawTextWE 72, 84, iXs.RegExpFilter("Microsoft<sup>&reg;</sup> ", iXs.ClientInfo(1), 0, ""), 200
'objbmp.DrawTextWE 20, 94, "-----------------------------------", 200
'objbmp.DrawTextWE 70, 107, "癞 蛤 蟆 就 吃 天 鹅 肉", 0
'objbmp.DrawTextWE 71, 108, "癞 蛤 蟆 就 吃 天 鹅 肉", 200
'objbmp.DrawTextWE 30, 126, "便民查询网 [www.99Fad.cn]", 129
'objbmp.DrawTextWE 30, 144, "我们的域名是 http://www.99Fad.cn/", 129

objbmp.write()
set objbmp = nothing
%>