sql="select 字段名 from 表名"
set rs=conn.execute(sql)
do while not rs.eof
content=rs("字段名")
'去除重復內容,結果用"|"拆分
if instr(str,content&"|")=0 then
str=str&content&"|"
end if
rs.movenext
loop
rs.close
set rs=nothing
'斷開數據庫略
'拆分成數組得到結果
a=split(str,"|")
b=ubound(a)
for i=0 to b
result=result&a(i)&"<br>"
next
response.write result%>