📄 feedback_admin.asp

📁 个人网站模板
💻 ASP
字号:
<!--#include file="check_admin.asp"-->
<!--#include file="conn_admin.asp" -->
<html>
<link href="sys_admin.css" rel="stylesheet" type="text/css">

<title>客户留言管理</title>
<body link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="107">
                <tr> 
                  <td height="90" valign="top"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FF9900" width="100%" id="AutoNumber3" height="5">
                <tr> 
                        
                  <td width="100%" height="18" colspan="5">
<div align="center"><strong>建高申请管理窗口</strong></div></td>
                      </tr>
                      
                <tr bgcolor="#006600"> 
                  <td width="3%" height="24" align="center"> 
                    <p><font color="#FFFFFF"><span lang="en-gb">ID</span></font></td>
                        
                  <td width="17%" height="19" align="center"> <font color="#FFFFFF">公司名称(<span lang="zh-cn">点击公司名称查看详细信息</span>)</font></td>
                        
                  <td width="10%" height="19" align="center"> <font color="#FFFFFF">建站类型</font></td>
                        
                  <td width="15%" height="19" align="center"> <font color="#FFFFFF">详细信息</font></td>
                        
                  <td width="6%" height="19" align="center"> <font color="#FFFFFF">操作</font></td>
                      </tr>
                      
                <tr bordercolor="#000000"> 
                  <%
   Dim maxpages
   Dim sql 
   Dim totalrecord   
   Dim thepage
   Dim TotalPages
   If Not IsNumeric(Request("page")) Then
   		Response.Write"<br><center><a href=# onclick='history.go(-1)'><font color=#ff0000>请输入一个数字!</font></a></center>"
   		Response.End
   End If
   If Not isempty(Request("page")) Then
      thepage=cint(Request("page"))
   Else
      thepage=1
   End If
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM feedback Order by datetime DESC"
rs.open sql,conn,1,1
If rs.eof and rs.bof Then
	Response.Write"<br><p aligh=center align=center><font color=#ff0000>现在还没有任何记录!</font></p>"
Else
rs.pagesize=8
totalrecord=rs.recordcount
totalpages=rs.pagecount
maxpages=rs.pagesize
	If thepage<1 Then
		thepage=1
	End If
	If thepage>totalpages Then
		thepage=totalpages
	End If
If thepage=1 Then
         ShowContent
    Else
         If (thepage-1)*maxpages<totalrecord Then
         rs.move (thepage-1)*maxpages
         Dim bookmark
         bookmark=rs.bookmark
         ShowContent
         End If
   End If
      rs.Close
End If
Set rs=Nothing  
conn.Close
Set conn=Nothing
Sub ShowContent
    Dim i
    Dim k
    k=(totalrecord-maxpages*(thepage-1))+1
    i=0
    Do While Not (rs.eof or err)
	k=k-1
%>
                  <!--循环开始-->
                  <td width="3%" height="19" align="center"><%=rs("id")%></td>
                        
                  <td width="17%" height="24" align="center"> 
                    <div align="left"><a href="feedback_view.asp?info_id=<% =rs("ID") %>"><%=rs("title")%></a></div></td>
                        
                  <td width="10%" height="19" align="center"><font color="#ff0000"><%=rs("leixing")%></font></td>
                        
                  <td width="15%" height="19" align="center"><%=Left(rs("content"),10)%></td>
                        
                  <td width="6%" height="19" align="center"><a href="del_feedback.asp?id=<%=rs("id")%>">删除</a></td>
                      </tr>
                      <!--循环结束-->
                      <%
i=i+1
    If i>=MaxPages Then exit do 
       rs.movenext
    loop
   End Sub 
%>
                      <% If thepage<1 Then %>
                      <% Else %>
                      <!--分页开始-->
                      <tr> 
                        <td width="100%" height="31" colspan="5"> <p align="center"> 
                            <% ShowPages %>
                        </td>
                      </tr>
                      <!--分页结束-->
                      <% End If %>
                    </table></td>
                </tr>
              </table>
            </div></td>
        </tr>
        <tr> 
          <td width="693" height="2"> </td>
        </tr>
      </table> </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td colspan="3">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
Sub Showpages()
Response.Write"<form action='feedback_admin.asp' method=post>"
If thepage <> 1 Then
      Response.Write "<a href=feedback_admin.asp>【第一页】</A> "
      Response.Write "<a href=feedback_admin.asp?Page=" & (thepage-1) & ">【上一页】</A> "
   End If
   If thepage <> totalpages Then
      Response.Write "<a href=feedback_admin.asp?Page=" & (thepage+1) & ">【下一页】</A> "
      Response.Write "<a href=feedback_admin.asp?Page=" & totalPages & ">【最后一页】</A> "
   End If
   Response.Write"【每页&nbsp;<font color=#ff0000>" & maxpages & "</font>&nbsp;条记录】"
   Response.Write"【共&nbsp;<font color=#ff0000>" & totalrecord & "</font>&nbsp;条记录】"
   Response.write "【共&nbsp;<font color=#ff0000>" & totalpages &"</font>&nbsp;页】&nbsp;"
   Response.Write "<input type='text' size=3 class='input2' name='page'><input type='submit' class='input2' size=3 name='tijiao' value='GO'>"
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -