|
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from class where classmid=1 ",conn,1,1
if rst.EOF then
else
do while NOT rst.EOF
%>
|
<%
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%>
|
<%if ly="0" then%>
<%else%>
<%
vvv=" where flag=1 "
vvvv="id="&id&"&"
if request("classid")<>"" then
vvv=vvv&" and classid="&request("classid")&" "
vvvv=vvvv&"classid="&request("classid")&"&"
end if
if request("key")<>"" then
vvv=vvv&" and newsname like '%"& request("key") &"%' "
vvvv=vvvv&"key="&request("key")&"&"
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from news "&vvv&" order by id desc",conn,3,2
'dim page
'dim e_page
'e_page=5 '每页显示留言数
'rs.pagesize=e_page
'if request.querystring("page")="" or request.querystring("page")=0 then
'page=1
'else
'page=request.querystring("page")
'rs.absolutepage=trim(request.querystring("page"))
'end if
%>
<%
if rs.eof and rs.bof then
%>
<%else%>
<%
rs.PageSize =16 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
per_page=rs.PageSize
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
%>
<%i=1
do while NOT rs.EOF %>
<%rs.MoveNext%> |
<%if NOT rs.EOF then%>
<%rs.MoveNext
end if
%> |
<%if NOT rs.EOF then%>
<%rs.MoveNext
end if
%> |
<%if NOT rs.EOF then%>
<%rs.MoveNext
end if
%> |
<%
i=i+1
if i>=5 then exit do
loop
%>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center"," ",per_page)
%>
|
<%
rs.close
set rs=nothing
end if
%>
|
|
|
<%end if%>
<%
Sub PageControl(iCount,pagecount,page,table_style,font_style,per_page)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
Response.Write("" & vbCrLf )
Response.Write("" & vbCrLf )
Response.Write(" " & vbCrLf )
End Sub
%> |
|