东莞SEO

友情链接

<% Call System_Initialize() 'plugin node For Each sAction_Plugin_Tags_Begin in Action_Plugin_Tags_Begin If Not IsEmpty(sAction_Plugin_Tags_Begin) Then Call Execute(sAction_Plugin_Tags_Begin) Next LoadGlobeCache Dim ArtList Set ArtList=New TArticleList ArtList.LoadCache ArtList.template="TAGS" ArtList.Title="TagCloud" ArtList.Build 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 ReDim Preserve strTagCloud(j+1) strTagCloud(j) = "" & Tags(objRS("tag_ID")).name & " " j=j+1 objRS.MoveNext Loop End If objRS.Close Set objRS=Nothing ArtList.SetVar "CUSTOM_TAGS",Join(strTagCloud) ArtList.SetVar "CUSTOM_TAGS_TITLE","TagCloud" Response.Write ArtList.html 'plugin node For Each sAction_Plugin_Tags_End in Action_Plugin_Tags_End If Not IsEmpty(sAction_Plugin_Tags_End) Then Call Execute(sAction_Plugin_Tags_End) Next %><% Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>
• 东莞便民网   东莞新闻   东莞阳光社区
• 东莞分类信息网   度谷搜