change_neiqian.asp

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

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
id=request.form("id")
if not isnumeric(id) or id="" then
response.redirect"neiqian.asp"
response.end
end if
zanfu=request.form("zanfu")
if zanfu="" then
fukuan="已付"
Sql="update ChuKu Set fukuan='"&fukuan&"' where id="&id
Conn.execute(Sql)
response.write"<script language=javascript>alert('结算成功！');location.href='neiqian.asp';</script>"
else
fukuan="未付清"
Set rs=Server.createobject("adodb.recordset")
Sqlstr="select * from ChuKu where id="&id
rs.open sqlstr,conn,1,1
twozanfu=rs("zanfu")+zanfu
rs.close
Sql="update ChuKu Set fukuan='"&fukuan&"',zanfu='"&twozanfu&"' where id="&id
Conn.execute(sql)
response.write"<script languag=javascript>alert('结算部份成功！');location.href='neiqian.asp';</script>"
end if
%>