jsnclass.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<%
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("download.asa")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

<%
dim shu,news,Nclassid
if request.querystring("shu")="" or request.querystring("shu")=0 then
shu=10
else
shu=CINT(request.querystring("shu"))
end if

if request("Nclassid")<>"" then 
Nclassid = request("Nclassid")
else 
nclassid=1 '讨论一下关于classid的情况~
end if

 set rs=server.createobject("adodb.recordset")
	set rs=conn.execute("SELECT id,showname,classid,Nclassid,dateandtime,hots FROM download where Nclassid="&cstr(nclassid)&"  order by id desc")
if rs.eof and rs.bof then %>
     document.write('<p align="center">Sorry! 没有软件</p>');
 
 <% else  
	news=1
do while not rs.eof%>
document.write('<TR><TD><li><A href="list.Asp?id=<%=rs("id")%>" title="<%=rs("showname")%>" target="_blank"><%if len(rs("showname"))>16 then%><%=left(rs("showname"),16)%>...<%else%><%=rs("showname")%><%end if%></A></li> <FONT color="#666666">(<%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%>)</FONT><%if rs("dateandtime")>=date() then%><FONT color="#ff0000">新!</FONT><%end if%><%if rs("hots")=1 then%><FONT color="#ff0000">(推荐)</FONT><%end if%></TD></TR>');						
<%    news=news+1
     if news>shu then exit do 
      rs.movenext 
     	loop  

end if
	Rs.Close
set Rs=nothing
%>