zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
							<%Session.CodePage=65001%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>BdeCMS网站后台管理登陆</title>
<meta name="Keywords" content="网站后台管理系统，网站内容管理系统，asp网站后台管理系统，西安网站建设，西安网络公司"  />
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<!--#include file="../bdcommx/connxyz.asp"-->

<%call log_chk()%>

<body>
<script language="javascript">
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'selectall')
       e.checked = form.selectall.checked;
    }
  }
</script>
<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0"><tr>
        <td width="23" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="986" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 管理 </td>
      </tr>
</table>
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
        <form action="Bdel.asp" method="post" name="myform" id="myform">
          <tr>
            <td colspan="6" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>管理 </strong></td>
          </tr>
          <tr>
            <td width="5%" height="26" align="center" class="NcB_bg"><strong>选择</strong></td>
            <td width="6%" align="center" class="NcB_bg"><strong>编号</strong></td>
            <td width="15%" align="center" class="NcB_bg"><strong>申请人</strong></td>
            <td width="31%" align="center" class="NcB_bg"><strong>公司名称</strong></td>
            <td width="20%" align="center" class="NcB_bg"><strong>通信地址</strong></td>
            <td width="23%" align="center" class="NcB_bg"><strong>发布日期</strong></td>
          </tr>
<%dim mykey,CurrentPage,TotalPages
MaxPerPage=10
Set rs1= Server.CreateObject ("ADODB.RecordSet")
sql="select * from bdmessage order by mx_time desc"
rs1.open sql,conn,1,3
rs1.pagesize=MaxPerPage'定义每页记录数
'howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs1.PageCount then
CurrentPage = rs1.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs1.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs1.move(currentPage-1)*MaxPerPage
end if
end if
do while not rs1.eof and c<10%>

          <tr>
            <td height="30" align="center" class="NcB_bg"><input name="idgroup" type="checkbox" id="idgroup" value="<%=rs1("mx_id")%>" /></td>
            <td height="30" align="center" class="NcB_bg"><%=rs1("mx_id")%></td>
            <td height="30" align="center" class="NcB_bg"><font color="#0000FF"><%=rs1("mx_name")%></font></td>
            <td height="30" class="NcB_bg"><a href="Bmod.asp?thex=<%=rs1("mx_id")%>"><%=left(rs1("mx_title"),25)%></a> <a href="Bmod.asp?thex=<%=rs1("mx_id")%>">[查看]</a></td>
            <td height="30" align="center" class="NcB_bg"><%=rs1("mx_email")%></td>
            <td height="30" align="center" class="NcB_bg"><%=rs1("mx_time")%></td>
          </tr>

<%c=c+1
rs1.movenext 
loop 
rs1.close 
set rs1=nothing%>

          <tr>
            <td height="34" colspan="3" align="center" bgcolor="#FAFAFA">全选
              <input name="selectall" type="checkbox" id="selectall" value="on" onClick="CheckAll(this.form)" /></td>
            <td height="34" colspan="3" bgcolor="#FAFAFA"><input type="submit" name="Submit22" value="删除所选留言" /></td>
          </tr>
        </form>
      </table>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <form name="formgo" method="post" action="">
          <tr>
            <td height="43" align="center">
<%'页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then  'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
k=currentPage
if k<>1 then
response.write "["+"<a href=?page=1>第一页</a></b>] "
response.write "["+"<a href=?page="+cstr(k-1)+">上一页</a>] "
else
Response.Write "[第一页] [上一页]"
end if
if k<>n then
response.write "["+"<a href=?page="+cstr(k+1)+">下一页</a>] "
response.write "["+"<a href=?page="+cstr(n)+">最后一页</a>] "
else
Response.Write "[下一页] [最后一页]"
end if
'页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别
response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
response.Write("当前第"&k&"页")
response.Write(" <select name='page'>")
for myi=1 to n
response.Write("<option value='"&myi&"'>"&myi&"</option>")
next
response.Write("</select>")
response.Write(" <input type=submit name=Submit3 value=跳转 />")%></td>
          </tr>
        </form>
</table>
</body>
</html>