📄 ceshi4.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.a10.value.length<1)
{
alert("单价不能为空，不填的请填写'0'!");
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="ceshi2.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="296">
<tr>
<td width="566" height="33" bgcolor="#333399" colspan="4">
<p align="center"><font color="#FFFFFF"><span lang="zh-cn">入库受理子系统</span>Ver1.0</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"> 材料名称</span></td>
<td width="480" height="30" colspan="3"><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
'set rs = nothing
%>
</select> </span>*<span lang="zh-cn">格式为：<font color="#FF00FF">材料名称</font>|<font color="#FF00FF">材料型号</font>|<font color="#FF00FF">材料单位</font></span></td>
</tr>
<tr>
<td width="77" height="30" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料编号</span></td>
<td width="480" height="30" colspan="3"><span lang="zh-cn"> <input type="text" name="a4" size="38"> </span></td>
</tr>
<tr>
<td width="77" height="30" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料数量</span></td>
<td width="200" height="30"><span lang="zh-cn"> <input type="text" name="a6" size="15"></span></td>
<td width="79" height="30" bgcolor="#F7FFEE"><span lang="zh-cn"> 单价</span></td>
<td width="196" height="30"><span lang="zh-cn"> <input type="text" name="a10" size="23"> </span></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="31" bgcolor="#F7FFEE"><span lang="zh-cn">
存放地点</span></td>
<td width="200" height="31"><span lang="zh-cn">
<select size="1" name="a7"><% do while not rs.eof%>
<option><%=trim(rs("仓库名称"))%></option><%
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%>
</select></span></td>
<td width="79" height="31" bgcolor="#F7FFEE"><span lang="zh-cn"> 材料来源</span></td>
<td width="201" height="31"><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="200" height="31"><span lang="zh-cn"> <input type="text" name="a9" size="23" value="无"></span></td>
<td width="79" 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="31" 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>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -