📄 kucun.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
ch
%>
<%
dim action
action = request("action")
if action = "add" then add
if action = "del" then del
if action = "upok" then upok
sub add()
key = request("id")
sqlstr = "select * from 库存数据"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.Filter = "编号 = '" &key& "'"
If not rs.EOF then
rs("库存") = CInt(rs("库存")) + CInt(trim(request.form("inn")))
rs.update
else
sqlstr = "select * from 库存数据"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.AddNew
rs("编号") = trim(request.form("name"))
rs("库存") = trim(request.form("inn"))
rs.update
end if
response.Redirect("kucun.asp")
end sub
sub del()
aid = request("id")
sqlstr = "select * from 库存数据 where 编号='"&aid&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
if CInt(rs("库存")) = 0 then
sqlstr = "delete from 库存数据 where 编号='"&aid&"'"
dbo.query(sqlstr)
else
response.Redirect("error.asp?errid=3")
end if
response.Redirect("kucun.asp")
end sub
sub upok()
id = request("id")
sqlstr = "select * from 库存数据 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs("下限") = trim(request.form("xiaxian"))
rs.update
response.Redirect("kucun.asp")
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td bgcolor="#76AFD6">药品管理 - <a href="product.asp">药品数据</a> - <a href="kucun.asp">库存管理</a> - <a href="yaopin.asp">药品查询</a></td>
</tr>
<tr>
<td bgcolor="#CEE2F0">
<%if action = "up" then
id = request("id")
sqlstr = "select * from 药品信息 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
%>
<form name="fn" method="post" action="kucun.asp?action=upok&id=<%=id%>" onSubmit="return xx()">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>药品：</td>
<td><input name="name" type="text" id="name" value="<%=rs("名称")%>" disabled></td>
<td>编号：</td>
<%
sqlstr = "select * from 库存数据 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
%>
<td><input name="sid" type="text" id="sid" value="<% =id %>" disabled></td>
</tr>
<tr>
<td>库存：</td>
<td><input name="kucun" type="text" id="kucun" value="<% =rs("库存") %>" disabled></td>
<td>下限：</td>
<td><input name="xiaxian" type="text" id="xiaxian" value="<% =rs("下限") %>">
(数字，且不为负)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="重置"></td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%else
id =request("id")%>
<form name="fn" method="post" action="kucun.asp?action=add&id=<%=id%>" onSubmit="return kc()">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>药品：</td>
<td><select name="name" id="name" onChange='javascript:changename(document.fn.name.value)' >
<% if action = "change" then
id =request("id")
response.Cookies("temp") = request("id")
sqlstr = "select * from 药品信息 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
%><option value="<% =rs("编号") %>" selected><% =rs("名称") %></option>
<%
else
end if%>
<option>==选择药品==</option><%
sqlstr = "select * from 药品信息"
dbo.getsql = sqlstr
set rs = dbo.getrs1()%>
<%
while not rs.eof
%>
<option value="<% =rs("编号") %>"><% =rs("名称") %></option>
<%
rs.movenext
wend
%>
</select></td>
<script language="javascript" type="text/javascript">
function changename(bbs)
{
window.location="kucun.asp?action=change&id="+bbs;
}
</script>
<td>编号：</td>
<%
id = request("id")
sqlstr = "select * from 库存数据 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs1 = dbo.getrs1()
%>
<td><input name="sid" type="text" id="sid" value="<% =id %>" disabled></td>
</tr>
<tr>
<td>库存：</td>
<td><input name="kucun" type="text" id="kucun" value="<% =rs1("库存") %>" disabled></td>
<td>下限：</td>
<td><input name="xiaxian" type="text" id="xiaxian" value="<% =rs1("下限") %>" disabled></td>
</tr>
<tr>
<td>入库：</td>
<td><input name="inn" type="text" id="inn">
(数字，且不为负)</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置"></td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%end if%>
</td>
</tr>
</table>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="100" bgcolor="#76AFD6"><div align="center">类型</div></td>
<td width="100" bgcolor="#76AFD6"><div align="center">编号</div></td>
<td width="150" bgcolor="#76AFD6"><div align="center">名称</div></td>
<td width="200" bgcolor="#76AFD6"><div align="center">厂家</div></td>
<td width="50" bgcolor="#76AFD6"><div align="center">库存</div></td>
<td width="50" bgcolor="#76AFD6"><div align="center">下限</div></td>
<td width="50" bgcolor="#76AFD6"><div align="center">编辑</div></td>
<td width="50" bgcolor="#76AFD6"><div align="center">删除</div></td>
</tr>
<%
sqlstr = "select * from 库存数据 order by 编号 desc"
dbo.getsql = sqlstr
dbo.pagesize = 25
set rs = dbo.Getrs()
for i=1 to dbo.pagesize
if not rs.eof then
sqlstr = "select * from 药品信息 where 编号='"&rs("编号")&"'"
dbo.getsql = sqlstr
set rs1 = dbo.Getrs()
response.write "<tr bgcolor=#CEE2F0><td>"&rs1("种类")&"</td><td>"&rs("编号")&"</td><td>"&rs1("名称")&"</td><td>"&rs1("厂家")&"</td><td>"&rs("库存")&"</td><td>"&rs("下限")&"</td><td><a href=kucun.asp?action=up&id="&rs("编号")&">Edit</a></td><td><a href=kucun.asp?action=del&id="&rs("编号")&">Delete</a></td></tr>"
rs.movenext
else
exit for
end if
next
response.write "</table>"
dbo.showpage()
%>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -