<% '定义出现图标的文章列表 News_List = "|http://www.chinaz.com/Webmaster/Club/112TK112008.html|http://www.chinaz.com/News/IT/112TL242008.html|" '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** '****以下部分程序和参数千万不可修改**** News_List = Lcase(News_List) News_List = Replace(News_List,"http://chinaz.com/","") News_List = Replace(News_List,"http://www.chinaz.com/","") Referer = LCase(Request.ServerVariables("HTTP_REFERER")) Referer = Replace(Referer,"http://chinaz.com/","") Referer = Replace(Referer,"http://www.chinaz.com/","") If Instr(Lcase(News_List),"|"&Referer&"|") Then '配置正确的图片模版路径和日期格式 Response.Redirect("chinaz.gif") Response.End Image_Path = "/images/tenpay/chinaz.gif" Request_Date = Request("date") If Request_Date = Replace(Date(),Year(Date())&"-","") Then MarkWords = Replace(Replace(Date(),Year(Date())&"-",""),"-","月")&"日活动" Else MarkWords = Replace(Request_Date,"-","月")&"日活动" End If Else '判断错误后转向的空白图片路径 Response.Redirect("blank.gif") Response.End End If Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(Image_Path) Jpeg.Canvas.Font.Color = &HFF7D01 '水印文字颜色 Jpeg.Canvas.Font.Family = "宋体" '水印字体 Jpeg.Canvas.Font.Size = 12 '水印字体尺寸 Jpeg.Canvas.Font.ShadowColor = &HFF00FF '阴影色彩 Jpeg.Canvas.Font.ShadowXOffset = 0 '阴影横向偏离 Jpeg.Canvas.Font.ShadowYOffset = 0 '阴影纵向偏离 Jpeg.Canvas.Font.Bold = False '是否加粗 Jpeg.Canvas.Font.Quality = 4 ' 水印质量 'Jpeg.Canvas.Font.BkMode = &HFFFFFF '字体背景色 Jpeg.Canvas.Print 97, 75, MarkWords Jpeg.Canvas.Pen.Color = &HFFFFFF ' 图片边框颜色 Jpeg.Canvas.Pen.Width = 0 '图片边框宽度 Jpeg.Canvas.Brush.Solid = False ' 是否点线边框 Jpeg.Canvas.DrawBar 0, 0, 0, 0 '四个参数分别为边线框的横坐标，竖坐标，宽度，高度 Response.Binarywrite Jpeg.Binary Set Jpeg = Nothing %>