<!--#include file="connection.asp"-->

<%
if session("userid") = "" then  '權(quán)限驗證
	Response.Redirect "login.htm"
end if
%>


<%
dim xtitle_id
xtitle_id = request("title_id")


conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
'刪除被選中的開支名目
rs.open "update titles set isactive = false where title_id = " & clng(xtitle_id),conn
'返回main.asp
Response.Redirect "main.asp?flag=deleted"
%>