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

问题: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 IfEnd IfResponse.Write "</td>"下面添加if rsArticleList("OnTop")=true thenResponse.Write "<td><a href=’Admin_Article.asp?ChannelID=" & ChannelID & "&Action=tubiao&ArticleID=" & rsArticleList("ArticleID") & "’>生成</a></td>"elseResponse.Write "<td></td>"end if———————————在最后的 %> 之前添加下面一段Sub tubiao()If ArticleID = "" ThenFoundErr = TrueErrMsg = ErrMsg & "<li>请先选定" & ChannelShortName & "!</li>"Exit SubEnd IfIf Action = "" ThenFoundErr = TrueErrMsg = ErrMsg & "<li>参数不足!</li>"Exit SubEnd IfDim sArticleID,stitle,rssArticleID = PE_Clng(Trim(request("ArticleID")))stitle= "select title from PE_Article where ArticleID =" & sArticleIDSet rs = Server.CreateObject("adodb.recordset")rs.Open stitle, Conn, 1, 1Dim JpegSet 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.CloseSet rs = NothingSet 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】

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

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

我没有值得分享的感伤爱情故事,

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

相关文章:

你感兴趣的文章:

标签云: