<%
dim ii
ii = 0
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("supsoft")("key")="" then
rs.Source="select top " & top_txt & " * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 order by click DESC" '选择本月
end if
if Request.cookies("supsoft")("key")="selfreg" then
if Request.cookies("supsoft")("reglevel")="3" then
rs.Source="select top " & top_txt & " * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 and newslevel<=3 order by click DESC" '选择本月
end if
if Request.cookies("supsoft")("reglevel")="2" then
rs.Source="select top " & top_txt & " * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 and newslevel<=2 order by click DESC" '选择本月
end if
if Request.cookies("supsoft")("reglevel")="1" then
rs.Source="select top " & top_txt & " * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 and newslevel<=1 order by click DESC" '选择本月
end if
end if
if Request.cookies("supsoft")("key")="super" or Request.cookies("supsoft")("key")="typemaster" or Request.cookies("supsoft")("key")="bigmaster" or Request.cookies("supsoft")("key")="smallmaster" or Request.cookies("supsoft")("key")="check" then
rs.Source="select top "& top_txt &" * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 order by click DESC" '选择本月
end if
else
rs.Source="select top " & top_txt & " * from Xr_News where year(updatetime)=year(now()) and month(updatetime)=month(now()) and checkked=1 order by click DESC" '选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "
无
"
else
do while not rs.eof
%>
<% ii = ii + 1
if ii>top_txt-1 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<%if showlink=1 then
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select top "& linkshownum &" * from Xr_link where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to 6
if not rs10.EOF then
%>
