动易SW版本生成图片标题实现新闻头条问题

SW版本生成图片标题实现新闻头条问题
作者：夜狼来源：动易论坛点击数：2310 更新时间：2008年11月03日
问题：SW版本如何生成图片标题实现新闻头条？
解决：这一功能是建立在ASPJPEG这个组件上的，先看看你的网站所在服务器支不支持这一功能，后台可以查看服务器信息中组件支持情况。

此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
注意固顶的文章
没有附件下载只需要按照下面的方法去修改就行了
打开Admin目录中的Admin_Article.asp文件
在
strTitle = ChannelName & "管理----"
Select Case Action
下面添加
Case "tubiao"
Call tubiao
---------------------------------
Response.Write " <td width='150' align='center' ><strong>常规管理操作</strong></td>"
下面添加
Response.Write " <td width='30' align='center' ><strong>标题图片
</strong></td>"
---------------------------------
Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=CancelElite&ArticleID=" & rsArticleList("ArticleID") & "'>取消推荐
</a>"
End If
End If
Response.Write "</td>"
下面添加
if rsArticleList("OnTop")=true then
Response.Write "<td><a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=tubiao&ArticleID=" & rsArticleList("ArticleID") & "'>生成
</a></td>"
else
Response.Write "<td></td>"
end if
---------------------------------
在最后的%> 之前添加下面一段
Sub tubiao()
If ArticleID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请先选定" & ChannelShortName & "！</li>"
Exit Sub
End If
If Action = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>参数不足！</li>"
Exit Sub
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="{$InstallDir}{$ArticleUrl}" target=_blank><IMG
src="{$InstallDir}imgtit.jpg" border=0></A>【/ArticleList】
然后在后台文章管理中设置该文章固顶再生成就行了。

注意：只能设置一篇固定文章生成图片标题
论坛地址：
/dispbbs.asp?boardid=67&id=405004&page=0&star =1
感谢夜狼版主提供！。