📄 day.asp
字号:
<!--#include file="conn.asp" -->
<%if request("act")<>"" and request("1")<>"" and request("2")<>"" and request("4")<>"" then
'定义session
session("1")=request("1")
session("2")=request("2")
session("4")=request("4")
if request("3")<>"" then
session("3")=request("3")
else
session("3")=""
end if
'增加做工记录
if request("j")<>"" then
j=request("j")
for i=1 to j
if request("4")<>"" then
if request(""&i&"gongren")="" then
' msg="填写不完整，请选择操作工人，您可以点<a href=javascript:history.back(-1);><font color=red>后退</font></a>修改表单。"
else
'检查是否有工号
set rs4=server.createobject("adodb.recordset")
sql="select * from men where mid like '"&request(""&i&"gongren")&"' "
rs4.open sql,conn,1,1
if rs4.eof or rs4.bof then
response.Write(""&request(""&i&"gid")&"填写错误，没有您输入的工号，您可以点<a href=javascript:history.back(-1);><font color=red>后退</font></a>修改表单。")
response.End()
end if
rs4.close
set rs=server.createobject("adodb.recordset")
sql="select * from daylu "
rs.open sql,conn,3,2
rs.addnew
rs("卡号")=request("1")
rs("货号")=request("3")
if request("3")<>"" then rs("型号")=request("2")
rs("数量")=request("4")
if request("riqi")<>"" then
rs("日期")=request("riqi")
else
rs("日期")=date()
end if
rs("工序")=request(""&i&"gongxu")
rs("工序号")=request(""&i&"gid")
rs("工号")=request(""&i&"gongren")
if request(""&i&"smoney")<>"" then
rs("工资")=request(""&i&"smoney")
gz=request(""&i&"smoney")
else
rs("工资")=request(""&i&"cankao")
gz=request(""&i&"cankao")
end if
rs("数量")=request("4")
rs("合计工资")=request("4")*gz
rs.update
rs.close
msg="录入已经提交"
end if
end if
next
i=i+1
response.Redirect("ok.asp")
response.End()
end if
'清空request 防止重复录入
'完成日路
end if%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFffff;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr>
<td> <div align="right">
<% If session("admin")<>"yes" Then
response.write("系统超时，您需要<font color=red><b>重新登陆</font></b>。 ")
response.end
Else %>
您现在处于管理状态。
<%end if%>
<strong><a href="javascript:self.location.reload();"><font color="#FF0000">刷新</font></a></strong>
</div></td>
</tr>
<tr>
<td valign="top"> <strong>工作日录：</strong><br> <br> <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td><div align="center"><strong><font color="#0000FF"><%= msg %> <%= msg2 %> </font><a href="db.asp"><font color="#FF0000">查看日报表</font></a>
<a href="ka.asp"></a> <a href="kamore.asp"><font color="#FF0000">工序卡详细做工</font></a>
</strong></div></td>
</tr>
</table>
<br> <table width="98%" border="0" cellpadding="2" cellspacing="2" class="front">
<tr>
<td valign="top"> <form name="form1" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>卡号：</td>
<td><input name="1" type="text" id="mid3" value="<%=session("1")%>"" size="10" maxlength="10"></td>
<td>货号：</td>
<td><input name="2" type="text" id="2" value="<%=session("2")%>"" size="10" maxlength="10"></td>
<td>型号：</td>
<td><input name="3" type="text" id="3" value="<%=session("3")%>"" size="10" maxlength="10"></td>
<td>数量：</td>
<td><input name="4" type="text" id="4" value="<%=session("4")%>"" size="10" maxlength="10"></td>
<td>日期：</td>
<td><input name="riqi" type="text" id="riqi" value="<%=date()%>"" size="10" maxlength="10"></td>
</tr>
</table>
<div align="center">
<hr size="1" noshade>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr valign="top" bgcolor="#EBEBEB">
<td><div align="center"><strong>工序</strong></div></td>
<td><div align="center"><strong>参考工资</strong></div></td>
<td><div align="center"><strong>操作工人（必须数字）</strong></div></td>
<td><div align="center"><strong>实际工资<br>
空则以参考工资为准</strong></div></td>
</tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from gongxu order by gid asc"
rs.open sql,conn,3,1
dim d,j
i=1
j=rs.recordcount
if rs.eof or rs.bof then
response.Write("还没有工序设置")
else
do while not rs.eof or rs.bof
%>
<tr bgcolor="#FFFFFF">
<td><strong><%=rs("gid")%>:</strong> <%=rs("name")%></td>
<td><%=rs("money")%>元/件
<input name="<%=i%>cankao" type="hidden" id="gid3" value="<%=rs("money")%>">
<input name="<%=i%>gid" type="hidden" id="gid4" value="<%=rs("gid")%>">
<input name="<%=i%>gongxu" type="hidden" id="<%=d%>gid" value="<%=rs("name")%>">
</td>
<td> <select " id="">
<option value="">参考</option>
<%set rs2=server.createobject("adodb.recordset")
sql="select * from men order by mid asc"
rs2.open sql,conn,3,1
if rs2.eof or rs2.bof then
else
do while not rs2.eof or rs2.bof
%>
<option value="<%=rs2("mid")%>"><%=rs2("mid")%><%=rs2("name")%></option>
<%rs2.movenext
loop
end if
rs2.close%>
</select>
（参考不用选）
<input name="<%=i%>gongren" type="text" value="" size="8" maxlength="8">
</td>
<td> <input name="<%=i%>smoney" type="text" id="mid233"
value="<%if session("2")<>"" then
set rs2=server.createobject("adodb.recordset")
sql="select * from huo where 工序号="&rs("gid")&""
rs2.open sql,conn,3,1
if rs2.eof or rs2.bof then
'response.Write("0")
jg=""
else
do while not rs2.eof
' '%"&request("key")&"%'
a=LCase(CStr(session("2")))
b=LCase(CStr(rs2("货号条件")))
w=InstrRev(a,b)
jg=""
if w>0 then
jg=rs2("单价")
' break
exit do
end if
rs2.movenext
loop%> <%=jg%>
<%
end if
rs2.close
end if%>" size="5" maxlength="15">
元/件 </td>
</tr>
<%
rs.movenext
i=i+1
loop
end if
rs.close%>
</table>
<input name="act" type="submit" id="act" value="添 加">
<%= ms %>
<input name="j" type="hidden" id="j" value="<%=j%>">
</div>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">提示：如果只填写工序卡提交后则只把工序卡写入。其它空缺项目不写入。同样，各工序不填写则不写入。</td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -