<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")=2 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%dim selectm,selectkey,selectbookid
selectkey=trim(request(trim("selectkey")))
selectm=trim(request("selectm"))
if selectkey="" then
selectkey=request.QueryString("selectkey")
end if
'//删除商品
if selectm="" then
selectm=request.QueryString("selectm")
end if
selectbookid=request("selectbookid")
if selectbookid<>"" then
conn.execute "delete from zhuanti where newsid in ("&selectbookid&")"
response.Redirect "managezhuanti.asp"
response.End
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
</tr>
<tr> 
<form name="form1" method="post" action="">
<td height="100"> 
                                <%'开始分页
				Const MaxPerPage=10
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
			set rs=server.CreateObject("adodb.recordset")
			select case selectm
			case ""
            rs.open "select newsid,title,updatetime from zhuanti order by updatetime desc",conn,1,1
		    case "0"
			rs.open "select newsid,title,updatetime from zhuanti order by updatetime desc",conn,1,1
		    case "newsid"
			rs.open "select newsid,title,updatetime from zhuanti where newsid="&selectkey&" order by updatetime desc",conn,1,1
			case "title"
			rs.open "select newsid,title,updatetime from zhuanti where title like '%"&selectkey&"%' order by updatetime desc",conn,1,1
			case "content"
			rs.open "select newsid,title,updatetime from zhuanti where content like '%"&selectkey&"%' order by updatetime desc",conn,1,1
		  end select
		   	if err.number<>0 then
				response.write "数据库中无数据"
				end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 数据库中无数据！</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
            			showContent
            			showpage totalput,MaxPerPage,"managezhuanti.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"managezhuanti.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"managezhuanti.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0%>
                <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
      				    
          <tr background="../img/green.gif"> 
            <td colspan="4" align="center"><b><font color="#ffffff">商城专题管理</font></b></td>
     				     </tr>
                                  <tr bgcolor="#ffffff"> 
                                    <td width="10%" align="center">序号</td>
                                    <td width="50%" align="center">文章标题</td>
                                    <td width="30%" align="center">加入时间</td>
                                    <td width="10%" align="center">选 择</td>
                                  </tr>
                                  <%
		  do while not rs.eof%>
                                  <tr bgcolor="#ffffff"> 
                                    <td> 
                                      <div align="center"><a href=editbook.asp?id=<%=rs("newsid")%>> 
                                        </a><%=rs("newsid")%></div>
                                    </td>
                                    <td width="50%" STYLE='PADDING-LEFT: 10px'> 
                                      <a href=zhuantiedit.asp?id=<%=rs("newsid")%>> 
                                      <% if len(replace(trim(rs("title")),"<br>",""))>16 then
			response.write left(replace(trim(rs("title")),"<br>",""),14)&"..."
			else
			response.write replace(trim(rs("title")),"<br>","")
			end if%>
                                      </a></td>
                                    <td align="center"><%=rs("updatetime")%></td>
                                    <td align="center">
									<input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("newsid")%>">
                                    </td>
                                  </tr>
                                  <%i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
                                  <tr bgcolor="#ffffff"> 
                                    <td height="30" colspan="4" align="right">
									全选
									<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
									<input type="submit" name="Submit" value="删 除" onClick="return test();">
									&nbsp;&nbsp;
									</td>
                                  </tr>
                                </table>
                                <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				
				Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"  
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>尾页</a>"  
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"专题 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
					Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok' ></form>"  
				End Function  
			%>
                                <table width="12" height="7" border="0" cellpadding="0" cellspacing="0">
                                  <tr> 
                                    <td height=7></td>
                                  </tr>
                                </table>
                              </td>
                            </form>
                          </tr>
                        </table>
					<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
      				    <tr> 
      				      
    <td align="center" background="../img/green.gif"><b><font color="#ffffff">专题文章查询</font></b></td>
     				     </tr>
                          <tr> 
                            <form name="form2" method="post" action="managezhuanti.asp">
                              <td height="50" bgcolor="#ffffff"> 
                                <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
                                  <tr> 
                                    <td width="35%" align="center">
									<input name="selectkey" type="text" id="selectkey" onFocus="this.value=''" value="请输入关键字">
                                    </td>
                                    <td width="45%" align="center">
                                        <select name="selectm" id="selectm">
                                          <option value="0">全部文章</option>
                                          <option value="newsid">按文章序号</option>
                                          <option value="title">按文章标题</option>
                                          <option value="content">按文章内容</option>
                                        </select>
                                    </td>
                                    <td width="20%" height="30" align="center">
									<input type="submit" name="Submit2" value="查 询">
                                    </td>
                                  </tr>
								  <tr><td colspan=3 height=40>　除查询“所有商品”外，必须要输入关键字，才能查询<br>　根据商品序号来查询时，关键字里只能输入数字。</td></tr>
                                </table>
                              </td>
                            </form>
                          </tr>
                        </table>
<!--#include file="copyright.asp"-->
</body>
</html>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>