<%
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("intohz.mdb")
	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
%>