|
题目：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,"" & 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,false,False,0)】<A href="{$InstallDir}{$ArticleUrl}" target=_blank><IMG src="{$InstallDir}imgtit.jpg" border=0></A>【/ArticleList】 然后在靠山文章打点中配置该文章固顶再天生绩行了。 留意：只能配置一篇牢靠文章天生图片问题 （编辑：湖南网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
