|
 |
近期回顾 |
<%
sql="select * from report where vip<>'' order by id desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,3
%>
<%
rsroot.pagesize=12
if IsNumeric(request("page")) then
pg=clng(request("page"))
else
pg=1
end if
if pg>rsroot.pagecount then pg=rsroot.pagecount
if pg=
|
专题最新更新 |
<%
sqltemp="select * from report where piclink like 'UploadFile/%' order by id desc"
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.open sqltemp,Conn,3
for i=0 to 7
'tempdata=split(rstemp("sort"),"|")
%>
<%
rstemp.movenext
next
rstemp.close
end if
dim temp(8)
dim tempid(8)
dim temptitle(8)
i=0
sqltemp="select * from report where piclink ='' order by id desc"
rstemp.open sqltemp,Conn,3
while not rstemp.eof and i<8
flag="true"
temps=split(rstemp("sort"),"|",-1)
for j=0 to 7
if temps(0)=temp(j) then
flag="false"
exit for
end if
next
if flag="true" then
temp(i)=temps(0)
tempid(i)=rstemp("id")
temptitle(i)=rstemp("title")
i=i+1
end if
flag="true"
rstemp.movenext
wend
sqlroot="select * from reportroot order by id desc"
set rsroottemp=Server.CreateObject("ADODB.Recordset")
rsroottemp.open sqlroot,conn,3
for i=0 to 7
if temp(i)<>"" then
while not rsroottemp.eof
if rsroottemp("report")=temp(i) then
sortnum=split(rsroottemp("sort"),"|",-1)
select case ubound(sortnum)
case "0"
linkid="listreport.asp?sort=" & rsroottemp("report") & "|" & rsroottemp("sort")
case "7"
linkid="reportdetail6.asp?sort=" & rsroottemp("report")
case else
linkid="reportdetailless5.asp?sort=" & rsroottemp("report")
end select
end if
rsroottemp.movenext
wend
rsroottemp.movefirst
%>
<%
end if
next
%>
|
|
<%
j=0
no=rsroot.recordcount
rsroot.pagesize=12
if IsNumeric(request("page")) then
pg=clng(request("page"))
else
pg=1
end if
if pg<1 then pg=1
if pg>rsroot.pagecount then pg=rsroot.pagecount
rsroot.absolutepage=pg
ipage=1
while not rsroot.eof and ipage<=12
sqltemp=sql & " where sort like '" & rsroot("report") & chr(37) & "' order by id desc"
rs.open sqltemp,conn,3
'sqlroot="select * from reportroot where report='" & tempsort(j) & "'"
'set rsroot=Server.CreateObject("ADODB.Recordset")
'rsroot.open sqlroot,conn,3
picture=rsroot("pic1")
sortnum=split(rsroot("sort"),"|",-1)
select case ubound(sortnum)
case "0"
linkid="listreport.asp?sort=" & rsroot("report") & "|" & rsroot("sort")
case "7"
linkid="reportdetail6.asp?sort=" & rsroot("report")
case else
linkid="reportdetailless5.asp?sort=" & rsroot("report")
end select
yu=cstr(j mod 4)
select case yu
case "0"
%>
<%
case "1"
%>
<%
case "2"
%>
<%
case "3"
%>
<%
end select
j=j+1
rsroot.movenext
ipage=ipage+1
wend
%>
|
共 <%=no%> 条，当前第 <%=pg%>/<%=rsroot.pagecount%> 页，每页 12 条
<%
if pg<>1 then
%>
首页 上页
<%
end if
if pg<>rsroot.pagecount then
%>
下页 尾页 |
<%
end if
if rsroot.recordcount>12 then
%>
<%
end if
%>
|
|
|
您的位置： 首页
> 专题 >
