ggzx.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from gonggao order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
id=rs("id")
title=rs("title")
%>
document.write('<div align="left"><IMG height=14 src=IMG/gg.gif width=17><a href="gglist.asp?id=<%=id%>" target="_blank"><%=title%></a><br>');
<%  
rs.movenext
loop
else
%>
document.write('对不起暂时没有任何数据');
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>