建议增加tags标签文章导读有利于SEO优化,望官方采纳!并求解答!谢谢
效果如这个网址所示:http://www.pf110.com/plus/tags.asp?n=%D6%CE%C1%C6
这是官方给的方法:
科汛自带tags列表的显示方式是纯文字列表,部分用户想改变他的显示方式(如显示图片).但无从下手.
其实打开tags.html模板可以看到这个页面是通过标签{$ShowTags}调用的,而{$ShowTags}标签又是调用config/tags.xml文件里的配置
这时我们可以打开config/tags.xml文件,找到
但由于这里并没有提供显示图片字段的标签,所以我们还需要修改plus/tags.asp文件,增加显示图片地址的标签.具体如下:plus/tags.asp文件的代码
Case 1
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,hits,Inputer As username,photourl From " & SQL(1,K)
case 2
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl From " & SQL(1,K)
case 3
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username ,photourl From " & SQL(1,K)
case 4
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl From " & SQL(1,K)
Case 5
SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl From " & SQL(1,K)
Case 7
SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl From " & SQL(1,K)
再接下来找到
LC=LoopContent
LC=replace(LC,"{$Title}",rs(1))
If Not KS.IsNul(rs(12) Then
LC=replace(LC,"{$PhotoUrl}",rs(12))
Else
LC=replace(LC,"{$PhotoUrl}","/images/nopic.gif")
End If
If IsNull(rs(11)) or rs(11)="" Then
LC=replace(LC,"{$UserName}","-")
Else
LC=replace(LC,"{$UserName}",rs(11))
End If
LC=replace(LC,"{$Hits}",rs(10))
LC=replace(LC,"{$AddDate}",formatdatetime(rs(7),2))
LC=replace(LC,"{$ClassName}",KS.GetClassNP(rs(2)))
LC=replace(LC,"{$Url}",KS.GetItemUrl(rs(9),rs(2),rs(0),rs(5)))
SearchResult=SearchResult & LC
红色的加上去,这样就可以用标签{$PhotoUrl}调出图片地址来了,要增加其它字段类似.只不过要注意的是由于这里是用了union all查询相关的tags信息的,所以增加字段是,每个查询语句都要同时加上,确保字段个数一致,否则会出错
能过以上修改后,我们就可以修改config/tags.xml来达到显示图片列表的目的,代码如下
<div style="height:30px;text-align:center">标签<font color=red>{$TagsName}</font>,共找到<font color=red>{$ShowTotal}</font>条相关信息。</div>
<table width="100%" cellpadding="0" cellspacing="0">
<tr class="title">
<td>标题</td>
<td>栏目</td>
<td>作者</td>
<td>浏览</td>
<td>时间</td>
</tr>
[loop]
<tr class="list">
<td><img src={@PhotoUrl}' width='150' height='120'/><a href="{$Url}" target="_blank">{$Title}</a></td>
<td align="center">{$ClassName}</td>
<td align="center"><a href="../space/?{$UserName}" target="_blank">{$UserName}</a></td>
<td align="center">{$Hits}</td>
<td align="center">{$AddDate}</td>
</tr>
[/loop]
</tbody>
</table>
<p>{$PageStr}</p>
经坛子里 热心肠mmz171兄 提示:按这个方法修改无效我在tags.asp每个photourl , 后面加,intro 并且在tags.xml 加了{$intro}得不到想要的效果
具体修改如下:
如下:plus/tags.asp文件的代码
Case 1
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,hits,Inputer As username,photourl ,intro From " & SQL(1,K)
case 2
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl ,introFrom " & SQL(1,K)
case 3
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username ,photourl From " & SQL(1,K)
case 4
SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl ,introFrom " & SQL(1,K)
Case 5
SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl ,introFrom " & SQL(1,K)
Case 7
SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl ,intro From " & SQL(1,K)
再接下来找到
LC=LoopContent
Dim intro :intro =rs(13)
LC=Replace(LC,"{$intro }",intro)
LC=replace(LC,"{$Title}",rs(1))
If Not KS.IsNul(rs(12) Then
LC=replace(LC,"{$PhotoUrl}",rs(12))
Else
LC=replace(LC,"{$PhotoUrl}","/images/nopic.gif")
End If
If IsNull(rs(11)) or rs(11)="" Then
LC=replace(LC,"{$UserName}","-")
Else
LC=replace(LC,"{$UserName}",rs(11))
End If
LC=replace(LC,"{$Hits}",rs(10))
LC=replace(LC,"{$AddDate}",formatdatetime(rs(7),2))
LC=replace(LC,"{$ClassName}",KS.GetClassNP(rs(2)))
LC=replace(LC,"{$Url}",KS.GetItemUrl(rs(9),rs(2),rs(0),rs(5)))
SearchResult=SearchResult & LC
红色的加上去,这样就可以用标签{$PhotoUrl}调出图片地址来了,要增加其它字段类似.只不过要注意的是由于这里是用了union all查询相关的tags信息的,所以增加字段是,每个查询语句都要同时加上,确保字段个数一致,否则会出错
能过以上修改后,我们就可以修改config/tags.xml来达到显示图片列表的目的,代码如下
<div style="height:30px;text-align:center">标签<font color=red>{$TagsName}</font>,共找到<font color=red>{$ShowTotal}</font>条相关信息。</div>
<table width="100%" cellpadding="0" cellspacing="0">
<tr class="title">
<td>标题</td>
<td>栏目</td>
<td>作者</td>
<td>浏览</td>
<td>时间</td>
</tr>
[loop]
<tr class="list">
<td><img src= width='150' height='120'/><a href="{$Url}" target="_blank">{$Title}</a><p>{$intro}</p></td>
<td align="center">{$ClassName}</td>
<td align="center"><a href="../space/?{$UserName}" target="_blank">{$UserName}</a></td>
<td align="center">{$Hits}</td>
<td align="center">{$AddDate}</td>
</tr>
[/loop]
</tbody>
</table>
<p>{$PageStr}</p>
结果还是不能达到效果,另外修改中LC=replace(LC,"{$UserName}",rs(11)),LC=replace(LC,"{$PhotoUrl}",rs(12)) 其中rs(11)或rs(12)是指什么意思呢?是不是rs(13)写错了?求解答,谢谢各位了?