wzcz.asp

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

<!--#include file="conn.asp"-->
<%
dim rs,sql,lx,id,kemu,title
lx=trim(request.querystring("lx"))
set rs=server.createobject("adodb.recordset")
if lx="new" then
sql="select top 5 * from wz order by id desc"
elseif lx="hot" then
sql="select top 5 * from wz order by hit desc"
else
response.write"吻宇提示你非法操作~!"
end if
rs.open sql,conn,1,1
if not rs.eof then 
rs.movefirst
for i=1 to 5
id=rs("id")
kemu=rs("kemu")
title=rs("title")%>
document.write('<div align="left"><IMG height=14 src=IMG/wz.gif width=15>[<a href=wz.asp?kemu=<%=kemu%> target="_blank"><%=kemu%></a>]<a href=wzlist.asp?id=<%=id%> title=<%=title%> target="_blank"><%=title%></a>(<%=rs("hit")%>)<br>');
<%
rs.movenext
next
else%>
document.write('暂时没有任何数据');
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>