wnp_zcdelete.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<%
pagename="WNP_ZCDELETE.ASP"
%>
<LINK href="JS/styles.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="JS/basal.js"></SCRIPT>
<META content="MSHTML 6.00.2800.1522" name=GENERATOR>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<SCRIPT language=javascript src="JS/Keane_Common.js"></SCRIPT>
<SCRIPT language=javascript>
  function sendit(thisForm) { 
 var Empty=false

 if (thisForm.qymc.value.length<6) {
alert("请您填好你的单位名称！");
document.thisForm.qymc.focus();
 return (false);
 }

 if (thisForm.yhmm.value.length<8) {
alert("请您填好用户密码，密码最少为8位！");
document.thisForm.yhmm.focus();
 return (false);
 }

 if (thisForm.sshy.value=="") {
alert("请您选择好所属行业！");
thisForm.sshy.focus();
  return (false);
 }

 if (thisForm.qyxz.value=="") {
alert("请您选择好单位性质！");
thisForm.qyxz.focus();
  return (false);
 }

 if (thisForm.Province.value=="") {
alert("请您选择好单位所在行政区划！");
thisForm.Province.focus();
  return (false);
 }
 
 if (thisForm.txdz.value.length<4) {
alert("请您填好通讯地址！");
document.thisForm.txdz.focus();
 return (false);
 }
        var filter1=/^\s*[.0-9_-]{6,6}\s*$/;
        if (!filter1.test(document.thisForm.yzbm.value)) { 
                alert("请您填好邮政编码，必须是6位数字！"); 
                document.thisForm.yzbm.focus();
                return false; 
                } 
 if (thisForm.zyfzr.value=="")  {
alert("请您填好主要负责人！");
document.thisForm.zyfzr.focus();
 return (false);
 }

 if (thisForm.bgdh.value.length<9) {
alert("请您填好办公电话（注明区号）！");
document.thisForm.bgdh.focus();
 return (false);
 }
 
  if (thisForm.zzdh.value.length<9) {
alert("请您填好住宅电话（注明区号）！");
document.thisForm.zzdh.focus();
 return (false);
 }
 
  if (thisForm.yddh.value.length<11) {
alert("请您填好移动电话（手机）！");
document.thisForm.yddh.focus();
 return (false);
 }
 
    if (thisForm.txlb.value.length<10) {
alert("请您认真填写通讯列表！");
thisForm.txlb.focus();
  return (false);
 }
     var pattern = /^([a-zA-Z0-9_-])+(\.([a-zA-Z0-9_-])+)*@([a-zA-Z0-9_-])+(\.([a-zA-Z0-9_-])+)+$/;
        var filter1=/^\s*[.0-9_-]{6,6}\s*$/;
        if (!pattern.test(document.thisForm.email.value)) { 
                alert("请您填好电子邮件！"); 
                document.thisForm.email.focus();
                return false; 
                } 
  return (true);
}
</SCRIPT>
<!--以下检查电话号码输入是否为数字//-->
<SCRIPT>
	function regInput(obj, reg, inputStr)
	{
		var docSel	= document.selection.createRange()
		if (docSel.parentElement().tagName != "INPUT")	return false
		oSel = docSel.duplicate()
		oSel.text = ""
		var srcRange	= obj.createTextRange()
		oSel.setEndPoint("StartToStart", srcRange)
		var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
		return reg.test(str)
	}
</SCRIPT>
<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 bgColor=#fdfaf4 borderColorDark=#ffffff border=1 cellspacing=0 cellpadding=0 align=center width=760  bordercolorlight=#999999 class=textmost>
  <tr align="center" valign="bottom" class="texttitle">
    <td width="60" height="30"><div align="center">单位序号</div></td>
    <td>单位名称</td>
    <td>单位编码</td>
    <td>所属行业</td>
    <td>行政区划</td>
    <td>注册资金</td>
    <td>雇员人数</td>
    <td>办公电话</td>
    <td>移动电话</td>
    <td>确认删除</td>
  </tr>
 <%
 dim action
 action=request("action")
 if action="delete" then
      dim qyid
	  qyid=request("qyid")
	  sql="select * from WNT_USER where WND_USER_UNITID="&qyid
	  rssub.open sql,conn,1,1
	  if not rssub.eof then
	  rssub.close
      response.Write "<script language=javascript>alert('该单位用户不为空，不能删除！');location.href='WNP_ZCDELETE.ASP';</script>"
	  else
     tableName="WNT_UNIT"
     fieldName="WND_UNIT_Order"
     fieldId="WND_UNIT_ID"
     recordId=request("qyid")
     call delOrder(tableName,fieldName,fieldId,recordId)
	  sql="delete from WNT_UNIT where WND_UNIT_ID="&qyid
	  conn.execute(sql)
	  rssub.close
	  end if
 end if
%>
<!--#include file="WNP_UNIT_SQL.ASP" -->
<%
do while not rs.eof and c<MaxPerPage
%>
  <tr align="center" valign="bottom" class="textmost">
    <td height="25"><%=rs("WND_UNIT_Order")%></td>
    <td><%=rs("WND_UNIT_UN")%></td>
    <td><%=rs("UNIT_BM")%>&nbsp;</td>
    <td><%=rs("WND_UNIT_RP")%>&nbsp;</td>
    <td><%=rs("WND_UNIT_Province")%>&nbsp;</td>
    <td><%
	if rs("WND_UNIT_RF")<>"" then
	response.Write rs("WND_UNIT_RF")
	else
	response.Write "&nbsp;"
	end if
	%>
    &nbsp;</td>
    <td><%
	if rs("WND_UNIT_EP")<>"" then
	response.Write rs("WND_UNIT_EP")
	else
	response.Write "&nbsp;"
	end if
	%>
    &nbsp;</td>
    <td><%=rs("WND_UNIT_OT")%>&nbsp;</td>
    <td><%=rs("WND_UNIT_CT")%>&nbsp;</td>
    <td>    <input name="Submit" type="submit" class="newSubmit" onClick="if(confirm('确定删除？')){location.href='WNP_ZCDELETE.ASP?action=delete&qyid='+<%=rs("WND_UNIT_ID")%>;} else return false;" value="删 除"></td>
  </tr>
  <%
  rs.movenext
   c=c+1
  loop
  rs.close
  %>
</table>
<!--#include file="WNP_PAGEEND.ASP" -->
</BODY></HTML>
<%
call closedb
%>