book1.asp

来自「很不错的进销存系统, 本系统适用于轮胎经销使用」· ASP 代码 · 共 40 行

<!--#include file=conn.asp-->
<!--#include file=function.asp-->
<%
if request.form("submit")="确定添加" then
name=guolu(request.form("name"))
shiyou=guolu(request.form("shiyou"))
money=guolu(request.form("money"))
intime=guolu(request.form("intime"))
fangshi=request.form("fangshi")
if name="" or shiyou="" or money="" or intime="" or fangshi="" then
response.write"<script language=javascript>alert('至少有一项数据未填写，请全部填写谢谢！');location.href='book.asp';</script>"
response.end 
end if
Sql="insert into book (name,shiyou,[money],intime,fangshi) values ('"&name&"','"&shiyou&"','"&money&"','"&intime&"','"&fangshi&"')"
Conn.Execute(Sql)
response.write"<script language=javascript>alert('欠款添加成功！');location.href='book.asp';</script>"
end if

if request.form("submit")="确定" then
id=cint(request.form("id"))
if not isnumeric(id) or id="" then
response.end
end if
yifu=request.form("yifu")
Sql="update book Set yifu='"&yifu&"' where id="&id
Conn.Execute(Sql)
response.write"<script language=javascript>alert('结算成功！');location.href='book.asp';</script>"
end if

if request.form("submit")="作废" then
id=request.form("id")
if not isnumeric(id) or id="" then
response.end
end if
Sql="delete * from book where id="&id
Conn.Execute(Sql)
response.write"<script language=javascript>alert('删除成功！');location.href='book.asp';</script>"
end if

%>