delete1.asp

来自「基于ASP报表的设计与实现 基于ASP报表的设计与实现 基于ASP报表的设计与实」· ASP 代码 · 共 22 行

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

<%
if session("userid") = "" then  '权限验证
	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"
%>