delbbsuser.asp

来自「7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。」· ASP 代码 · 共 22 行

<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	else
%>
<!--#include file="conn.asp"-->
<%

    dim rs,sql
    set rs=server.CreateObject ("ADODB.Recordset") 

rs.open "Select * from sheet where id="&request("id") ,conn,2,3  
rs.delete  
Response.Write "<script>window.alert('会员删除成功！');window.location='bbsuser.asp';</script>"     
	end if
  end if
%>