sub index_newpic()
'============================================================滚动新闻图片1
i=0
set rs=conn.execute("SELECT top 4 * FROM news where isimg=1 and images<>'' ORDER BY news_date DESC")
if not Rs.eof then
do while not rs.eof
i=i+1
Response.Write "imgUrl["&i&"]="""&rs("images")&""";" & vbCrLf
Response.Write "imgLink["&i&"]=""shownews.asp?news_id="&rs("news_id")&""";" & vbCrLf
rs.movenext
loop
else
response.write "目前尚无图片新闻!"
end if
rs.close
end sub