<!--#include file="../conn/conn_other.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/sql.asp"-->
<%
	end if
	useflag=1
%>
<!--#include file="flag.asp"-->
<%
	action=Trim(Request("action"))
	zhuangtai=Trim(Request("zhuangtai"))
	if zhuangtai="" then
		zhuangtai=3
	else
		zhuangtai=int(zhuangtai)
	end if
	if action="del" then
	id=Trim(Request("id"))
		if id="" then
			response.write"<script language=JavaScript>alert('参数为空，请选择您要删除的公告信息');"    
			response.write"this.location.href='aboutus_all.asp';</script>"
			response.End
		end if
		sql="delete from aboutus where id in("&id&")"
		conn.Execute sql
		response.write"<script language=JavaScript>alert('公告信息删除成功！');"    
		response.write"this.location.href='aboutus_all.asp';</script>"
		response.End
	end if
	if action="delall" then
		sql="delete from aboutus"
		conn.Execute sql
		response.write"<script language=JavaScript>alert('公告信息全部删除成功！');"    
		response.write"this.location.href='aboutus_all.asp';</script>"
		response.End
	end if
	if zhuangtai=0 then
		id=int(Trim(Request.QueryString("id")))
		sql="update aboutus set zhuangtai=0 where id="&id&""
		conn.Execute sql
		response.write"<script language=JavaScript>alert('关于我们信息已成功更改为显示状态！');"    
		response.write"this.location.href='aboutus_all.asp';</script>"
		response.End
	end if
	if zhuangtai=1 then
		id=int(Trim(Request.QueryString("id")))
		sql="update aboutus set zhuangtai=1 where id="&id&""
		conn.Execute sql
		response.write"<script language=JavaScript>alert('关于我们信息已成功更改为隐藏状态！');"    
		response.write"this.location.href='aboutus_all.asp';</script>"
		response.End
	end if
%>
<script src='Include/Common.js'></script>
<link href='Include/Admin_Style.CSS' rel='stylesheet' type='text/css'>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="sortbutton">
<tr>    
<td width="27%" height="23" align="center" valign="middle">关于我们信息管理&nbsp;<a href="aboutus_add.asp" title="添加信息"><font color="#FF0000">(添加)</font></a></td>
<td width="73%" align="center" valign="middle"><table width="100%" border="0">
<form name="form2" method="get">
<input name="action" type="hidden" value="search" />
        <tr>
          <td width="19%">
		  <Input maxLength=30 name="Keyword" value="标题" onMouseOver="if(this.value=='标题'){this.value=''}" title="标题">
		  </td>
          <td width="63%"><input class="button" type="submit" value="提交条件"></td>
        </tr>
		</form>
</table>
</td>
</tr>
</table>
<table width="100%" style="MARGIN-TOP: 3px;word-break:break-all" border="0" align="center" cellspacing="1" cellpadding="1"  class="Border">
<tr height="25" align="center" class='title'>
	<td width='6%' nowrap>选择</td>
	<td width="6%" nowrap>I D </td>
	<td width="22%" nowrap>公告主题</td>
	<td width="31%" nowrap>公告简介</td>
	<td width="12%" nowrap>发布时间</td>
	<td width="11%" nowrap>状态</td>
	<td width="12%" nowrap>操作</td>
</tr>

<form name="selform" method="post" action="?action=del">
<%
	searchtype=""
	
	if Trim(Request.QueryString("action"))="search" then
	
		Keyword=Trim(Request.QueryString("Keyword"))
	
		searchtype="where title like '%"&Keyword&"%'"
	
	end if

	dim i,intPage,page,pre,last,filepath'定义变量
	set rs_user = server.CreateObject("adodb.recordset")'创建对象
	sql="select * from aboutus "&searchtype&" order by id desc"'定义SQL语句
	rs_user.PageSize = 13 '这里设定每页显示的记录数
	rs_user.CursorLocation = 3
	rs_user.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
	pre = true
	last = true
	page = trim(Request.QueryString("page"))'变量是跳转页面时的值

	if len(page) = 0 then
		intpage = 1
		pre = false
	else
		if cint(page) =< 1 then
			intpage = 1
			pre = false
		else
			if cint(page) >= rs_user.PageCount then
				intpage = rs_user.PageCount
				last = false
			else
				intpage = cint(page)
			end if
		end if
	end if
	if not rs_user.eof then
		rs_user.AbsolutePage = intpage
	end if
	if rs_user.eof then
		response.Write "<tr><td colspan=9><div align=center><font size=3 color=red><b>没有关于我们相关信息，请查询后再重试</b></font></div></td></tr>"
		response.End
	else
	for i=1 to rs_user.PageSize
	if rs_user.EOF or rs_user.BOF then exit for
%>
<tr height="25" align=center class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
	<td><input type="checkbox" name="id" value="<%= rs_user("id") %>"></td>
	<td><%= rs_user("id") %></td>
	<td><a href="/about/index.asp?id=<%= rs_user("id") %>" target="_blank" title="浏览<%= rs_user("title") %>的详细信息"><%= left(rs_user("title"),13) %><% If len(rs_user("title"))>13 Then Response.Write("...")%></a></td>
	<td><%= left(rs_user("content"),20) %><% If len(rs_user("content"))>20 Then Response.Write("...")%></td>
	<td><%= year(rs_user("stime")) %>-<%= month(rs_user("stime")) %>-<%= day(rs_user("stime")) %></td>
	<td><% If rs_user("zhuangtai")=0 Then Response.Write("<a href='?zhuangtai=1&id="&rs_user("id")&"'>显示</a>") else Response.Write("<a href='?zhuangtai=0&id="&rs_user("id")&"'>隐藏</a>")%></td>
	<td><a href="aboutus_edit.asp?id=<%= rs_user("id") %>"><font color="#FF0000">修改</font></a> || <a href="?action=del&id=<%= rs_user("id") %>" onclick='{if(confirm("删除后将无法恢复，您真的要删除么？")){return true;}return false;}'>删除</a></td>
</tr>
<%
	rs_user.movenext
	next
	End If
%>
<tr>
<td colspan=7>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff style="word-break:break-all">
<tr>
<%if rs_user.pagecount > 0 then%>
<td width="13%" align="left">当前页<%=intpage%>/<%=rs_user.PageCount%></td>
<%else%>
<td width="41%" align="left">当前页0/0</td><%end if%>
<td width="46%" align="right"> <a href="?page=1&Keyword=<%= Trim(Request.QueryString("Keyword")) %>">首页</a>|
<%if pre then%>
<a href="?page=<%=intpage -1%>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>">上页</a>| <%end if%>
<%if last then%>
<a href="?page=<%=intpage +1%>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>">下页</a> |<%end if%>
<a href="?page=<%=rs_user.PageCount%>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>">尾页</a>|转到第
<select name="sel_page" onchange=javascript:location.href=this.options[this.selectedIndex].value>
<%
	for i = 1 to rs_user.PageCount
	if i = intpage then
%>
<option value="?page=<%=i%>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>" selected><%=i%></option>
<%else%> 
<option value="?page=<%=i%>&Keyword=<%= Trim(Request.QueryString("Keyword")) %>"><%=i%></option>
<%
	end if
	next
	rs_user.close
	set rs_user=nothing
%>
</select>页</font></td>
</tr>
</table></td>
</tr>
<tr>
	<td  class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'" height='25' colspan=7>
	&nbsp;&nbsp;<input id="chkAll" onClick="CheckAll(this.form)" type="checkbox" value="checkbox"  name="chkAll">全选
	<input class=Button type="submit" name="Submit2" value=" 删 除 " onclick="{if(confirm('您确定要删除此关于我们信息吗?')){this.document.selform.submit();return true;}return false;}">
	<input class=Button type="button" name="Submit3" value="清空所有关于我们信息" onclick="{if(confirm('您确定要清空所有关于我们信息吗?')){location.href='?action=delall';return true;}return false;}"></td>
</tr>
</form>
<tr>
	<td  class='tdbg' onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'" colspan=7 align=right>	</td>
</tr>
</table>
<% call closeconn() %>