downcodes

科长

要实现的功能是这样的：打开一篇文章，能根据文章设定的关键字，去匹配标题含有关键字之一的文章 或标签内含有关键字之一的文章 不晓得如何做循环搜索，假设文章标题字段为title,标签字段为tag 文章表为wz

希望帮助到同样想通过文章标签实现相关文章功能的朋友：

1. <%
   
2. dim kk3,key
   
3. kk3=split(mywz("a_tag")," ")
   
4. set xgwz=server.CreateObject("adodb.recordset")
   
5. for i=0 to ubound(kk3)
   
6. key=kk3(i)
   
7. bsql=bsql & "artic.a_tag like '%"&key&"%' or "
   
8. bsql=bsql & "artic.a_title like '%"&key&"%' or "
   
9. next
   
10. bsql=Left(bsql,(LEN(bsql)-3))
    
11. mysql=" SELECT top 12 * FROM artic WHERE ("&bsql&") order by a_id desc"
    
12. xgwz.open mysql,coon,1,3
    
13. %>

复制代码