<% sql="select * from server order by id desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,3,1 if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if rs.pagesize=8 rs.AbsolutePage=pagecount do while not rs.eof%> <%if rs("content")<>"" then%> <%else%> <%end if%>
" title="<%=RS("questioncontent")%>" target="_blank"><%=RS("question")%>- 问题已经提交 -" title="来自 <%=RS("ip")%>" target="_blank"> <%if rs("content")<>"" then%> <%if request.cookies("wdpwd")="" then%> " title="<%=RS("content")%>" target="_blank"> <% Response.Write(" 已回答")%> <%else%> " title="<%=RS("content")%>">再回答.">删除 <%end if%> <%else%> <%if request.cookies("wdpwd")="" then%> 待回答 <%else%> " style="color: #ff0088">待回答.">删除 <%end if%> <%end if%>
<% rs.movenext i=i+1 if i>=rs.pagesize then exit do loop %>