kemuzt.asp

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

<!--#include file="conn.asp"-->

document.write('<table cellspacing="0" cellpadding="0"><tr><td width="78"><div align="center">科目名称</div></td><td width="18">&nbsp;</td><td width="74"><div align="center">当前状态</div></td></tr>')
<%dim rs,sql,kemu,zt
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from kemu order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
kemu=rs("name")
if rs("zt")="unlock" then 
zt="开放"
else
zt="关闭"
end if%>
document.write('<tr><td><%=kemu%></td><td>&nbsp;</td><td><%=zt%></td></tr>')
<%
rs.movenext
loop
else%>
document.write('暂时没有任何数据')
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>
document.write('</table>')