📄 gongxub.asp
字号:
<!--#include file="conn.asp" -->
<%if request("act")="del" then
set rs=server.createobject("adodb.recordset")
sql="select * from huo 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("单价")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from huo 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("单价")
rs.update
%>
<script language=VBScript>
msgbox "更新成功！"
</script>
<%
end if
rs.close
end if%>
<%if request("工序号")<>"" and request("货号条件")<>"" and request("单价")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from huo where 工序号 like '"&request("工序号")&"' and 货号条件 like '"&request("货号条件")&"'"
rs.open sql,conn,3,2
if rs.eof or rs.bof then
rs.addnew
rs("工序号")=request("工序号")
rs("工序")=request("工序")
rs("货号条件")=request("货号条件")
rs("单价")=request("单价")
rs.update
%>
<script language=VBScript>
msgbox "增加成功！"
</script>
<%
else
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><br>
<br>
<%set rs=server.createobject("adodb.recordset")
sql="select * from gongxu order by gid asc"
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
%>
<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></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 colspan="2"><strong>操作</strong></td>
</tr>
<% do while not rs.eof %>
<tr bgcolor="#FFFFFF">
<td> <div align="left"><%= rs("gid") %></div></td>
<td><div align="left"><%= rs("name") %></div></td>
<td><div align="left"><%=rs("money") %></div></td>
<td><div align="left">
<%set rs2=server.createobject("adodb.recordset")
sql="select * from huo where 工序号 like "&rs("gid")&""
rs2.open sql,conn,3,2
if rs2.eof or rs2.bof then
else
do while not rs2.eof
response.Write(""&rs2("单价")&"<br>")
if not rs2.eof then rs2.movenext
loop
end if
rs2.close%>
</div></td>
<td><div align="left">
<%set rs2=server.createobject("adodb.recordset")
sql="select * from huo where 工序号 like "&rs("gid")&""
rs2.open sql,conn,3,2
if rs2.eof or rs2.bof then
else
do while not rs2.eof
response.Write(""&rs2("货号条件")&"<br>")
if not rs2.eof then rs2.movenext
loop
end if
rs2.close%>
</div></td>
<td> <%set rs2=server.createobject("adodb.recordset")
sql="select * from huo where 工序号 like "&rs("gid")&""
rs2.open sql,conn,3,2
if rs2.eof or rs2.bof then
%>
<%
else
do while not rs2.eof %> <a href="?act=modi&idm=<%=rs2("id")%>"><font color="#0000FF">修改</font></a> <a href="?act=del&idd=<%=rs2("id")%>"><font color="#FF0000">删除</font></a><br>
<%if not rs2.eof then rs2.movenext
loop
end if
rs2.close%> </td>
<td><a href="?act=add&%B9%A4%D0%F2=<%=rs("name")%>&%B9%A4%D0%F2%BA%C5=<%=rs("gid")%>"><font color="#33CC00">添加</font></a></td>
</tr>
<%
if not rs.eof or not rs.bof then rs.movenext
loop
rs.movelast
end if
%>
<tr bgcolor="#FFFFFF">
<td colspan="7">提示：条件为空则采用用参考单价，条件指的是包含条件字符就采用条件单价，无条件则采用参考单价。</td>
</tr>
</table>
<%if request("idm")<>"" then
set rs3=server.createobject("adodb.recordset")
sql="select * from huo 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="">
工序号：
<input name="工序号" type="text" value="<%=rs3("工序号")%>" size="8" maxlength="8" disabled>
工序：
<input disabled name="工序" type="text" value="<%=rs3("工序")%>" size="8" maxlength="8">
条件：
<input name="货号条件" type="text" value="<%=rs3("货号条件")%>" size="8" maxlength="8">
单价：
<input name="单价" type="text" value="<%=rs3("单价")%>" size="6" maxlength="8">
<input name="act" type="submit" id="act" value="更新">
<input name="idm" type="hidden" id="idm" value="<%=request("idm")%>">
</form></td>
</tr>
</table>
<%
end if
rs3.close
end if%>
<%if request("act")="add" then %>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td> <form name="form1" method="post" action="">
工序号：
<input name="工序号" type="text" disabled id="工序号" value="<%=request("工序号")%>" size="8" maxlength="8">
工序：
<input name="工序" type="text" disabled id="工序" value="<%=request("工序")%>" size="8" maxlength="8">
条件：
<input name="货号条件" type="text" id="货号条件" size="8" maxlength="8">
单价：
<input name="单价" type="text" id="单价" size="6" maxlength="8">
<input name="act2" type="submit" id="act2" value="增加">
<input name="工序" type="hidden" id="工序" value="<%=request("工序")%>">
<input name="工序号" type="hidden" id="工序号" value="<%=request("工序号")%>">
</form></td>
</tr>
</table>
<%
end if%>
<br>
</td>
</tr>
</table>
</div>
</BODY>
</HTML> <% rs.close
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -