我改了
怎么没变化呀?
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