📄 kamore.asp
字号:
<!--#include file="conn.asp" -->
<%if request("delall")<>"" and request("delkid")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from daylu where 卡号 like '"&request("delkid")&"' "
rs.open sql,conn,1,3
if rs.eof or rs.bof then
else
do while not rs.eof or rs.bof
rs.delete
if not rs.eof or not rs.bof then rs.movenext
loop
%> <script language=VBScript>
msgbox "删除了！"
</script><%
end if
rs.close
end if%>
<%if request("act")="del" then
set rs=server.createobject("adodb.recordset")
sql="select * from daylu where id like '"&request("idd")&"' "
rs.open sql,conn,1,3
if rs.eof or rs.bof then
else%>
<script language=VBScript>
msgbox "删除了！"
</script>
<%
rs.delete
end if
rs.close
end if%>
<%if request("idm")<>"" and request("卡号")<>"" and request("工序号")<>"" and request("工资")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from daylu where id like'"&request("idm")&"'"
rs.open sql,conn,3,2
if rs.eof or rs.bof then
response.Write("error")
else
rs("卡号")=request("卡号")
rs("货号")=request("型号")
if request("型号")<>"" then
rs("型号")=request("货号")
else
rs("型号")=" "
end if
rs("工资")=request("工资")
rs("工序")=request("工序")
rs("工序号")=request("工序号")
rs("工号")=request("工号")
rs("数量")=request("数量")
rs("日期")=request("日期")
rs("时间")=time()
he=request("数量")*request("工资")
rs("合计工资")=he
rs.update
%>
<script language=VBScript>
msgbox "更新成功！"
</script>
<%
end if
rs.close
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="5" cellpadding="5">
<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> <strong>工序卡详细：</strong><%if request("kid")<>"" then%>
卡号<font color="#FF0000"><%=request("kid")%></font> <a href="?delkid=<%=request("kid")%>&delall=yes"><strong><font color="#FF0000">删除这个卡的所有记录</font></strong></a>
<%end if%><br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>
<form name="form2" method="post" action="">
<div align="right">工序卡号：
<input name="kid" type="text" id="kid">
<input name="s" type="submit" id="s" value="查询详细">
<a href="?"><font color="#FF0000">列出所有</font></a>
</div>
</form></td>
</tr>
</table>
<%set rs=server.createobject("adodb.recordset")
if request("kid")="" then
sql="select * from daylu order by 日期 desc"
else
sql="select * from daylu where 卡号 like "&request("kid")&" order by 日期 desc"
end if
rs.open sql,conn,3,2
if rs.eof or rs.bof then
gid=1
%>
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="front">
<tr>
<td><div align="center">目前还没有。</div></td>
</tr>
</table>
<%else
pgsize=8
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="front">
<tr>
<td bgcolor="#F2EADF" ><div align="left" class="gb4">现有记录：<font color="#FF0000"><%=rs.recordcount %></font>共<font color="#FF0000">
<%= pgnm %></font> 页，当前页：<font color="#0033FF"><%= page %> </font><a href=?page=1&kid=<%=request("kid")%>>第一页</a> <a href=?page=<%=pgnm%>&kid=<%=request("kid")%>>最后一页</a>
<a href=?page=<%=page+1%>&kid=<%=request("kid")%>>下一页</a>
<a href=?page=<%=page-1%>&kid=<%=request("kid")%>>上一页</a>
</div></td>
</tr>
</table><br>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="front">
<tr bgcolor="#E7E7E7">
<td><strong>记录号</strong></td>
<td><strong>工序</strong></td>
<td><strong>工号</strong></td>
<td><strong>单价</strong></td>
<td><strong>完成数量</strong></td>
<td><strong>卡号</strong></td>
<td><strong>货号</strong></td>
<td><strong>型号</strong></td>
<td><strong>录入时间</strong></td>
<td colspan="3"><strong>操作</strong></td>
</tr>
<% do while not rs.eof and count<rs.pagesize %>
<tr bgcolor="#FFFFFF">
<td> <div align="left"><%= rs("id") %></div></td>
<td><%= rs("工序") %></td>
<td><div align="left"><%= rs("工号") %></div></td>
<td><div align="left"><%=rs("工资") %></div></td>
<td><div align="left">
<% =rs("数量")%>
</div></td>
<td><%= rs("卡号") %></td>
<td><%= rs("型号") %></td>
<td><%= rs("货号") %></td>
<td><div align="left">
<% =rs("日期")%>
<% =rs("时间")%>
</div></td>
<td> <a href="?act=modi&idm=<%=rs("id")%>"><font color="#0000FF">修改</font></a> </td>
<td colspan="2"><a href="?act=del&idd=<%=rs("id")%>"><font color="#FF0000">删除</font></a></td>
</tr>
<%
if not rs.eof or not rs.bof then rs.movenext
count=count+1
loop
rs.movelast
end if
%>
<tr bgcolor="#FFFFFF">
<td colspan="12"> </td>
</tr>
</table>
<%if request("idm")<>"" then
set rs3=server.createobject("adodb.recordset")
sql="select * from daylu where id like "&request("idm")&""
rs3.open sql,conn,3,1
if rs3.eof or rs3.bof then
response.Write("没有此记录")
else%>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td> <form name="form1" method="post" action="">
<strong>修改记录：</strong><%= rs3("id") %><br>
<br>
工序：
<input name="工序号" disabled type="text" id="工序号" value="<%=rs3("工序号")%>" size="8" maxlength="8">
工号：
<input name="工号" type="text" id="工号" value="<%=rs3("工号")%>" size="8" maxlength="8">
单价：
<input name="工资" type="text" id="工资2" value="<%=rs3("工资")%>" size="8" maxlength="8">
完成量：
<input name="数量" type="text" id="数量2" value="<%=rs3("数量")%>" size="8" maxlength="8">
<br>
卡号：
<input name="卡号" type="text" id="卡号" value="<%=rs3("卡号")%>" size="8" maxlength="8">
货号：
<input name="货号" type="text" id="货号" value="<%=rs3("型号")%>" size="8" maxlength="8">
型号：
<input name="型号" type="text" id="型号" value="<%=rs3("货号")%>" size="8" maxlength="8">
日期：
<input name="日期" type="text" id="日期" value="<%=rs3("日期")%>" size="10" maxlength="10">
<input name="act" type="submit" id="act" value="更新">
<input name="idm" type="hidden" id="idm" value="<%=request("idm")%>">
<input name="工序" type="hidden" id="工序" value="<%=rs3("工序")%>">
<input name="工序号" type="hidden" id="工序号" value="<%=rs3("工序号")%>">
</form></td>
</tr>
</table>
<%
end if
rs3.close
end if%>
</td>
</tr>
</table>
</div>
</BODY>
</HTML> <% rs.close
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -