⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 gbook_admin.asp

📁 这是一个物流网站的源代码
💻 ASP
字号:
<!--#include file="../inc/CheckAdmin.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/Conn.asp"-->
<% 
Dim Language,table,Sortid,sql
Language=Request("Language")
Flag=request("StateID")
KeyWord=request("KeyWord")
sql="select * from Ebook where e_Language like '%"&Language&"%' and e_flag like '%"&Flag&"%' and e_content like '%"&KeyWord&"%' order by e_date DESC" 
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=10
%>
<!--#include file="../../inc/Page_function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站管理系统</title>
<link href="../Css_Main.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
<!--
function CheckAll(formall)
  {
  for (var i=0;i<formall.elements.length;i++)
    {
    var e = formall.elements[i];
    if (e.name == 'delid')
       e.checked = formall.chkall.checked;
    }
  }
  
  -->
</script>
<body>
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr>
    <td class="title_dh"><div align="center">留言管理</div></td>
  </tr>
  <form action="" method="get" name="form">
  <tr>
    <td class="tdbg"><div align="left"><strong>搜索:</strong>      
        <!--#include file="../inc/Language.asp"-->
&nbsp;&nbsp;&nbsp;
<select name="StateID" onChange="location.href='?language=<%= language %>&StateID='+this.options[selectedIndex].value">
  <option value="">所有状态</option>
  <option value=1 <% If Flag="1" Then Response.Write(" selected") %>>已审核</option>
  <option value=0 <% If Flag="0" Then Response.Write(" selected") %>>未审核</option>
</select>
&nbsp;
<input name="Keyword" type="text" id="Keyword" size="20" value="<%= Keyword %>">
&nbsp;
<input name="Submit" type="submit" id="Submit" value="查询">
    </div></td>
  </tr></form>
</table>
<form name="form1" method="post" action="Gbook_del.asp">
  <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="1" class="border">
    <tr class="title_top">
      <td width="5%"><div align="center">选择 </div></td>
      <td width="10%"><div align="center"> 姓名</div></td>
      <td width="33%"><div align="center">主题</div></td>
      <td width="10%"><div align="center"> 版本</div></td>
      <td width="12%"><div align="center">日期</div></td>
      <td width="10%"><div align="center"> 状态</div></td>
      <td width="20%"><div align="center">操作</div></td>
    </tr>
    <% if rs.eof and rs.bof then %>
    <tr class="tdbg">
      <td colspan="7">
        <div align="center"> 暂时没有留言</div></td>
    </tr>
    <% else %>
    <% for i=1 to rs.PageSize
   if rs.EOF or rs.BOF then exit for
%>
    <tr class="tdbg">
      <td>
        <div align="center">
          <input type="checkbox" name="delid" value="<%= rs("e_id") %>">
      </div></td>
      <td>
        <div align="center"><%= rs("E_name") %></div></td>
      <td><a href="Gbook_Edit.asp?id=<%= rs("e_id") %>"><%= rs("e_title") %></a></td>
      <td>
        <div align="center"><%= Check_Language(rs("E_Language")) %></div></td>
      <td><div align="center"><%= year(rs("E_date"))&"-"&month(rs("E_date"))&"-"&day(rs("E_date")) %></div></td>
      <td>
        <div align="center">
          <% if rs("e_flag")=0 then
		        response.Write"未审核"
             else
				response.Write"已审核"
		     end if %>
      </div></td>
      <td><div align="center"><a href="Gbook_Edit.asp?id=<%= rs("e_id") %>&language=<%= rs("e_language") %>">编辑/回复</a> | <a href="Gbook_Del.asp?delid=<%= rs("e_id") %>" onClick="return confirm('此操作不可恢复,确定执行吗?');">删除</a> | 
        <% if rs("e_flag")=0 then
		                        response.Write"<a href='../inc/confirm.asp?id="&rs("e_ID")&"&flag="&rs("e_flag")&"' title='点击通过审核'>审核</a>"
								else
								response.Write"<a href='../inc/confirm.asp?id="&rs("e_ID")&"&flag="&rs("e_flag")&"' title='点击降为未审核'>取消</a>"
		                        end if %>
      </div></td>
    </tr>
    <% rs.movenext
         next
	  %>
  </table>
  <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="40">
      <div align="center">
        <input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" title='全选/不选'  >
全选/不选
<input type="submit" name="Submit2" value="删除所选" onClick="return confirm('此操作不可恢复,确定执行吗?');">
</div></td>
  </tr>
</table>
<div align="center">
</div>
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr>
    <td>
      <div align="center"><!-- #include file="../../inc/showpage.asp" --></div></td>
  </tr>
</table>  </form>
  <% end if
   rs.close
   set rs=nothing
%>
</body>
</html>


⌨️ 快捷键说明

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