修改kession.label.commoncls.asp中的GetTags函数  

Function MyRnd(NumMin,NumMax)
        Randomize
        MyRnd = Int(Rnd * (NumMax - NumMin + 1)) + NumMin
  End Function

'TagChannel可以指定ChannelID，生成对应栏目的热门标签，为空时，生成所有栏目热门标签

'isRnd指定样式，1：字体不一;2:颜色不一;3：字体和颜色都不一;其它：默认方式

  Function GetTags(TagType,Num,TagChannel,isRnd)
    if not isnumeric(num) then exit function
    dim sqlstr,sql,i,n,str,srnd,col(6)
    col(0)="BLACK"
    col(1)="RED"
    col(2)="BLUE"
    col(3)="GREEN"
    select case cint(tagtype)
     case 1:
     if TagChannel="" then
      sqlstr="select top 500 keytext,channelid,hits from ks_keywords order by hits desc"
     else
      sqlstr="select top 500 keytext,channelid,hits from ks_keywords where channelid="&TagChannel&" order by hits desc"
     end if
     case 2:
     if TagChannel="" then
     sqlstr="select top 500 keytext,channelid,hits from ks_keywords order by lastusetime desc,id desc"
     else
      sqlstr="select top 500 keytext,channelid,hits from ks_keywords where channelid="&TagChannel&" order by lastusetime desc,id desc"
     end if
     case 3:
     if TagChannel="" then
     sqlstr="select top 500 keytext,channelid,hits from ks_keywords order by Adddate desc,id desc"
     else
      sqlstr="select top 500 keytext,channelid,hits from ks_keywords where channelid="&TagChannel&" order by Adddate desc,id desc"
     end if
     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 isRnd=1 then
      srnd = "size="&MyRnd(2,5)&""
     elseif isRnd=2 then
      srnd = "color="&col(MyRnd(0,3))&""
     elseif isRnd=3 then
      srnd = "color="&col(MyRnd(0,3))&" size="&MyRnd(2,5)&""
     end if
     if KS.FoundInArr(str,sql(0,i),",")=false then
      n=n+1
      str=str & "," & sql(0,i)
      gettags=gettags & "<a href=""{$GetSiteUrl}plus/search.asp?searchtype=5&channelid=" & sql(1,i) & "&tags=" & sql(0,i)& """ target=""_blank"" title=""TAG:" & sql(0,i) & "&#10;被使用了" & SQL(2,I) &"次""><font "&srnd&">" & sql(0,i) & "</font></a>&nbsp;"
     end if
     if n>=cint(num) then exit for
    next
   
  End Function

搂主能不能把改好的原文件发出来，供我们下载一下啊？？？

楼主，是不是生成静态页没效？

我用的是5.01 shop  UTF－8，把代码更换后毫无作用，还是原来的那样，文字也没有变色，字体也没变

如何修改这段代码，能说的详细一些吗？

找到问题了，只需把F_C = Replace(F_C, HtmlLabelArr(I), GetTags(Param(0),Param(1)))改成F_C = Replace(F_C, HtmlLabelArr(I), GetTags(Param(0),Param(1),Param(2),Param(3)))就可以正常使用了