<% exec="select * from ly where rt=0 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:266px; height:100px; z-index:1706; left: 262px; top: 92px; 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%> 下一页