wnp_zc_add.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=javascript>
function sendit(thisForm) { 
 if (thisForm.unitOrder.value=="") {
alert("请正确填写序号!");
document.thisForm.unitOrder.focus();
 return (false);
 }
 if (thisForm.dwbm01.value=="") {
alert("请正确填写单位编码!");
document.thisForm.dwbm01.focus();
 return (false);
 }
 if (thisForm.qymc.value.length<2) {
alert("请正确填写单位名称!");
document.thisForm.qymc.focus();
 return (false);
 }
  return (true);
 }
</SCRIPT>
<%
pagename="WNP_ZC_ADD.ASP"
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50" 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>
<FORM name="thisForm" onsubmit="return sendit(this)" action="WNP_ZCCL.ASP?action=add"  method=post>
    <TBODY>
    <INPUT type=hidden value=179241 name=id>
    <TR align=center>
      <TD height=30 bgColor=#fffae8>序号：</TD>
      <TD>          <FONT color=red>
        <%
		  sql="select max(WND_UNIT_Order) as maxOrder from WNT_UNIT"
		  rs.open sql,conn,1,1
		  tempOrder1 = rs("maxOrder")+1
		  rs.close
		  %>
        <input name="unitOrder" type="text" class="textInput1" id="unitOrder" value="<%=tempOrder1%>" size="4" maxlength="4">
*</FONT>
        <FONT color=red>&nbsp;      </FONT></TD>
      <TD bgColor=#fffae8>编码：</TD>
      <TD>
	  <%
	  unitLeftSameStep=session("UNIT_Jibie")*session("EveryStepNumber")
	  unitAllTempStep=(session("UNIT_Jibie")+1)*session("EveryStepNumber")
	  sql="select * from WNT_UNIT where left(UNIT_BM,"&unitLeftSameStep&")='"&session("UNIT_BM")&"' and Len(UNIT_BM)="&unitAllTempStep&" order by UNIT_BM desc"
	  rs.open sql,conn,1,1
	  if not rs.eof then
	    mynum=CStr(CInt(Right(rs("UNIT_BM"),session("EveryStepNumber")))+1)
	  end if
	  rs.close
	  for i=1 to session("EveryStepNumber")-len(mynum)
        mynum="0"+mynum
      next
	  %>
<INPUT name=dwbm01 class="textInput1" id="dwbm01" value="<%if mynum<>"" then response.Write(mynum) else response.Write(session("testStr01"))%>" size=18 maxlength="<%=session("EveryStepNumber")%>">
（<%=session("EveryStepNumber")%>位）
<FONT color=red>*</FONT> </TD>
      <TD bgColor=#fffae8>单位名称：</TD>
      <TD><FONT color=red>
        <INPUT name=qymc class="textInput1" id="qymc" 
      size=30 maxLength=30>
*</FONT> </TD>
    </TR>
    <TR bgcolor="#fdfaf4">
      <TD height="30" colspan="6" align=center><input name="Submit" type="submit" class="newSubmit" value="添  加">
      <INPUT name=Reset type=reset class="newSubmit" value="重  填"></TD>
    </TR>
</form>
</TABLE>