<% dim strFileName const MaxPerPage=15 dim totalPut,CurrentPage,TotalPages dim i,j dim ArticleID dim Title dim sql,rs dim BigClassName,SmallClassName,SpecialName dim PurviewChecked dim strAdmin,arrAdmin PurviewChecked=false strFileName=Request.ServerVariables("admin/SCRIPT_NAME")&"?" if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if bigid=request("bigid") if request("Action")="passed" then if bigid<>"" then if request("act")="clock" then sql="Update [huanping] set passed=true where id=" & CLng(bigid) else sql="Update [huanping] set passed=false where id=" & CLng(bigid) end if conn.Execute sql call CloseConn() end if response.redirect "?page="¤tPage end if if request("Action")="Del" then sql="delete from huanping where id=" &bigid& "" conn.Execute sql end if sql="select * from huanping where id>0" sql=sql & " order by id desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %>

管 理

 所有   <% if rs.eof and rs.bof then response.write "共找到 0 个
" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if response.Write "共找到 " & totalPut & " 个 " %>
<% if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,false,"个 " else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 %> <%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
姓名 联系地址或单位 E-mail 留言日期 状态 操 作
<%=rs("Name")%> <%=rs("address")%> <%=rs("email")%> <%=rs("Time")%> <%if rs("passed")<>0 then %> &page=<%=currentPage%>&Action=passed&act=notclock">显示<%else%>&page=<%=currentPage%>&Action=passed&act=clock">未显示<%end if%> ">查看 &Action=Del" onClick="return ConfirmDel();">删除
<% end sub %>
查找 ：   请输入标题。如果为空，则查找所有 。
<% rs.close set rs=nothing call CloseConn() %>