saveuserdel.asp

来自「人民医院眼科全站」· ASP 代码 · 共 27 行

<!-- #include file="../include/bkconn.asp"-->
<!--#include file="checkUser.asp"-->
<!--#include file="test.asp"-->
<%
dim intId
dim sql
intId=Request("id")
set rs=server.createObject("adodb.recordset")
sql="select * from users"
rs.open sql,conn,1,1
if rs.recordCount<=1 then%>
	无法删除最后一个管理员。<br>
	<a href="Javascript:window.history.go(-1)">返回</a>
<%
	response.End
end if
sql="delete from users where id="&intId
'response.write sql
'response.End
conn.execute (sql)
%>
<script language=Javascript>
<!--
alert("删除成功！");
window.location="<%=session("adminoldUrl")%>"
//-->
</script>