www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\del_word.asp

    <!--#INCLUDE FILE="conn.asp"-->
<%
	if session("level")<>"1" then
		Response.Write("你无权访问此页面！")
		Response.End
	end if	
%>
<%    
    id=trim(request("id"))
    err.clear
	set Rs=server.createobject("adodb.recordset")	
sql_str="delete * from word where id="&id
		Rs.Open sql_str,Conn,1,3
		if err<>0 then
		    Response.Write("删除失败，请返回请试！")
		    Response.End
		else
		    Response.Redirect("manage_word.asp")
		    Response.End 
		end if 

%>