www.pudn.com > Zhwebcode.rar > Admin_Feedback.asp, change:2008-10-14,size:4922b


<%@ LANGUAGE="VBScript" %> 
<!--#include file="conn.asp"--> 
<!--#include file="admin.asp"--> 
<!--#include file="Inc/articlechar.inc"--> 
<!-- #include file="Inc/Head.asp" --> 
<script language=javascript> 
function ConfirmDel() 
{ 
   if(confirm("确定要删除此记录吗?")) 
     return true; 
   else 
     return false; 
} 
</script> 
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> 
  <tr>  
    <td align="center" valign="top"> <br>  
      <table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" > 
        <tr>  
          <td height="28" class="back_southidc">  
            <div align="center"><strong>留言管理 <br> 
              </strong></div></td> 
        </tr> 
        <tr>  
          <td>  
<div align="center">  
<%  
const MaxPerPage=5 '分页显示的纪录个数  
dim sql  
dim rs  
dim totalPut  
dim CurrentPage  
dim TotalPages  
dim i,j  
  
  
if not isempty(request("page")) then  
  currentPage=cint(request("page"))  
else  
  currentPage=1  
end if  
set rs=server.createobject("adodb.recordset")  
sql="select * from Feedback order by id desc"  
rs.open sql,conn,1,1  
  
if rs.eof and rs.bof then  
  response.write "<p align='center'>还没有任何留言!</p>"  
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  
if currentPage=1 then  
  showpages  
  showContent  
  showpages  
else  
 if (currentPage-1)*MaxPerPage<totalPut then  
  rs.move (currentPage-1)*MaxPerPage  
  dim bookmark  
  bookmark=rs.bookmark  
  showpages  
  showContent  
  showpages  
 else  
  currentPage=1  
  showContent  
 end if  
end if  
rs.close  
end if  
set rs=nothing  
conn.close  
set conn=nothing  
 
 
sub showContent  
dim i  
i=0  
do while not (rs.eof or err) %> 
              <table  width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#666666" > 
                <tr bgcolor="#EFEFEF">  
                  <td width="18%" height="25"> <div align="center"> 
                    管理选项 
                    </div></td> 
                  <td width="82%">    <a href="Admin_FeedbackDel.asp?id=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a>      
                    <!--<a href="Admin_FeedbackRe.asp?id=<%=rs("id")%>">回复</a>--></td> 
                </tr> 
                <tr bgcolor="#fcfcfc">  
                  <td height="25"> <div align="center">姓名</div></td> 
                  <td>  <%=rs("Receiver")%></td> 
                </tr> 
                <tr bgcolor="#fcfcfc">  
                  <td height="25"> <div align="center">地址</div></td> 
                  <td>  <%=rs("Add")%></td> 
                </tr> 
                <tr bgcolor="#fcfcfc">  
                  <td height="25"> <div align="center">联系电话</div></td> 
                  <td>  <%=rs("Phone")%></td> 
                </tr> 
                <tr bgcolor="#fcfcfc">  
                  <td height="25" bgcolor="#fcfcfc">  
                    <div align="center">E-mail</div></td> 
                  <td>  <%=rs("email")%></td> 
                </tr> 
                <tr> 
                  <td height="25" bgcolor="#fcfcfc"><div align="center">手 机</div></td> 
                  <td height="25" bgcolor="#fcfcfc">  <%=rs("Mobile")%></td> 
                </tr> 
                <tr bgcolor="#F3F3F3">  
                  <td height="25"> <div align="center">主 题</div></td> 
                  <td height="25">  <%=rs("title")%>  [<%=rs("time")%>]</td> 
                </tr> 
                <tr bgcolor="#fcfcfc">  
                  <td height="25"> <div align="center">内 容</div></td> 
                  <td height="25">  <%=rs("content")%></td> 
                </tr> 
              </table> 
            </div></td> 
        </tr> 
      </table> 
      <br> <table width="550" border="0" align="center" cellpadding="0" cellspacing="0"> 
        <tr>  
          <td><div align="center"> 
              <% i=i+1  
 if i>=MaxPerPage then exit do  
 rs.movenext  
loop  
end sub  
sub showpages()  
 dim n  
 if (totalPut mod MaxPerPage)=0 then  
   n= totalPut \ MaxPerPage  
 else  
   n= totalPut \ MaxPerPage + 1  
 end if  
 if n=1 then  
  exit sub  
 end if  
 dim k  
 response.write "<p align='left'>>> 留言分页 "  
 for k=1 to n  
 if k=currentPage then  
   response.write "[<b>"+Cstr(k)+"</b>] "  
 else  
   response.write "[<b>"+"<a href='Admin_Feedback.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] "  
 end if  
 next  
end sub  
%> 
            </div></td> 
        </tr> 
      </table> 
      <br> <br> </td> 
  </tr> 
</table> 
<!-- #include file="Inc/Foot.asp" -->