我改了

怎么没变化呀？

    If IsArray(SQL) Then
   For k=0 to Ubound(SQL,2)
    str=str & "<a href='?n=" & server.urlencode(SQL(0,K)) & "' title='已被搜索" & SQL(1,K) & "次'>" & SQL(0,K) & "</a>  "
   Next
    End If
    Tp=Replace(Tp,"{$ShowHotTags}",str)
   End If
  
    If InStr(tp,"{$ShowNewTags}")<>0 Then
    str=""
    Set RS=Conn.Execute("Select top " & MaxTags & " KeyText,hits From KS_KeyWords order by adddate desc")
    If Not RS.Eof Then SQL=RS.GetRows(-1)
    RS.Close:Set RS=Nothing
    If IsArray(SQL) Then
   For k=0 to Ubound(SQL,2)
    str=str & "<a href='?n=" & server.urlencode(SQL(0,K)) & "' title='已被搜索" & SQL(1,K) & "次'>" & SQL(0,K) & "</a>  "
   Next
    End If