<%
dim sqlsort,RsSort,hangpicnum
sqlsort="select * from zf11_type where zf11_big_id=0 and zf11_setting < 4 and Indexshow=True order by zf11_order"
Set RsSort=conn.execute (sqlsort)
RsSort.Open sql,Conn,1,1
Response.Write"
"
if RsSort.eof and RsSort.bof then
response.write "
还没有任何栏目
"
else
response.write"
"
do while not rs.eof
for hangpicnum=1 to 2
if RsSort.eof then exit for
Response.Write"
