{=GetTags(*,*)}这个标签

想在关键字之间加竖杠 |

还有改颜色

找了一会儿没找到

收到，改了一下看看，成。可就是要重新生成才见效，上午在本地生成完了传到现在快要传完了，不能再返工了，只能暂时收藏这个办法了。谢谢bestsky.cn

以下是引用yayaa51888在2007-12-17 14:21:06的发言：

还有数量控制，多了就跑出去了

用CSS控制嘛超出宽度就隐藏,

<li class="hot-serach">{=GetTags(1,个数)}</li>

.hot-serach{overflow:hidden;width:200px;}

呵呵,帮版主哦,找到ks_cls/KS.RCls.asp文件大约755行处

Function GetTags(TagType,Num)
if not isnumeric(num) then exit function
dim sqlstr,sql,i,n,str
select case cint(tagtype)
case 1:sqlstr="select top 500 keytext,channelid from ks_keywords order by hits desc"
case 2:sqlstr="select top 500 keytext,channelid from ks_keywords order by lastusetime desc,id desc"
case 3:sqlstr="select top 500 keytext,channelid from ks_keywords order by Adddate desc,id desc"
case else
GetTags="":exit function
end select

dim rs:set rs=conn.execute(sqlstr)
if rs.eof then rs.close:set rs=nothing:exit function
sql=rs.getrows(-1)
rs.close:set rs=nothing
for i=0 to ubound(sql,2)
if KS.FoundInArr(str,sql(0,i),",")=false then
n=n+1
str=str & "," & sql(0,i)
gettags=gettags & "<a href=""" & domainstr & "plus/search.asp?searchtype=5&channelid=" & sql(1,i) & "&tags=" & sql(0,i)& """ target=""_blank"">" & sql(0,i) & "</a> "
end if
if n>=cint(num) then exit for
next

End Function

{=GetTags(*,这个就是数量)}

把括号里的后面一个改为你想要的数值就可以了

比如我的显示10个

{=GetTags(*,10)}