📄 chukujihe.asp
字号:
<%
if Session("ljl_liujinlu")="" or Session("ljl_grad")="" then%>
<script language=vbscript>
MsgBox "错误：非法用户！"
location.href = "login.asp"
</script>
<%end if%>
<%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("无效材料数量!");
return ;
}
if(document.UserReg.a8.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="568" id="AutoNumber1" height="228">
<tr>
<td width="566" height="23" bgcolor="#333399" 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="19" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料名称</span></td>
<td width="480" height="19" colspan="3"><span lang="zh-cn"> <select size="1" name="a1"><% do while not rs.eof%>
<option><%=trim(rs("材料名称"))%></option><%
rs.movenext
loop
end if
rs.close
'set rs = nothing
'conn.Close
'set conn = nothing
'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
%>
</select> </span></td>
</tr>
<tr>
<td width="77" height="16" bgcolor="#F7FFEE"><span lang="zh-cn"> 规格型号</span></td>
<td width="195" height="16"><span lang="zh-cn"> <select size="1" name="a3"><% do while not rs.eof%>
<option><%=trim(rs("材料型号"))%></option><%
rs.movenext
loop
end if
rs.close
%>
</select></span></td>
<td width="84" height="16" bgcolor="#F7FFEE"><span lang="zh-cn"> 领料用途</span></td>
<td width="201" height="16"><span lang="zh-cn"> <input type="text" name="a4" size="23"></span></td>
</tr>
<tr>
<td width="77" height="20" bgcolor="#F7FFEE"><span lang="zh-cn"> 计量单位</span></td>
<td width="195" height="20"><span lang="zh-cn"> </span></td>
<td width="84" height="20" bgcolor="#F7FFEE"><span lang="zh-cn"> 领料数量</span></td>
<td width="201" height="20"><span lang="zh-cn"> <input type="text" name="a6" size="23"></span></td>
</tr>
<tr>
<td width="77" height="20" bgcolor="#F7FFEE"><span lang="zh-cn">
存放地点</span></td>
<td width="195" height="20"><span lang="zh-cn"> </span></td>
<td width="84" height="20" bgcolor="#F7FFEE"><span lang="zh-cn"> 领 料 人</span></td>
<td width="201" height="20"><span lang="zh-cn"> <input type="text" name="a8" size="23" value="无"></span></td>
</tr>
<tr>
<td width="77" height="31" bgcolor="#F7FFEE"><span lang="zh-cn"> 备注信息</span></td>
<td width="195" height="31"><span lang="zh-cn"> <input type="text" name="a9" size="23" value="无"></span></td>
<td width="84" height="31" bgcolor="#F7FFEE"><span lang="zh-cn"> 是否可用</span></td>
<td width="201" height="31"><span lang="zh-cn">
<input type="radio" name="a2" value="可用" checked>可用
<input type="radio" name="a2" value="暂存">暂存
<input type="radio" name="a2" value="报废">报废</span></td>
</tr>
<tr>
<td width="566" 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> <a title="浏览所有的撤消用户信息" href="index.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="74%" 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">><span lang="zh-cn">2供应会计稽核</span>--><span lang="zh-cn">3分管领导签字</span>--><span lang="zh-cn">4供应部门盖章</span>--><span lang="zh-cn">5仓库领料</span></font></td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -