問(wèn)題：SW版本如何生成圖片標(biāo)題實(shí)現(xiàn)新聞?lì)^條？

解決：這一功能是建立在ASPJPEG這個(gè)組件上的，先看看你的網(wǎng)站所在服務(wù)器支不支持這一功能，后臺(tái)可以查看服務(wù)器信息中組件支持情況。

此主題相關(guān)圖片如下：1.jpg

 

此主題相關(guān)圖片如下：2.jpg

注意固頂?shù)奈恼?/p>

沒(méi)有附件下載 只需要按照下面的方法去修改就行了

打開(kāi)Admin目錄中的 Admin_Article.asp文件

在
strTitle = ChannelName & "管理----"
Select Case Action
下面添加
Case "tubiao"
Call tubiao
---------------------------------
Response.Write " <td width='150' align='center' ><strong>常規(guī)管理操作</strong></td>"
下面添加
Response.Write " <td width='30' align='center' ><strong>標(biāo)題圖片</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>請(qǐng)先選定" & ChannelShortName & "！</li>"
Exit Sub
End If
If Action = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>參數(shù)不足！</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組件的注冊(cè)碼，已經(jīng)注冊(cè)的可以去掉這一行。
Jpeg.Open Server.MapPath("../Article/titbg.gif") '背景圖片名稱及路徑（自己畫(huà)喲）
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") & "" ' 左邊的數(shù)字 7,1 分別是左邊距,上邊距
Jpeg.Save Server.MapPath("../Article/imgtit.jpg") ' 保存文件名稱及路徑
rs.Close
Set rs = Nothing
Set Jpeg = Nothing
Call ClearSiteCache(0)
Call WriteSuccessMsg("生成標(biāo)題為圖片成功！", "Admin_Article.asp?ChannelID=" & ChannelID)
End Sub
---------------------------------對(duì)于上面文本的控制，你還可以加些其它的參數(shù)，這不多說(shuō)了
 

查看更多 動(dòng)易Cms教程  動(dòng)易Cms模板