wnp_uj_delete.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<%
pagename="WNP_UJ_DELETE.ASP"
%>
<%
dim action
action=request("action")
if action="delete" then
    call WNF_DELETEUJ
end if
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30" align="center" class="title1">&nbsp;</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#fdfaf4" class="FPtalbe">
              <tr>
                <td height="30" colspan="4">&nbsp;</td>
              </tr>
<!--#include file="WNP_UJ_SQL.ASP" -->
<%
do while not rs.eof
%>
              <tr>
                <td width="120" height="20">&nbsp;</td>
                <td colspan="3"><%
				kgsl=rs("WND_UJ_Step")
				for i=1 to kgsl
                  response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
				next
				if rs("WND_UJ_Step")<>1 then
                  response.Write "<img src='IMAGES/tree_line1.gif'>"
				end if
				response.Write rs("WND_UJ_UJ")&"......................................"
				%>
				 <input name="Submit" type="submit" class="newSubmit" onClick="if(confirm('确定删除？')){location.href='WNP_UJ_DELETE.ASP?action=delete&ujid='+<%=rs("WND_ID")%>+'&ujOrder='+<%=rs("WND_UJ_Order")%>;} else return false;" value="删除本项">               
</td>
              </tr>
<%
rs.movenext
newi=newi+1
loop
rs.close
%>
              <tr>
                <td height="30" colspan="4">&nbsp;</td>
              </tr>
</table>
</body>
</html>
<%
sub WNF_DELETEUJ      '删除权限函数
     dim ujid,ujuj
	 ujuj=request("ujuj")
	 ujid=request("ujid")
	 ujOrder=request("ujOrder")
	 sql="select * from WNT_AM where WND_AM_UJNUMBER="&ujid
	 rs.open sql,conn,1,1
	 if not (rs.eof and rs.bof) then
         rs.close
	     response.Write "<script language='javascript'>alert('该权限仍有用户在使用，不能删除！');location.href='WNP_UJ_DELETE.ASP';</script>"
     else
    	 rs.close
	     call delOrder("WNT_UJ","WND_UJ_Order","WND_ID",ujid)
         sql="select * from WNT_UJ where WND_ID="&ujid
    	 rs.open sql,conn,1,3
    	 if not rs.eof then
    	 rs.delete
    	 rs.update
    	 end if
    	 rs.close
		 response.Redirect("WNP_UJ_DELETE.ASP")
	 end if
end sub
%>
<%
call closedb
%>