<%
dim rs,sql
ClassID=request.querystring("classid") '指定首页调用文章分类ID,全部分类不填
if classID<>"" then
str=str&" where article.classID="&classID;
end if
set rs=server.createObject("Adodb.recordset")
sql="select articleid,title,dateAndtime,hits,class,article.classid from Aclass inner join article on article.classid=Aclass.classID"&str;&" order by articleid desc"
rs.open sql,conn,3,3
%>