日期:2014-05-16 浏览次数:20869 次
<%
Set rsG = server.CreateObject("adodb.recordset")
sqlG="select * from view_NewsInfo where class=47 and SmallImg<>''"
rsG.Open sqlG, conn, 1, 1
For I=1 To 6 '显示新闻条数
If rsG.Eof Then '是否到纪录尾,是退出循环
Exit For
End If
response.Write("imag["I"]="""&rsG("SmallImg")&""";")
rsG.MoveNext
Next
rsG.Close
Set rsG = Nothing
%>