<% set rs=server.createobject("adodb.recordset") rs.open "select * from diqu order by xulie",conn,1,1 if rs.recordcount=0 then response.write "ûÓзÖÀà" else Response.Write("") i=0 while not rs.eof i=i+1 Response.Write "" if i=6 then Response.Write("") i=0 end if if rs.eof then Response.Write("") end if rs.movenext wend Response.Write("

"&""&rs("quyu")&""&"

") end if rs.close set rs=nothing %>