ipimg.asp

是一个QQWRY.DAT的ASP利用程序

<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<!--#include file="Inc/Wh_BmpText.asp" -->
<%
Dim IP, Screen
IP = iXs.ReqIP()
Screen = iXs.ReqStr("Screen")
iXs.User_Agent = Request.ServerVariables("HTTP_USER_AGENT")

Dim objbmp, mexp, ms
Set objbmp = New Wh_bmpText
objbmp.FontPath = server.mappath("DataBase/Font_12.asp")
objbmp.loadBMP(server.mappath("Skins/IpImg.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 180, 18, "做人要厚道", 100
objbmp.DrawTextWE 20, 26, "-----------------------------------", 200
objbmp.DrawTextWE 24, 36, "IP地址: " & IP, 200
objbmp.DrawTextWE 24, 52, "IP定位: " & Look_Ip(iXs.ReqIp()), 200
objbmp.DrawTextWE 24, 68, "操作系统: " & iXs.ClientInfo(0), 200
objbmp.DrawTextWE 24, 84, "浏览器: " & iXs.RegExpFilter("Microsoft<sup>&reg;</sup> ", iXs.ClientInfo(1), 0, ""), 200
objbmp.DrawTextWE 24, 100, "屏幕信息: " & Screen, 200
objbmp.DrawTextWE 20, 110, "-----------------------------------", 200
objbmp.DrawTextWE 30, 126, "欢迎光临爱雪儿工作室 [iXuEr Studio]", 129
objbmp.DrawTextWE 30, 144, "我们的域名是 http://www.114xp.cn/", 129

objbmp.write()
set objbmp = nothing
%>