jsclass.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<%
    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,classid
if request.querystring("shu")="" or request.querystring("shu")=0 then
shu=10
else
shu=CINT(request.querystring("shu"))
end if


set rs=server.createobject("adodb.recordset")

if request("classid")<>"" then 
classid = request("classid")
set rs=conn.execute("SELECT Nclass.Nclassid,Nclass.Nclass,download.id,download.showname,download.classid,download.Nclassid,download.dateandtime,download.hots FROM download,Nclass where download.classid="&cstr(classid)&" and download.Nclassid=Nclass.Nclassid order by download.id desc")
else 
set rs=conn.execute("SELECT Nclass.Nclassid,Nclass.Nclass,download.id,download.showname,download.classid,download.Nclassid,download.dateandtime,download.hots FROM download,Nclass where download.Nclassid=Nclass.Nclassid order by download.id desc")
end if
if rs.eof and rs.bof then %>
 document.write(' 
<p align="center">Sorry! 没有软件</p>
'); 
<% else  
	news=1
do while not rs.eof%>
document.write('<table width="100%" height="15" border="0" cellpadding="0" cellspacing="0"><tr><td background="images/news_bg.gif"><FONT color="#666666">[</font><A href="softdown/default.asp?classid=<%=rs("classid")%>&nclassid=<%=rs("nclassid")%>"><FONT color="#666666"><%=rs("nclass")%></font></A><FONT color="#666666">]</font>[<%=day(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=year(rs("dateandtime"))%>]<A href="softdown/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> <%if rs("dateandtime")>=date() then%><FONT color="#ff0000">new</FONT><%end if%><%if rs("hots")=1 then%><FONT color="#ff0000">(推荐)</FONT><%end if%></TD></TR></table><TR><TD>');						
<%    news=news+1
     if news>shu then exit do 
      rs.movenext 
     	loop  

end if
	Rs.Close
set Rs=nothing
%>