Z-Blog 伪二级分类,多级分类 8条回复 <br /> 类:TArticleList<br /> 方法:ExportByMixed<br /> 内容:</p> <p> If Not IsEmpty(strTagsName) Then<br /> On Error Resume Next<br /> Dim Tag<br /> For Each Tag in Tags<br /> If IsObject(Tag) Then<br /> ‘+ Dim arrTagsName, Tag_i<br /> ‘+ arrTagsName = split(strTagsName, “,”)<br /> ‘+ For Tag_i = 0 To UBound(arrTagsName)<br /> ‘+ strTagsName = arrTagsName(Tag_i)<br /> If UCase(Tag.Name)=UCase(strTagsName) Then<br /> objRS.Source=objRS.Source & “AND([log_Tag] LIKE ‘%{” & Tag.ID & “}%’)”<br /> TemplateTags_ArticleList_Tags_ID=Tag.ID<br /> End If<br /> ‘+ Next’Tag_i<br /> End If<br /> Next<br /> Err.Clear<br /> Title=strTagsName</p> <p> End If<br /> 类似地址:http://www.i928.net/catalog.asp?tags=zblog,1.8