deluser.asp

来自「文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化」· ASP 代码 · 共 17 行

<!--#include file="articleconn.asp"-->
 <%
IF not(Session("KEY")="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
 <%
dim rs,tsql
dim rst
typename=request("typename")
	set rst=server.CreateObject("ADODB.RecordSet")
 if request("name")="del" then
			rst.open "delete * from admin where id="+request("id"),conn,1
			rst.close
	  end if 
response.redirect "usermanage.asp"%>