<%
'国家信息化
dim rs73
top_news=5
smallidnum=87
set rs73=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if session("key")="super" or session("key")="typemaster" or session("key")="bigmaster" or session("key")="smallmaster" or session("key")="check" then
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1) order by istop desc,newsid DESC"
end if
if session("key")="" then
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1 and newslevel=0) order by istop desc,newsid DESC"
end if
if session("key")="selfreg" then
if session("reglevel")=3 then
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1 and newslevel<=3) order by istop desc,newsid DESC"
end if
if session("reglevel")=2 then
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1 and newslevel<=2) order by istop desc,newsid DESC"
end if
if session("reglevel")=1 then
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1 and newslevel<=1) order by istop desc,newsid DESC"
end if
end if
else
rs73.Source="select top " & top_news & " * from News where (smallclassid=" & smallidnum & " and checkked=1) order by istop desc,newsid DESC"
end if
rs73.Open rs73.Source,conn,1,1
%>
