<%ChannelID=37%> 广州网站建设咨询报价-力洋网络

网站建设, 网站报价

力洋广州网站建设公司(2001-2009)| Sitemap

<% If ChannelID<>0 Then sSql="Select * From OtherChannel Where ClassID="&ChannelID oRs.Open sSql,oConn,1,1 If Not oRs.Eof Then zParentPath=oRs("ParentPath") ParentID=ors("ParentID") zClassName=oRs("ClassName") zclassid=ors("ClassID") End If oRs.Close If ParentID<>0 Then sSql="Select ClassID,ClassName,ParentPath From OtherChannel Where ClassID="&ParentID oRs.Open sSql,oConn,1,1 zClassName=oRs("ClassName") zclassid=ors("ClassID") oRs.Close End If End If %>


<% dim MaxPerPage dim sql dim rs dim totalPut '总记录 dim CurrentPage '当前页次 dim TotalPages '总页数 dim i dim id MaxPerPage=W_BookRecoNum %> <% set rs=server.createobject("adodb.recordset") If BookExamine=False Then sql="select * from book order by id desc" Else sql="select * from book where bexamine=true order by id desc" End If rs.open sql,oConn,1,1 %>
<% if rs.eof and rs.bof then %>
<% else %> <% if not rs.eof then rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上 end if rs.pagesize=MaxPerPage '设置每页最多显示多少条记录 If trim(Request("Page"))<>"" then '如果请求的页次不为空 If IsNumeric(trim(Request("Page"))) = False Then GoError "分页参数错误,请不要试图破坏此系统。" End If CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上 If CurrentPage> rs.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上 CurrentPage = rs.PageCount End If Else CurrentPage= 1 '一切条件不成立,将当前页设为第一页 End If totalPut=rs.recordcount '将总记录赋值于TOTALPUT if CurrentPage<>1 then '如果当前页数不等于第一页 if (currentPage-1)*MaxPerPage <% id=(totalPut-MaxPerPage*(currentPage-1))+1 i=0 Do While Not rs.EOF and i
<%=rs("time")%> 来自:<%=rs("where")%> IP:<%=rs("ip")%>
" width="32" height="32">
" width="20" height="20">
<%if rs("show")=2 then response.write"此留言内容为悄悄话,只有管理员才可查看!" %> <%else%> <%=rs("title")%>
<% Dim bookcontent bookcontent=replace(rs("content"),"请您文明用语","请您文明用语") Response.Write bookcontent %> <%end if%>
<% if rs("reply")<>"" then%>
<%end if%>

<% i=i+1 rs.movenext loop %>
当前第<%=currentpage%>页 总共<%=n%>页 共<%=rs.recordcount%>个留言 <%k=currentPage if k<>1 then response.write "["+"首页] " response.write "["+"上一页] " else Response.Write "[首页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"尾页] " else Response.Write "[下一页] [尾页]" end if %>
<% End If %>
<% rs.close %>