查看留言
我要留言

 

 
<% set rs=server.createobject("adodb.recordset") sql="select * from Feedback where Publish<>'1' and [Language]='0' order by id desc" rs.open sql,conn,1,1 dim MaxPerPageFeedback MaxPerPageFeedback=5 '取得页数,并判断留言输入的是否数字类型的数据,如不是将以第一页显示 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPageFeedback for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%> <% If rs.eof and rs.bof then If rs.eof and rs.bof then response.write "
    没有留言" exit Sub End if End if %>
<% i=0 do while not rs.eof %>
主  题 :   <%if rs("username")="管理员"then%> [管理员公告] <%end if%> <%=rs("title")%>
反馈内容:
<%=rs("Content")%>
留 言 者: <%=rs("Receiver")%> 留言时间: <%=rs("Time")%> 回复时间: <%=rs("Retime")%>
管理员回复:
<%if rs("ReFeedback")=""then%> ["未回复"] <%else%> <%=rs("ReFeedback")%> <%end if%>
<% i=i+1 if i >= MaxPerPageFeedback then exit do rs.movenext loop %>
<% Response.write "全部" Response.write "共" & Cstr(Rs.RecordCount) & "条留言          " Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write " 首页 " Response.write " 上一页 " Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write " 下一页 " Response.write " 尾页 " Else Response.write "" Response.write " 下一页 " End if Response.write "转到第" response.write"页" %>
<%end sub%>
   
 
 
   
<% rs.close set rs=nothing %>