解决SW版本生成图片标题实现新闻头条问题 - 动易cms - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,动易Cms教程,

SEO SEO

首页  >   动易cms > 解决SW版本生成图片标题实现新闻头条问题  >  正文

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

2018-09-16 19:44:26 向站长提问 编辑: admin 阅读:

 

问题:SW版本如何生成图片标题实现新闻头条? 解决:这一功能是建立在ASPJPEG这个组件上的,先看看你的网站所在服务器支不支持这一功能,后台可以查看服务器信息中组件支持情况


问题: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,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】

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

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

查看更多 动易Cms教程  动易Cms模板


解决SW版本生成图片标题实现新闻头条问题
http://www.yuedudg.cn/article/1991011.html

 

友情链接
phpcms之家 织梦之家 discuz经验网
zblog之家 cms综合网 wp之家
ecshop经验网 帝国cms常识


Tags: CMS教程 模板无忧 建站教程 CMS教程 动易Cms教程


手机浏览本文
解决SW版本生成图片标题实现新闻头条问题

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

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy