showbmp.asp

asp生成文字为BMP asp生成文字为BMP

<!--#include file="Wh_BmpText.asp" -->
<%
uppage = Request.ServerVariables("HTTP_REFERER")
addr = Request.ServerVariables("REMOTE_ADDR")
mexp = Request.ServerVariables("HTTP_USER_AGENT")

Dim objbmp
Set objbmp = New Wh_bmpText
objbmp.FontPath = server.mappath("font_12.asp")
objbmp.loadBMP(server.mappath("bb.bmp"))
' Web: http://www.knowsky.com
ms = split(mexp,";")
objbmp.DrawTextWE 2,14,"     您当前电脑信息",15
objbmp.DrawTextWE 2,28," IP是:" & addr,15
objbmp.DrawTextWE 2,42," 浏览器类型:" & ms(1),15
objbmp.DrawTextWE 2,56," 系统:" & left(ms(2),len(ms(2)) -1),15
objbmp.DrawTextWE 2,70,"         h哈哈哈...",15

objbmp.write()
set objbmp=nothing
%>