改了总是出错 谁帮忙改啊
Dim Tag
Dim strTagCloud
Dim i,j
Dim objRS
Set objRS=objConn.Execute("SELECT [tag_ID] FROM [blog_Tag] ORDER BY [tag_Name] ASC")
If (Not objRS.bof) And (Not objRS.eof) Then
Do While Not objRS.eof
If Tags(objRS("tag_ID")).Count<=50 Then
i=Tags(objRS("tag_ID")).Count*4
ElseIf Tags(objRS("tag_ID")).Count>50 And Tags(objRS("tag_ID")).Count<=100 Then
i=Tags(objRS("tag_ID")).Count*2
ElseIf Tags(objRS("tag_ID")).Count>100 And Tags(objRS("tag_ID")).Count<=200 Then
i=Tags(objRS("tag_ID")).Count*1.5
ElseIf Tags(objRS("tag_ID")).Count>200 Then
i=Tags(objRS("tag_ID")).Count*1
End If
strTagCloud=strTagCloud & "<span style='font-family:verdana,sans-serif;line-height:150%;font-size:"& (100 + (i))
&"%;margin:10px;'><a title='" & Tags(objRS("tag_ID")).Count & "' alt='"& Tags(objRS("tag_ID")).Count &"' href='" & Tags(objRS
("tag_ID")).Url &"'>" & Tags(objRS("tag_ID")).name & "</a></span> "
objRS.MoveNext
Loop
End If
objRS.Close
Set objRS=Nothing
ArtList.SetVar "CUSTOM_TAGS",strTagCloud
Response.Write ArtList.html
%><!-- <%=RunTime()%> --><%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>
[
本帖最后由 52ab 于 2008-6-16 23:43 编辑 ]
