📄 sale.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
ch
%>
<% if request.Cookies("level") = 3 then response.Redirect("fench.asp")
dim action,action1,j
action = request("action")
action1 = request("action1")
j = request("j")
if action = "mai" then mai
if action = "add" then add
if action = "del" then del
id =request("id")
response.Cookies("saleid") = id
saleid = request.Cookies("saleid")
sub add()
sqlstr = "select * from 购物车记录"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.Filter = "编号 = '" & trim(request.form("shopcar")) & "'"
if not rs.eof then
response.Redirect("error.asp?errid=4")
else
rs.AddNew
rs("编号") = trim(request.form("shopcar"))
rs("客户名") = trim(request.form("kehu"))
rs.update
end if
response.Redirect("sale.asp")
end sub
sub mai()
if CInt(trim(request.form("inn"))) > CInt(trim(request.cookies("bj"))) then
response.redirect("error.asp?errid=6")
else
sqlstr = "select * from shopcar"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs.AddNew
rs("客户") = request.Cookies("saleid")
rs("编号") = trim(request.form("sid"))
rs("数量") = trim(request.form("inn"))
rs.update
'更新库存
sqlstr = "select * from 库存数据 where 编号='"&trim(request.form("sid"))&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs("库存") = CInt(rs("库存")) - CInt(trim(request.form("inn")))
rs.update
Web = "sale.asp?action=detail&id="&request.Cookies("saleid")
response.write "<Script Language=JavaScript>location.href='"&Web&"'</Script>"
end if
end sub
sub del()
aid = request("delid")
sqlstr = "select * from shopcar where id="&aid
dbo.getsql = sqlstr
set rs2 = dbo.getrs1()
sqlstr = "select * from 库存数据 where 编号='"&rs2("编号")&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
rs("库存") = CInt(rs("库存")) + CInt(rs2("数量"))
rs.update
sqlstr = "delete from shopcar where id="&aid
dbo.query(sqlstr)
Web = "sale.asp?action=detail&id="&request.Cookies("saleid")
response.write "<Script Language=JavaScript>location.href='"&Web&"'</Script>"
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">
<style type="text/css">
<!--
.style2 {color: #FF0000}
-->
</style>
</head>
<body>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="4" cellspacing="1">
<%if request.Cookies("level") = 2 or request.Cookies("level") = 0 then%>
<tr>
<td bgcolor="#76AFD6">购销管理 - <a href="sale.asp">前台销售</a> - <a href="price.asp">结算管理</a> - 取药管理 </td>
</tr>
<%else%>
<tr>
<td bgcolor="#76AFD6">购销管理 - 前台销售 - 结算管理 - <a href="fench.asp">取药管理</a> </td>
</tr>
<%end if%>
<tr>
<td bgcolor="#CEE2F0"><form name="fn1" method="post" action="sale.asp?action=add" onSubmit="return kh()">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td>创建购物车： </td>
<td><input name="shopcar" type="text" id="shopcar" value="<%=year(now())%><%=month(now())%><%=day(now())%>00">
(手工编号)</td>
<td>客户：</td>
<td><input name="kehu" type="text" id="kehu"></td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%if action = "detail" then%>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td bgcolor="#76AFD6">销售开单(客户：<%=saleid%>)</td>
</tr>
<tr>
<td bgcolor="#CEE2F0"><form name="fn" method="post" action="sale.asp?action=mai" onSubmit="return sa()">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td>选择药品：</td>
<td>
<% if j = "2True" then%>
<select name="name" id="name" onChange='javascript:changename(document.fn.name.value)' disabled>
<% if action1 = "change" then
id1 =request("id1")
'response.Cookies("temp") = request("id")
sqlstr = "select * from 药品信息 where 编号='"&id1&"'"
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>
<%else%>
<select name="name" id="name" onChange='javascript:changename(document.fn.name.value)'>
<% if action1 = "change" then
id1 =request("id1")
'response.Cookies("temp") = request("id")
sqlstr = "select * from 药品信息 where 编号='"&id1&"'"
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>
<%end if%>
</td>
<script language="javascript" type="text/javascript">
function changename(bbs)
{
window.location="sale.asp?action=detail&id=<%=saleid%>&action1=change&id1="+bbs;
}
</script>
<%
sqlstr = "select * from 药品信息 where 编号='"&id1&"'"
dbo.getsql = sqlstr
set rs = dbo.getrs1()
sqlstr = "select * from 库存数据 where 编号='"&id1&"'"
dbo.getsql = sqlstr
set rs1 = dbo.getrs1()
%>
<td>编号：</td>
<td><input name="sid" type="text" id="sid" value="<%= rs("编号") %>"></td>
</tr>
<tr>
<td>购买数量：</td>
<td>
<% if j = "2True" then%>
<input name="inn" type="text" id="inn" disabled>
<%else%>
<input name="inn" type="text" id="inn">
<%end if
response.cookies("bj") = rs1("库存")-rs1("下限")%>
(可销售量：<%=request.cookies("bj")%>)</td>
<td>售价：</td>
<td><input name="price" type="text" id="price" value="<%=rs("售价") %>" disabled></td>
</tr>
<tr>
<td> </td>
<td> <% if j = "2True" then%>
<input type="submit" name="Submit2" value="购买" disabled>
<%else%>
<input type="submit" name="Submit2" value="购买">
<%end if%>
<input type="reset" name="Submit3" value="重置"></td>
<td> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
</table>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td bgcolor="#76AFD6">已经选购的药品</td>
<td width="50" bgcolor="#76AFD6"><div align="center">
<% if j = "2True" then%>
结 算
<%else%>
<a href="price.asp?action=detail&id=<%=request.Cookies("saleid")%>">结 算</a>
<%end if%></div></td>
</tr>
<%
sqlstr = "select * from shopcar where 客户='"&request.Cookies("saleid")&"' order by id 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><td bgcolor=#CEE2F0>数量<span class=style2> "&rs("数量")&" </span>"
sqlstr = "select * from 药品信息 where 编号='"&rs("编号")&"'"
dbo.getsql = sqlstr
set rs1 = dbo.Getrs()
response.write "的 <span class=style2>"&rs1("名称")&"</span></td><td bgcolor=#CEE2F0><div align=center>"
if j = "2True" then
response.write "删 除</div></td></tr>"
else
response.write "<a href=sale.asp?action=del&delid="&rs("id")&">删 除</a></div></td></tr>"
end if
rs.movenext
else
exit for
end if
next
response.write "</table>"
dbo.showpage()
%>
<%else%>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="150" bgcolor="#76AFD6">编 号</td>
<td width="300" bgcolor="#76AFD6">客 户</td>
<td width="150" bgcolor="#76AFD6">日 期</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><td width=150 bgcolor=#CEE2F0>"&rs("编号")&"</td><td width=300 bgcolor=#CEE2F0><a href=sale.asp?action=detail&id="&rs("编号")&"&j=2"&rs("结算")&">"&rs("客户名")&"</a></td><td width=150 bgcolor=#CEE2F0>"&rs("日期")&"</td></tr>"
rs.movenext
else
exit for
end if
next
response.write "</table>"
dbo.showpage()
%>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -