wnp_user_delete_m.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<%
pagename="WNP_USER_DELETE.ASP"
%>


<table width="760" height="20" border="0" align="center" cellpadding="0" cellspacing="0" class="textmost">
  <form name="search" method="post" action="<%=pagename%>">
    <tr valign="bottom">
      <td height="15" colspan="6" align="center">&nbsp;</td>
    <tr valign="bottom" bgColor=#fdfaf4 borderColorDark=#ffffff border=1>
      <td width="85" height="20" align="center">查询：</td>
      <td width="183"><input name="key1" type="text" id="key1"></td>
      <td colspan="4" align="left" bgcolor="#fdfaf4"><input type="image" src="IMAGES/search.jpg"></td>
    <tr valign="bottom">
      <td height="15" colspan="6" align="center">&nbsp;</td>
  </form>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" align="center" class="title1">用户删除</td>
  </tr>
</table>
<table width="760" height="400" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
<!--#include file="WNP_USER_SQL_ML.ASP" -->
        <table bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
      <tr align="center" valign="bottom"  height="30"class="texttitle">
        <td width="60">用户序号</td>
        <td align="center">用户名</td>
        <td>单位名称</td>
        <td width="60">授权人ID</td>
        <td width="60">删除用户</td>
      </tr>
<%do while not rs.eof and c<MaxPerPage
 %>
      <tr  align="center" valign="bottom" class="textmost" height="20">
        <td><%=rs("WND_USER_Order")%></td><td><%=rs("WND_USER_USERNAME")%></td>
        <td><%
		sql="select WND_UNIT_UN from WNT_UNIT where WND_UNIT_ID="&rs("WND_USER_UNITID")
		rssub.open sql,conn,1,1
		response.Write rssub("WND_UNIT_UN")
		rssub.close
		%></td>
        <td><%=rs("WND_USER_WHO")%></td><td>
          <input name="Submit" type="submit" class="newSubmit" onClick="if(confirm('确定删除？')){location.href='WNP_USER_DELETE.ASP?action=delete&id='+<%=rs("WND_USER_ID")%>;} else return false;" value="删 除"></td>
      </tr>
<%rs.movenext
 c=c+1
  loop
  rs.close
%>
    </table>
<!--#include file="WNP_PAGEEND.ASP" -->
	</td>
  </tr>
</table>
</body>
</html>
<%
dim action
action=request("action")
if action="delete" then
  id=request("id")
  if CStr(session("USERID"))=CStr(id) then
	response.Write "<script language=javascript>alert('不能删除当前用户！');location.href(history.go(-1))</script>"
  else
     tableName="WNT_USER"
     fieldName="WND_USER_Order"
     fieldId="WND_USER_ID"
     recordId=request("id")
     call delOrder(tableName,fieldName,fieldId,recordId)
     sql="select * from WNT_USER where WND_USER_ID="&id
	 rs.open sql,conn,1,3
	 if not rs.eof then
	 rs.delete
	 rs.update
	 rs.close
     sql="delete from WNT_AM where WND_AM_USERID="&id
     conn.execute(sql)
	 end if
	 response.Redirect "WNP_USER_DELETE.ASP"
  end if
end if

%>
<%
call closedb
%>