list.asp

文章管理系统,生成静态网页 .

<!--#include file="include.asp"-->
<!--#include file="conn.asp"-->
<!--#include file=setup.asp-->
<%
num=request("num")

if num="" then num="5"
if not isnumeric(num) then response.end

set conn=server.createobject("adodb.connection")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
c=request("class")
sc=trim(request("sc"))

if sc<>"0" and sc<>"asc" and sc<>"desc" then response.end

if sc="0" then
	if c="" then 
	rs.open "select * from wz order by id desc",conn,1,1
	else
	rs.open "select * from wz where class='"&c&"' order by id desc",conn,1,1
	end if
else
	if c="" then 
	rs.open "select * from wz order by count "&sc&"",conn,1,1
	else
	rs.open "select * from wz where class='"&c&"' order by count "&sc&"",conn,1,1
	end if
end if



count=rs.recordcount

if rs.eof then
%>
document.write("没有符合条件的资料")
<%
response.end
end if
%>
document.write("<table width=<%=request("width")%> height=<%=request("height")%> align=center border=0 >")
<%
for i=1 to num
if rs.eof then exit for
%>
document.write ("<tr><td valign=top><a target=_blank href=<%=path%>/58down/<%=rs("date")%>-<%=rs("num")%>.htm title='发表时间:<%=rs("date")%>类别：<%=rs("class")%>'><%=rs("title")%></a><font size=2>(<%=rs("count")%>)</font></tr>")
<%
rs.movenext
next
conn.close
%>
document.write("<tr><td align=right valign=top><a href=<%=path%>?class=<%=request("class")%> target=_blank>更多...</a></table>")