动易CMS生成图片标题实现新闻头条的问题

问题：SW版本如何生成图片标题实现新闻头条？

解决：这一功能是建立在ASPJPEG这个组件上的，先看看你的网站所在服务器支不支持这一功能，后台可以查看服务器信息中组件支持情况。

 

注意固顶的文章

没有附件下载 只需要按照下面的方法去修改就行了

打开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, & 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,false,False,0)】<A href={$InstallDir}{$ArticleUrl} target=_blank><IMG src={$InstallDir}imgtit.jpg border=0></A>【/ArticleList】

然后在后台文章管理中设置该文章固顶再生成就行了。

注意：只能设置一篇固定文章生成图片标题