1、以下是ASP 取相關文章代碼，可以通過后臺增加關建字，然后前臺通過SQL搜索語句查詢出來。
Dim A:A = "手機,電腦,電視,硬盤"
Function sqlKeyWord(obj,field) 
Dim temp:temp = split(obj,",") 
For i = 0 To ubound(temp) 
sqlKeyWord = sqlKeyWord & field&" like '%"&temp(i)&"%' or " 
Next 
sqlKeyWord = left(sqlKeyWord,len(sqlKeyWord)-3) 
End Function 
Dim xianguanSql:xianguanSql = "select id,title from [pingpai_title] where " + sqlKeyWord(A,"feilei")
取出SQL查詢語句是：[pingpai_title] where feilei like '%手機%' or feilei like '%電腦%' or feilei like '%電視%' or feilei like '%硬盤%'

2、ASP替換拆分代碼，可通過替換能解決常見的取包涵文章的方法。
Function key(eword)
       eword = Replace(eword,",","','")
key = eword
End Function
xianguanText=key(rs("xianguan"))
xianguanSql="select top 12 * from [pingpai_title] where [feilei] in('"&xianguanText&"') Order By [paixu] asc"

這樣就能解決in(‘’)里面的數(shù)據為 in('1','2','3',''4) ，這樣就能取出數(shù)據。