zhuinew.asp

来自「教育管理系统」· ASP 代码 · 共 30 行

<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"--> 
<%
dim zhuinew,strSQL,news
strSQL ="SELECT * FROM learning ORDER BY dateandtime DESC"
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,0,1
news=1
if zhuinew.eof then
response.write "<font color='#0080C0' class='3dfont'>没有软件提供下载</font>"
else
do while not zhuinew.eof
if not zhuinew.eof then
%>
        <table width="100%" border="0" cellspacing="0" cellpadding="3">
          <tr> 
            <td><img src="IMAGES/88.gif"><a href=soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%> target="_blank"><%=zhuinew("title")%></a>&nbsp;<font color="#CCCCCC" size="1">[<%=zhuinew("dateandtime")%>]</font></td>
          </tr>
        </table>
        <%zhuinew.movenext 
  end if   
news=news+1
  if zhuinew.eof or news>rs1("sou") then    
    exit do    
    end if    
loop 
zhuinew.close
set zhuinew=nothing
end if%>