guikou_del.asp

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

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

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