<% exec="select * from ly where jh=1 order by id desc" Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 2 page=Request("page") if page=0 then page=1 end if RecordCount = 0 do while not rs.Eof RecordCount = RecordCount +1 rs.MoveNext loop if not RecordCount=0 then rs.MoveFirst end if pageCount=RecordCount/11 pageCount=int(pageCount) if (RecordCount mod 11)>0 then PageCount=PageCount +1 end if %> 留言板——精华区
 

请选择要查看的留言
<%do while pos<(page-1)*11 pos=pos+1 rs.moveNext loop%> <%x=0%> <%do while x<11 and not rs.eof%> <%x=x+1 rs.movenext loop%>

" onMouseOver="MM_showHideLayers('Layer<%=rs("id")%>','','show')" onMouseOut="MM_showHideLayers('Layer<%=rs("id")%>','','hide')"> <%=rs("title")%>

" style="position:absolute; width:295px; height:125px; z-index:1706; left: 238px; top: 86px; background-color: #000000; layer-background-color: #000000; border: 1px none #000000; visibility: hidden">
留言详细情况
作者:
<%if rs("bl")=1 then %> <%=rs("name")%>  <%else%> <%=rs("name")%> <%end if%>
发表时间:
<%=times(rs("t"))%>
浏览次数:
<%=rs("yd")%>
是否精华文章:
<%if rs("jh")=1 then%> 是 <%else%> 否 <%end if%>
回复:
<%=rs("hf")%>
 
 共有 <%=RecordCount%> 条主题,共 <%=pageCount%> 页码: <% y=1%> <%do while y [<%=y%>] <% y=y+1 loop%>
返回留言首页 <%if page=1 then%> <%else%> <%end if%> <%if page<>1 or pagecount=1 then%> <%else%> <%end if%>