淺析SW版本生成圖片標題實現新聞頭條問題_動易Cms教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

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

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

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

       

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

      來源:模板無憂//所屬分類:動易Cms教程/更新時間:2009-10-06
      相關動易Cms教程