📄 chukushenqing.asp
字号:
<%xian=session("xian")
ljl_xian=mid(xian,31,1)
if ljl_xian<>1 then%>
<script language=vbscript>
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%end if%>
<!--#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>
<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="538" id="AutoNumber1" height="226">
<tr>
<td width="564" height="23" bgcolor="#8AB6F6" colspan="4">
<p align="center"><font color="#FFFFFF"><span lang="zh-cn">出库受理子系统--</span>><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="13" bgcolor="#F7FFEE"> <span lang="zh-cn">材料名称1</span></td>
<td width="347" height="13"><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> </span></td>
<td width="63" height="13" bgcolor="#F7FFEE">
<p align="center"><span lang="zh-cn">数量</span></td>
<td width="67" height="13"><span lang="zh-cn"> <input type="text" name="a6" size="4"></span></td>
</tr>
<tr>
<td width="77" height="18" bgcolor="#F7FFEE"> <span lang="zh-cn">材料名称2</span></td>
<td width="351" height="18"><span lang="zh-cn"> </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="62" height="18" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
<td width="65" height="18"><span lang="zh-cn"> <input type="text" name="shuliang2" size="4"></span></td>
</tr>
<tr>
<td width="77" height="20" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称3</span></td>
<td width="351" height="20"><span lang="zh-cn"> </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="62" height="20" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
<td width="65" height="20"><span lang="zh-cn"> <input type="text" name="shuliang3" size="4"></span></td>
</tr>
<tr>
<td width="77" height="23" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称4</span></td>
<td width="351" height="23"><span lang="zh-cn"> </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="62" height="23" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
<td width="65" height="23"><span lang="zh-cn"> <input type="text" name="shuliang4" size="4"></span></td>
</tr>
<tr>
<td width="77" height="23" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称5</span></td>
<td width="351" height="23"><span lang="zh-cn"> </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="62" height="23" align="center" bgcolor="#F7FFEE"><span lang="zh-cn">数量</span></td>
<td width="65" height="23"><span lang="zh-cn"> <input type="text" name="shuliang5" size="4"></span></td>
</tr>
<tr>
<td width="77" height="11" bgcolor="#F7FFEE"><span lang="zh-cn"> 领料用途</span></td>
<td width="478" height="11" colspan="3"><span lang="zh-cn"> <input type="text" name="a4" size="49"></span></td>
</tr>
<tr>
<td width="77" height="14" bgcolor="#F7FFEE"> <span lang="zh-cn">领 料
人</span></td>
<td width="352" height="14"> <span lang="zh-cn">
<input type="text" name="a8" size="23" value="<%=session("hxf_u_nickname")%>"></span></td>
<td width="62" height="14" bgcolor="#F7FFEE"><span lang="zh-cn">领料单位</span></td>
<td width="65" height="14"> <span lang="zh-cn">
<input type="text" name="lingliaodanwei" size="8" value="<%=session("mypai")%>"></span></td>
</tr>
<tr>
<td width="77" height="19" bgcolor="#F7FFEE"> <span lang="zh-cn">备注信息</span></td>
<td width="478" height="19" colspan="3"><span lang="zh-cn"> <input type="text" name="a9" size="49" value="无"></span></td>
</tr>
<tr>
<td width="564" height="19" 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>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="536" id="AutoNumber2" height="30">
<tr>
<td width="534" height="30"><span lang="zh-cn"><font color="#FF0000">
材料领用流程：</font><font color="#AAAAAA">1领料人申请--</font></span><font color="#AAAAAA">><span lang="zh-cn">2供应会计稽核</span>--><span lang="zh-cn">3分管领导签字</span>--><span lang="zh-cn">4供应部门盖章</span>--><span lang="zh-cn">5仓库领料<br>
</span></font><span lang="zh-cn"><font color="#FF0000">提
示：</font><font color="#AAAAAA">材料名称显示的格式为：材料名称|材料型号|材料单位<br>
</font></span><font color="#AAAAAA"> </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 + -