deleuser.asp

来自「快狗即时通讯软件源码V2007 纪念版」· ASP 代码 · 共 40 行

<%response.expires=0%>
<%
if session("0382")="" then
    Response.Write("登录信息过期, 请重新登录!")
	response.end
end if
%>
<!--#include file="conn.asp"-->
<%
id=request("id")
if id="" then
	conn.close
	set conn=nothing
	response.write("<script language='javascript'>")
	response.write("alert('数据传送出错，请返回重试！');")
	response.write("history.go(-1);")
	response.write("</script>")
	response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from userinfo where id="&id,conn,3,2
if rs.bof or rs.eof then
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	response.write("<script language='javascript'>")
	response.write("alert('该站点已经被删除！');")
	response.write("history.go(-1);")
	response.write("</script>")
	response.end
else
	rs.delete
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	response.redirect "dispuser.asp"
end if	
%>