论坛图片签名调用博客文章并显IP增强版（2/21日修改）

'==================================
'文件名:new_Log.asp(随机背景版),new_logb.asp(单一背景版)
'使用方法[img　]http://www.leoyung.com/new_log.asp[/img　]去掉img后面的空格。
'描述:论坛图片签名调用博客文章显IP版，未标注处请勿随意更改，否则可能无法实现。
'作者：戒聊  http://www.leoyung.com
'更新日期:2008-09-04
'注意：IP数据库采用纯真IP数据库，请自动到http://www.onlinedown.net/soft/19051.htm下载，附件中没提供了。单一背景版请按实际情况修改背景图片名称。
'演示：随机背景版：http://www.leoyung.com/new_log.asp，单一背景版：http://www.leoyung.com/new_logb.asp
'=================================

Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows
Dim showType,titleLength,authorLength,topLen
Dim tCount
Dim outputStr(5),logdate(5)   '默认日志数量为5条，可修改数值5
Dim lefty,lefty1
Dim imgl,imgname,lefta,leftb
Dim LocalFile,TargetFile
Dim Jpeg
cate_ID=CheckStr(Request.QueryString("cateID"))
topLen = 5          '日志条数
titleLength=44         '日志标题字符数
FeedCate=False
lefty = 3     '日志Y轴起始位置，根据实际需要调整。
Dim sNo
sNo = Array("① ","② ","③ ","④ ","⑤ ","⑥ ","⑦ ","⑧ ","⑨ ","⑩ ")              '日志标题前序号，根据实际需要进行修改。

'随机图片
Randomize
if int(rnd()*2)+1=1 then     '由于我的背景图片大致分两类，一类是小孩的头像在左边，一类是小孩的头像在右边，所以这里要对图片做下处理，我的是以文件名来区分的，小孩头像在左边的以A开头，在右边的以B开头。如果不用区分A和B，去掉这个IF，根据实际情况做去留处理。
    imgl="a"
else
    imgl="b"
end if
Randomize
if imgl="a" then           '如果不用区分A和B，去掉这个IF，根据实际情况做去留处理。
    lefta=15                '以A开头的图片中日志标题的起始位置
    leftb=327                  '以A开头的图片中日志发表时间的起始位置
    imgname=imgl&int(rnd()*16)+1    '产生随机图片的文件名，我的以A开头的图片为16张，自己修改数字。
else
    lefta=193                 '以B开头的图片中日志标题的起始位置
    leftb=505                 '以B开头的图片中日志标题的起始位置
    imgname=imgl&int(rnd()*9)+1   '产生随机图片的文件名，我的以B开头的图片为9张，自己修改数字。
end if

Jpeg.Canvas.Font.Color = &Hffffff '水印文字颜色
Jpeg.Canvas.Font.Family = "宋体" '字体
Jpeg.Canvas.Font.Bold = False '是否加粗
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Font.ShadowColor = &H000000 '阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Font.Quality = 10 ' '输出质量

for tCount = 0 to topLen - 1
    lefty = lefty + 12     '12和下面的8,12,16,15可根据需要进行调整。
    Jpeg.Canvas.PrintText lefta,lefty,sNo(tCount) &outputStr(tCount)
    Jpeg.Canvas.PrintText leftb,lefty, logdate(tCount)
    lefty = lefty + 8
    Jpeg.Canvas.PrintText lefta,lefty,"---------------------------------------------------"
next

lefty = lefty + 12
Jpeg.Canvas.PrintText lefta,lefty,"鹰立鹤群　承接：网站建设／虚拟主机／域名注册／系统维护／网络安全"
lefty = lefty + 16
Jpeg.Canvas.PrintText 15,lefty,"您的IP地址："&ReqIP&",来自："&Look_Ip(ReqIP)&"　操作系统：" & ClientInfo(0) &" "& ClientInfo(1)

MyJpeg.DrawImage 0,0, Logo1, 0.9 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器