📄 admin_batchdelessay.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数

💻 ASP

字号:

<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td> 
    <td  class="b1" valign="top"> 
      <%
if not isnull(cUserName) and cUserName<>"" then 
dim isMaster
isMaster=false
Server.ScriptTimeOut=9999999
  if chkMaster(cUserName) then
     isMaster=true
      select case Trim(Request.Form("action"))
      case "action"
		call action()
      case else
	  call main()
      end select
  else
  msgtitle="用户评论批删除管理"
  msginfo="<li>操作错误，你不是超级管理员，没有权限。</li>" 
  call Sysmsg(msgtitle,msginfo) 
  end if
else
  msgtitle="用户评论批删除管理"
  msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a></li>" 
  call Sysmsg(msgtitle,msginfo) 
end if

sub action()
	if Trim(Request.Form("all"))="yes" then	
		conn.execute("delete from SoftDown_SoftEssay")
	else
		conn.execute("delete from SoftDown_SoftEssay where Content like '%"&checkStr(Trim(Request.Form("Keyword")))&"%'")
	end if
	msgtitle="用户评论批删除管理"
	msginfo="<li>操作完成！</li>" 
	call Sysmsg(msgtitle,msginfo) 
end sub

sub main()
 %>
<form name="myform"  action="" method="post">
        <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
          <tr> 
            <th height="22" class="tdbg1">用户评论批删除管理</th>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">评论中包含字符： 
              <input name="action" type="hidden" value="action"> <input name="Keyword" type="text" size="45" maxlength="50"> 
              <input type="submit" name="Submit" value="删除">
              <input type="checkbox" name="all" value="yes">删除全部 </td>
          </tr>
          <tr> 
            <td height="25" align="center" class="tdbg2">注意：单引号“'”将被自动过滤掉</td>
          </tr>
        </table>
      </form>
<% end sub %>
    </td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<%CloseDatabase %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -