<% 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 %>
<%=rst("classname")%>
<%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 %> <% i=i+1 if i>=5 then exit do loop %>
"><%=rs(" src="<%=rs("img")%>" width="145" border="0" />
"><%=left(rs("newsname"),11)%>
<%rs.MoveNext%>
<%if NOT rs.EOF then%>
"><%=rs(" src="<%=rs("img")%>" width="145" border="0" />
"><%=left(rs("newsname"),11)%>
<%rs.MoveNext end if %>
<%if NOT rs.EOF then%>
"><%=rs(" src="<%=rs("img")%>" width="145" border="0" />
"><%=left(rs("newsname"),11)%>
<%rs.MoveNext end if %>
<%if NOT rs.EOF then%>
"><%=rs(" src="<%=rs("img")%>" width="145" border="0" />
"><%=left(rs("newsname"),11)%>
<%rs.MoveNext end if %>
<% 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 ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "条/每页"&per_page&"条" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub %>