<script language=vbs>
'功能:从很多字串中排除相同字串
'输入:很多字串组成的数组:
dim A,B
A=array("字串1","字串2","字串3","字串1","字串2","字串1","字串4")
'输出:
B=F(A)
'显示结果:B=array("字串1","字串2","字串3","字串4")
for each bbb in B
document.write bbb & "<br>"
next
'函数部分
function F(x)'这里x是形参
dim S,D
Set D = CreateObject("Scripting.Dictionary")
for each xxx in x
if not d.Exists(xxx) then D.Add xxx,xxx
next
for each key in D.Keys
S=S & key & " "
next
set D=nothing
F=split(trim(S))
end function
</script>
sqll="select distinct top 10 title from ad_info where hot='1' group by title order by stime desc"
set rsl=server.createobject("adodb.recordset")
rsl.open sqll,connstr,1,3
把这句rsl.open sqll,connstr,1,3后面的1,3改成3,3试试看,或者为rsl.open sqll,connstr,3也可以