⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 chukushenqingold.asp

📁 网佳网络办公系统(以下简称OA)是一套基于B/S模式的无纸化办公系统。[显著特点:无须安装客户端] 主要功能模块:管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个
💻 ASP
字号:
<%'if session("ljl_grad")=2 then response.redirect "index.asp"%>
<!--#include file="bkconn.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="normal.css">
<title><%=system%></title>
<script language="javascript">
function reg()
{
  if(document.UserReg.a4.value.length<1)
 {
   alert("请填写领料用途!");
   return ;
 }
    if(document.UserReg.a6.value.length<1)
 {
   alert("无效材料数量,领料要先从材料名称1中选择,并填写其领料数量!");
   return ;
 }
   if(document.UserReg.a8.value.length<1)
 {
   alert("请填写领料人");
   return ;
 }
    if(document.UserReg.lingliaodanwei.value.length<1)
 {
   alert("领料单位不能为空!");
   return ;
 }

 if(document.UserReg.a9.value.length<1)
 {
   alert("备注信息不能为空,不填的请填写'无'!");
   return ;
 }
 document.UserReg.submit();
}
</script>

</head>

<body>
<!--#include file="../top.asp"-->


<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="92%" id="AutoNumber3" height="108">
    <tr>
      <td width="14%" height="108" valign="top"> <!--#include file="left.asp"--></td>
      <td width="86%" height="108"><form method="POST" action="chukusave.asp" name="UserReg">
  <div align="center">
    <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="568" id="AutoNumber1" height="303">
    <tr>
      <td width="566" height="23" bgcolor="#8AB6F6" colspan="4">
      <p align="center"><font color="#FFFFFF"><span lang="zh-cn">出库受理子系统--</span>&gt;<span lang="zh-cn">领料申请</span></font></td>
    </tr>
    <tr>
    <%set rs=server.createobject("adodb.recordset")
        sql = "select * from 材料分类"
        rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加材料分类。"
	response.end
	else
%>

      <td width="77" height="30" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称1</span></td>
      <td width="359" height="30"><span lang="zh-cn"> <select size="1" name="a1"><% do while not rs.eof%>
      <option><%=trim(rs("材料名称"))%>|<%=trim(rs("材料型号"))%>|<%=trim(rs("材料单位"))%></option><%
        rs.movenext
        loop
      'end if
      'rs.close
      rs.movefirst 
%>

      </select>&nbsp;</span></td>
      <td width="51" height="30" bgcolor="#F7FFEE">
      <p align="center"><span lang="zh-cn">数量</span></td>
      <td width="69" height="30"><span lang="zh-cn">&nbsp;<input type="text" name="a6" size="4"></span></td>
    </tr>
    <tr>
      <td width="77" height="30" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称2</span></td>
      <td width="363" height="30"><span lang="zh-cn">&nbsp;</span> <span lang="zh-cn">
      <select size="1" name="cailiao2"><% do while not rs.eof%>
      <option><%=trim(rs("材料名称"))%>|<%=trim(rs("材料型号"))%>|<%=trim(rs("材料单位"))%></option><%
        rs.movenext
        loop
      'end if
      'rs.close
      rs.movefirst 
%>

      </select></span></td>
      <td width="50" height="30" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
      <td width="67" height="30"><span lang="zh-cn">&nbsp;<input type="text" name="shuliang2" size="4"></span></td>
    </tr>
    <tr>
      <td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn">&nbsp; 
      材料名称3</span></td>
      <td width="363" height="31"><span lang="zh-cn">&nbsp;</span> <span lang="zh-cn">
      <select size="1" name="cailiao3"><% do while not rs.eof%>
      <option><%=trim(rs("材料名称"))%>|<%=trim(rs("材料型号"))%>|<%=trim(rs("材料单位"))%></option><%
        rs.movenext
        loop
      'end if
      'rs.close
      rs.movefirst 
%>

      </select></span></td>
      <td width="50" height="31" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
      <td width="67" height="31"><span lang="zh-cn">&nbsp;<input type="text" name="shuliang3" size="4"></span></td>
    </tr>
    <tr>
      <td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn">&nbsp; 
      材料名称4</span></td>
      <td width="363" height="31"><span lang="zh-cn">&nbsp;</span> <span lang="zh-cn">
      <select size="1" name="cailiao4"><% do while not rs.eof%>
      <option><%=trim(rs("材料名称"))%>|<%=trim(rs("材料型号"))%>|<%=trim(rs("材料单位"))%></option><%
        rs.movenext
        loop
      'end if
      'rs.close
      rs.movefirst 
%>

      </select></span></td>
      <td width="50" height="31" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
      <td width="67" height="31"><span lang="zh-cn">&nbsp;<input type="text" name="shuliang4" size="4"></span></td>
    </tr>
    <tr>
      <td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn">&nbsp; 
      材料名称5</span></td>
      <td width="363" height="31"><span lang="zh-cn">&nbsp;</span>
      <span lang="zh-cn"><select size="1" name="cailiao5"><% do while not rs.eof%>
      <option><%=trim(rs("材料名称"))%>|<%=trim(rs("材料型号"))%>|<%=trim(rs("材料单位"))%></option><%
        rs.movenext
        loop
      end if
      rs.close 
%>

      </select></span></td>
      <td width="50" height="31" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
      <td width="67" height="31"><span lang="zh-cn">&nbsp;<input type="text" name="shuliang5" size="4"></span></td>
    </tr>
    <tr>

      <td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn">&nbsp; 
      领料用途</span></td>
      <td width="480" height="31" colspan="3"><span lang="zh-cn">&nbsp; <input type="text" name="a4" size="49"></span></td>
    </tr>
    <tr>

      <td width="77" height="31" bgcolor="#F7FFEE">&nbsp; <span lang="zh-cn">领 料 
      人</span></td>
      <td width="364" height="31">&nbsp; <span lang="zh-cn">
      <input type="text" name="a8" size="23"></span></td>
      <td width="50" height="31" bgcolor="#F7FFEE"><span lang="zh-cn">领料单位</span></td>
      <td width="67" height="31"> <span lang="zh-cn">
      <input type="text" name="lingliaodanwei" size="8"></span></td>
      </tr>
    <tr>
      <td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn"> 备注信息</span></td>
      <td width="480" height="31" colspan="3"><span lang="zh-cn"> <input type="text" name="a9" size="49" value="无"></span></td>
    </tr>
    <tr>
      <td width="566" height="33" colspan="4">
      <p align="center"><span lang="zh-cn">
      <a title="保存本此录入的信息" href="javascript:reg()">提交申请</a>    <a title="重新录入信息" href="javascript:document.UserReg.reset()">取 消</a>     <font color="#FF0000"><a title="退出本模块" target="_top" href="jh.asp">退 出</a></font></span></td>
    </tr>
    </table>
    </center>
  </div>
</form>
</td>
    </tr>
  </table>
  </center>
</div>

  <div align="center">
    <center>

  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="92%" id="AutoNumber2" height="30">
    <tr>
      <td width="100%" height="30"><span lang="zh-cn"><font color="#FF0000">
      材料领用流程:</font><font color="#AAAAAA">1领料人申请--</font></span><font color="#AAAAAA">&gt;<span lang="zh-cn">2供应会计稽核</span>--&gt;<span lang="zh-cn">3分管领导签字</span>--&gt;<span lang="zh-cn">4供应部门盖章</span>--&gt;<span lang="zh-cn">5仓库领料<br>
      </span></font><span lang="zh-cn"><font color="#FF0000">提&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      示:</font><font color="#AAAAAA">材料名称显示的格式为:材料名称|材料型号|材料单位<br>
      </font></span><font color="#AAAAAA">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font>
      <font color="#0000FF"><span lang="zh-cn">
      先选择材料名称然后填写数量,不可以重复领一种材料,数量为空证明没领此材料。</span></font></td>
    </tr>
  </table>
  
    </center>
</div>
  
</body>

</html>

⌨️ 快捷键说明

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