国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > CMS > 動易CMS > 正文

淺析SW版本生成圖片標題實現新聞頭條問題

2024-09-10 21:56:46
字體:
來源:轉載
供稿:網友

問題: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】
 

然后在后臺文章管理中設置該文章固頂再生成就行了。

注意:只能設置一篇固定文章生成圖片標題

 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 廊坊市| 林周县| 资溪县| 汕头市| 庐江县| 榆林市| 澎湖县| 桦甸市| 临高县| 福海县| 乐山市| 清镇市| 鄄城县| 诏安县| 会宁县| 盱眙县| 元氏县| 凭祥市| 喀喇沁旗| 海城市| 工布江达县| 和静县| 南皮县| 慈溪市| 金乡县| 绥中县| 嵊州市| 名山县| 乡城县| 潞城市| 方山县| 林西县| 鸡泽县| 孝感市| 灌阳县| 孝义市| 奈曼旗| 平遥县| 娄烦县| 丰县| 英吉沙县|