End If
Dim sArticleID,stitle,rs
sArticleID = PE_Clng(Trim(request("ArticleID")))
stitle= "select title from PE_Article where ArticleID =" & sArticleID
Set rs = Server.CreateObject("adodb.recordset")
rs.Open stitle, Conn, 1, 1
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.RegKey = "71316-48529-38722" 'ASPJPEG组件的注册码，已经注册的可以去掉甘样一行。
Jpeg.Open Server.MapPath("../Article/titbg.gif") '背景图片名称及路径（本人画哟）
Jpeg.Canvas.Font.Color = &h333335' 文字色彩
Jpeg.Canvas.Font.Family = "黑体"
Jpeg.Canvas.Font.size = "28" '文字大小
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.PrintText 7,1,"" & rs("title") & "" ' 左边的数字 7,1 分辨是左边距,上班边距
Jpeg.Save Server.MapPath("../Article/imgtit.jpg") ' 保存文件名称及路径
rs.Close
Set rs = Nothing
Set Jpeg = Nothing
Call ClearSiteCache(0)
Call WriteSuccessMsg("生成标题为图片成功！", "Admin_Article.asp?ChannelID=" & ChannelID)
End Sub
---------------------------------对于上班面文本的把持，你还可以加些其它的参数，甘样不多说了
调用方法：
在需要显示的处所插入标签
【ArticleList(0,0,false,0,1,false,false,,0,1,False,0,0)】<A href=http://www.mb5u.com/cmsjiaocheng/"{$InstallDir}{$ArticleUrl}" target=_blank><IMG src="{$InstallDir}imgtit.jpg" border=0></A>【/ArticleList】
然后在后台文章管理中设置该文章固顶再生成绩行了。
注意：只能设置一篇固定文章生成图片标题
(责任编辑：ziyun)本文仅代表作者观点,与站长藏经阁立场无关!
数据统计中！！
