delete1.asp

ASP+SQL Server动态网站开发从基础到实践教程

<!--#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"
%>