<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% sql = "select * from syPic where sy_type='新闻' order by sy_id desc" set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then for i = 1 to rs.recordcount response.Write("ati('"&rs("sy_url")&"','/"&rs("sy_pic")&"','新闻图片');" & vbcrlf) rs.movenext next end if rs.close set rs = nothing conn.close set conn = nothing %>document.write('');