程序代码：

            <%
            Call openDataBase()
            set gsxw = Server.CreateObject("Adodb.recordset")
             gsxw.open "SELECT top 3 * FROM Sbe_News WHERE TID<>8 and datepart('yyyy',newsdate)=datepart('yyyy',now()) and photoNew = -1 order by newsdate desc ",conn,1,1
%>
            <%for i=0 to gsxw.recordcount%>
            <%if i=0 then%>
            <img id="pic" src="uploadfile/<%=gsxw("pic")%>" width="280" height="164" />
            <%end if%>
            <%gsxw.movenex%>
            <%next%>