状态
主题
作者
回复/浏览
更新时间
<%If request("PageNo")="" then PageNo=1 Else PageNo=request("PageNo") End If if request("ssql")<>"" then sql=request("ssql") else sql="SELECT * from body order by lasttime desc" end if rs.open sql,conn,1,3 rs.Pagesize=20 if rs.eof then PageNo=0 else rs.absolutepage=PageNo end if x = 0 For x = 1 to rs.Pagesize If rs.eof then Exit For Else%>
<%if rs("time")>date and rs("lasttime")=rs("time") then'绿色 response.write "今日新贴" end if if rs("time")" end if if rs("lasttime")>date and rs("lasttime")>rs("time") then'红色 response.write "今日回复" end if%>
" title="<%="内容："&left(rs("body"),50)&"……"%>">
" title="<%="内容："&left(rs("body"),50)&"……"%>"><%=server.htmlencode(trim(rs("title")))%>   <%x=0 if x=0 then Medium="" if instr(rs("body"),"[IMG]")<>0 and instr(rs("body"),"[/IMG]")<>0 and instr(rs("body"),"[IMG]")0 and instr(rs("body"),"[/MP]")<>0 and instr(rs("body"),"[MP]")0 and instr(rs("body"),"]")<>0 and instr(rs("body"),"[/RM]")<>0 and instr(rs("body"),"[RM=")0 and instr(rs("body"),"]")<>0 and instr(rs("body"),"[/FLASH]")<>0 and instr(rs("body"),"[FLASH=")1 then Medium="some" response.write Medium %>
<%=server.htmlencode(trim(rs("writer")))%>
<%=rs("recount")%>/<%=rs("lookcount")%>
 <%=rs("lasttime")%>
<%rs.MoveNext End If Next %>
状态
主题
作者
回复/浏览
更新时间
共<%=rs.recordcount%>条留言，<%=PageNo%>/<%=Int(rs.pagecount)%>页， 每页<%=rs.Pagesize%>。首页 <%If PageNo > 1 then %> 上一页 <% Else response.write " " End If If int(PageNo)<>Int(rs.pagecount) then%> 下一页 <%Else response.write " " End If %> 尾页 <%rs.close%>