zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203
							<%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">
<style type="text/css">
<!--
.style1 {color: #0000FF}
-->
</style>
</head>
<!--#include file="../bdcommx/connxyz.asp"-->
<!--#include file="../bdcommx/jsall.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="18" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 信息管理  &gt;&gt; <%=request("Bname")%>
          <%if request("Sname")<>"" then%>
&gt;&gt; <%=request("Sname")%>
 <%end if%></td>
      </tr>
</table>
      <br />
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
  <form name="formSearch" method="post" action="Nmag.asp?Bid=<%=request("Bid")%>&Sid=<%=request("Sid")%>&Bname=<%=request("Bname")%>&Sname=<%=request("Sname")%>"><tr>
    <td height="36" align="center" nowrap class="NcB_bg">信息搜索：关键字：
      <input name="Keyword" type="text" id="Keyword" size="18" />
      <input name="submitSearch" type="submit" class="button" value="搜索" /></td>
  </tr></form>
</table>
      <br />
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
        <form name="myform" method="post" action="">
          <tr>
            <td height="29" colspan="9" align="center" background="../images/bg2.jpg"><strong>信&nbsp; 息&nbsp; 管&nbsp; 理 </strong></td>
          </tr>
          <tr>
		    <td width="6%" align="center" class="NcB_bg"><strong>编号</strong></td>
            <td width="5%" align="center" class="NcB_bg"><strong>发布</strong></td>
            <td width="43%" height="26" align="center" class="NcB_bg"><strong>信息标题</strong></td>
            <td width="9%" align="center" class="NcB_bg"><strong>设置推荐</strong></td>
            <td width="13%" align="center" class="NcB_bg"><strong>发布日期</strong></td>
            <td width="7%" align="center" class="NcB_bg"><strong>点击数</strong></td>
            <td width="6%" align="center" class="NcB_bg"><strong>排序</strong></td>
            <td width="7%" align="center" class="NcB_bg"><strong>修改</strong></td>
            <td width="4%" align="center" class="NcB_bg"><strong>选择</strong></td>
          </tr>
<%dim Keyword,start_date,end_date,CurrentPage,TotalPages,Bid,Sid
MaxPerPage=30
Keyword=request("Keyword")
Bid=request("Bid")
Sid=request("Sid")
Bname=request("Bname")
Sname=request("Sname")
Set rs1= Server.CreateObject ("ADODB.RecordSet")
if Keyword="" then
		if Sid="" then
		sql="select * from bdnews where nb_id="&Bid&" order by nws_order asc"
		else
		sql="select * from bdnews where nb_id="&Bid&" and ns_id="&Sid&" order by nws_order asc"
		end if
end if
	
if Keyword<>"" then
		if Sid="" then
		sql="select * from bdnews where (nws_title like '%"&Keyword&"%') and nb_id="&Bid&" order by nws_order asc"
		else
		sql="select * from bdnews where (nws_title like '%"&Keyword&"%') and nb_id="&Bid&" and ns_id="&Sid&" order by nws_order asc"
		end if
end if
'--------------------------------------------------此乃呵呵
rs1.open sql,conn,1,3
if rs1.eof then
response.Write("<tr><td></td><td></td><td height=30 class='Fnt_red'>暂无信息！</td><td></td><td></td><td></td><td></td><td></td></tr>")
Tlock=1
else
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%>
          <input name="Keyword" type="hidden" id="mykey" value="<%=Keyword%>" />
          <input name="Bid" type="hidden" value="<%=Bid%>"/>
          <input name="Sid" type="hidden" value="<%=Sid%>"/>
          <input name="Bname" type="hidden"  value="<%=Bname%>"/>
          <input name="Sname" type="hidden" value="<%=Sname%>"/>
          <%do while not rs1.eof and mynum<30%>
          <tr>
            <td align="center" class="NcB_bg"><%=rs1("nws_id")%></td>
            <td height="26" align="center" class="NcB_bg"><%if rs1("nws_stop")=1 then%>
                <a href="Nstop.asp?thex=<%=rs1("nws_id")%>&act=stop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>" class="redlink">√</a>
                <%else%>
                <a href="Nstop.asp?thex=<%=rs1("nws_id")%>&act=rstop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>" class="redlink">×</a>
                <%end if%></td>
            <td height="26" class="NcB_bg">　<%=left(rs1("nws_title"),16)%></td>
            <td height="26" align="center" class="NcB_bg"><%if rs1("nws_tj")=1 then%>
                <a href="Ntj.asp?thex=<%=rs1("nws_id")%>&act=stop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>"><span class="Fnt_red">[已推荐]</span></a>
				<%else%>
				<a href="Ntj.asp?thex=<%=rs1("nws_id")%>&act=rstop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>"><span class="Fnt_red">[未推荐]</span></a>
                <%end if%></td>
            <td align="center" class="NcB_bg"><%=rs1("nws_time")%></td>
            <td align="center" class="NcB_bg"><%=rs1("nws_click")%></td>
            <td align="center" class="NcB_bg"><%=rs1("nws_order")%></td>
            <td align="center" class="NcB_bg"><a href="Nmod.asp?thex=<%=rs1("nws_id")%>&Bname=<%=Bname%>&Sname=<%=Sname%>"><font color="#009999">[修改]</font></a></td>
            <td align="center" class="NcB_bg">
                <input name="idgroup" type="checkbox" id="idgroup" value="<%=rs1("nws_id")%>" /></td>
          </tr>
<%mynum=mynum+1
rs1.movenext 
loop 
rs1.close 
set rs1=nothing 
end if%>
          <tr bgcolor="#FFFF99">
            <td height="34" colspan="7" align="center" class="NcB_bg"><strong>将选择的信息转移至：</strong><%=npdclassY(0)%>              <input type="submit" name="Submit" value="转移所选信息" onClick="document.myform.action='Ndatechg.asp';document.myform.submit();" <%if Tlock=1 then%>onmouseover="Btn_lock();"<%end if%>/> 
           &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Submit22" value="删除所选信息" onClick="document.myform.action='Ndel.asp';document.myform.submit();" <%if Tlock=1 then%>onmouseover="Btn_lock();"<%end if%>/></td>
            <td colspan="2" align="center" class="NcB_bg"><strong>全选</strong>              <input name="selectall" type="checkbox" id="selectall" value="on" onClick="CheckAll(this.form)" /></td>
          </tr>
        </form>
      </table>
      <table width="95%" height="32"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="32" class="hui12">&nbsp;</td>
        </tr>
      </table>
      <table width="95%" height="2"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="2" background="../images/left_bg.jpg"></td>
        </tr>
      </table>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="formgo" method="post" action="">
          <tr>
            <td height="43" align="center">
			<input name="Keyword" type="hidden" id="mykey" value="<%=Keyword%>" />
<input name="Bid" type="hidden" value="<%=Bid%>"/>
<input name="Sid" type="hidden" value="<%=Sid%>"/>
<input name="Bname" type="hidden"  value="<%=Bname%>"/>
<input name="Sname" type="hidden" value="<%=Sname%>"/><%
'------------------------------------------------------页面跳转
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&Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&">第一页</a></b>] "
response.write "["+"<a href=?page="+cstr(k-1)+"&Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&">上一页</a>] "
else
Response.Write "[第一页] [上一页]"
end if
if k<>n then
response.write "["+"<a href=?page="+cstr(k+1)+"&Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&">下一页</a>] "
response.write "["+"<a href=?page="+cstr(n)+"&Keyword="&Keyword&"&Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&">最后一页</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=Submit4 value=跳到 />")%>
</td>
          </tr>
</form>
</table>
<br />
<br />
</body>
</html>