📄 product.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() '添加
sqlstr = "select * from 药品信息"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.AddNew
rs("编号") = trim(request.form("sid"))
rs("名称") = trim(request.form("name"))
rs("售价") = trim(request.form("sap"))
rs("进价") = trim(request.form("inp"))
rs("种类") = trim(request.form("type"))
rs("厂家") = trim(request.form("changjia"))
rs.update
response.Redirect("product.asp")
end sub
sub del()
aid = request("id")
sqlstr = "select * from 库存数据 where 编号='"&aid&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
if not rs.eof then
response.Redirect("error.asp?errid=5")
else
sqlstr = "delete from 药品信息 where 编号='"&aid&"'"
dbo.query(sqlstr)
response.Redirect("product.asp")
end if
end sub
sub upok()
id = request("id")
sqlstr = "select * from 药品信息 where 编号='"&id&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs("编号") = trim(request.form("sid"))
rs("名称") = trim(request.form("name"))
rs("售价") = trim(request.form("sap"))
rs("进价") = trim(request.form("inp"))
rs("种类") = trim(request.form("type"))
rs("厂家") = trim(request.form("changjia"))
rs.update
response.Redirect("product.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="yaopincx.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="product.asp?action=upok&id=<%=rs("编号")%>" onSubmit="return product()">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>编号：</td>
<td><input name="sid" type="text" id="sid" value="<%=rs("编号")%>"></td>
<td>类型：</td>
<td><input name="type" type="text" id="type" value="<%=rs("种类")%>">
</td>
</tr>
<tr>
<td>名称：</td>
<td><input name="name" type="text" id="name" value="<%=rs("名称")%>"></td>
<td>厂家：</td>
<td><input name="changjia" type="text" id="changjia" value="<%=rs("厂家")%>"></td>
</tr>
<tr>
<td>进价：</td>
<td><input name="inp" type="text" id="inp" value="<%=rs("进价")%>">
(数字，且不为负)</td>
<td>售价：</td>
<td><input name="sap" type="text" id="sap" 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%>
<form name="fn" method="post" action="product.asp?action=add" onSubmit="return product()">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>编号：</td>
<td><input name="sid" type="text" id="sid"></td>
<td>类型：</td>
<td><input name="type" type="text" id="type"></td>
</tr>
<tr>
<td>名称：</td>
<td><input name="name" type="text" id="name"></td>
<td>厂家：</td>
<td><input name="changjia" type="text" id="changjia"></td>
</tr>
<tr>
<td>进价：</td>
<td><input name="inp" type="text" id="inp">
(数字，且不为负)</td>
<td>售价：</td>
<td><input name="sap" type="text" id="sap">
(数字，且不为负)</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
response.write "<tr bgcolor=#CEE2F0><td>"&rs("种类")&"</td><td>"&rs("编号")&"</td><td>"&rs("名称")&"</td><td>"&rs("厂家")&"</td><td>"&rs("进价")&"</td><td>"&rs("售价")&"</td><td><a href=product.asp?action=up&id="&rs("编号")&">Edit</a></td><td><a href=product.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 + -