<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