<%
Dim rs,sql,sType,rs1,sql1,temSql
sType=request("type_id")
if sType="" then
sType="all"
end if
if sType="all" then
sql="select title,ID,add_date,counter from dh_article order by add_date desc"
temSql="select count(ID) from dh_article"
else
sql="select title,ID,add_date,counter from dh_article where type_id='"&sType&"' order by add_date desc"
temSql="select count(ID) from dh_article dh_article where type_id='"&sType&"'"
end if
%>
东海房产-网占地图
