📄 inquirebottom2.asp

📁 应用程序利用ＡＳＰ做的一个可以实现登陆
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="../getlevel.asp"-->
<HTML>
   <HEAD>     
      <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"/>
      <link href="gs.css" type=text/css rel=stylesheet>
	  <STYLE type=text/css>BODY {
        	FONT-FAMILY: "宋体"; FONT-SIZE: 10pt
           }
          TABLE {
	         FONT-FAMILY: "宋体"; FONT-SIZE: 10pt
            }
      </STYLE>
<title>人员编制查看</title>
</head>

<body bgcolor="#567D30" text="#FFFFFF">	  
<script language="javascript">

function confirmDel(sort)
{
if ( confirm("你确定要删除吗？")) {
window.location.href = "inquirebottom2.asp?action=delete&sort="+sort
  }
}

</script>
<% 
 '删除记录
 curaction = request("action")
 sort = request("sort")
if curaction = "delete" then
    set rs9 = server.createobject("adodb.recordset")
    sql9 = "select * from mp_authorized where level1='"&level1&"' and level2='"&level2&"' and level3='"&level3&"' and level4='"&level4&"' and sort='"&sort&"'" 
    rs9.open sql9,conn, 1,1
   if not rs9.bof and not rs9.eof then
    sql = "DELETE FROM mp_authorized where level1='"&level1&"' and level2='"&level2&"' and level3='"&level3&"' and level4='"&level4&"' and sort='"&sort&"'"
	conn.execute sql
	if err.number <> 0 then
		response.write "数据库操作错误：" + err.description
		err.clear
	else
		response.write "<script language='javascript'>" 
	    response.write "alert('记录删除成功!');" 
        response.write "</script>"
   
	end if
 else
	    response.write "<script language='javascript'>" 
	    response.write "alert('本分队记录已经删除!');" 
        response.write "</script>" 
end if

end if
	

%>

	 

<table width="728" height="25" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#2D5300" class="text">
  <tr bgcolor="#567D30"> 
    <TD width="155" height="25" align=center noWrap> <div align="center">编制数</div></TD>
    <TD width="155" height="25" align=center noWrap> <div align="center">在位数</div></TD>
    <TD width="155" height="25" align=center noWrap> <div align="center">现有数</div></TD>
    <TD width="155" height="25" align=center noWrap> <div align="center">类别</div></TD>
    <TD width="100" height="25" colspan="2" align=center noWrap> <div align="center">操&nbsp;&nbsp;作</div></TD>
  </TR>


 <%
 '取得记录条数
    'rsort=request("sort")
	set rs1 = server.createobject("adodb.recordset")
        sql1 = "select  sum(authorized) from mp_authorized "&condition&" and sort='干部'"
		'response.write(sql1)
	 'response.end()
	rs1.open sql1,conn, 1,1
		set rrs1 = server.createobject("adodb.recordset")
        ssql1 = "select * from mp_authorized "&condition&" and sort='干部'"
        rrs1.open ssql1,conn, 1,1
	  if rrs1.bof or rrs1.eof then
	gbauthorized=0
	else gbauthorized=rs1(0)
	end if
	%> 

<%
   '取得记录条数
    'rsort=request("sort")
	set rs2 = server.createobject("adodb.recordset")
        sql2 = "select sum(authorized) from mp_authorized "&condition&" and sort='战士'"
        rs2.open sql2,conn, 1,1
		
	set rrs = server.createobject("adodb.recordset")
        ssql = "select * from mp_authorized "&condition&" and sort='战士'"
        rrs.open ssql,conn, 1,1
		
    if rrs.bof or rrs.eof then
	 zsauthorized=0
	else zsauthorized=rs2(0)
	end if
	
	%> 
 <%
 '取得记录条数
    'rsort=request("sort")
	set rs3 = server.createobject("adodb.recordset")
        sql3 = "select  sum(nownum) from mp_authorized "&condition&" and sort='干部'"
		'response.write(sql1)
	 'response.end()
	rs3.open sql3,conn, 1,1
		set rrs2 = server.createobject("adodb.recordset")
        ssql2 = "select * from mp_authorized "&condition&" and sort='干部'"
        rrs2.open ssql2,conn, 1,1
	  if rrs2.bof or rrs2.eof then
	gbnownum=0
	else gbnownum=rs3(0)
	end if
	%> 
<%
   '取得记录条数
    'rsort=request("sort")
	set rs4 = server.createobject("adodb.recordset")
        sql4 = "select sum(nownum) from mp_authorized "&condition&" and sort='战士'"
		'response.write(sql3)
	 'response.end()
	rs4.open sql4,conn, 1,1
		set rrs3 = server.createobject("adodb.recordset")
        ssql3 = "select * from mp_authorized "&condition&" and sort='战士'"
        rrs3.open ssql3,conn, 1,1
		
    if rrs3.bof or rrs3.eof then
	 zsnownum=0
	else zsnownum=rs4(0)
	end if
	%> 
<%
   '取得记录条数
    'rsort=request("sort")
	set rs5 = server.createobject("adodb.recordset")
        sql5 = "select count(*) from mp_ersonnel "&condition&" and sort='干部'"
		'response.write(sql3)
	 'response.end()
	rs5.open sql5,conn, 1,1
	%>

 <%
   '取得记录条数
    'rsort=request("sort")
	set rs6 = server.createobject("adodb.recordset")
        sql6 = "select count(*) from mp_ersonnel "&condition&" and sort='战士'"
		
	rs6.open sql6,conn, 1,1
	%>
 

 <TR bgColor="#567D30">
    <TD width="155" height="25" align=center valign="middle" noWrap><%=gbauthorized%>&nbsp;</TD>
    <TD width="155" height="25" align=center valign="middle" noWrap><%=gbnownum%></TD>
    <TD width="155" height="25" align=center valign="middle" noWrap><%=rs5(0)%></TD>
    <TD width="155" height="25" align=center valign="middle" noWrap>干部</TD>
    <TD width="50"  height="25" align="center" valign="middle" noWrap><a href='modify2.asp?sort=干部'target="_self" >修改</a></td>
    <TD width="50"  height="25" align="center" valign="middle" noWrap><a href='javascript:confirmDel("干部")'>删除</a></td>
</tr>

<TR bgColor="#567D30">
    <TD width="155" height="25" align=center valign="middle" noWrap><%=zsauthorized%></TD>
    <TD width="155" height="25" align=center valign="middle" noWrap><%=zsnownum%></TD>
    <TD width="155" height="25" align=center valign="middle" noWrap><%=rs6(0)%></TD>
    <TD width="155" height="25" align=center valign="middle" noWrap>战士</TD>
    <TD width="50"  height="25" align="center" valign="middle" noWrap><a href='modify2.asp?sort=战士' target="_self" >修改</a></td>
    <TD width="50"  height="25" align="center" valign="middle" noWrap><a href='javascript:confirmDel("战士")'>删除</a></td>
</tr>

</table>
</body>
</html>
⌨️ 快捷键说明

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