xiangmu_del.asp

来自「财务预算管理 财务支出」· ASP 代码 · 共 23 行

<!--#include file="sysconfig.asp"-->
<%
'黄华于2008年3月
%>
<%
dim ID,sql

ID=trim(Request("ID"))
if ID<>"" then
	'sql="delete from xiangmu where ID="&ID&""
	sql="update xiangmu set cost_delete=1 from xiangmu where id='" & id & "'"
	conn.Execute sql
	sql="update cost_jh set cost_delete=1 from cost_jh where xiangmu_id='" & id & "'"
	conn.Execute sql
	sql="update cost_detail set cost_delete=1 from detail where xiangmu_id='" & id & "'"
	conn.Execute sql
end if
call CloseConn()      
response.redirect "Class.asp"
%>