user_del.asp

来自「建造工业系统所需的SQL源代码」· ASP 代码 · 共 33 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Conn/Conn.asp"-->
<%
If Request.QueryString("UID")<>"" Then
	Set rs=Server.CreateObject("ADODB.RecordSet")
	SQL="Select * From tb_Topic Where Author="&Request.QueryString("UID")
	rs.Open SQL,conn,1,3
	If Not(rs.Eof and rs.Bof) Then%>
		<script language="javascript">
		if(!confirm("该用户已经发帖，真的要删除该用户吗？")){
			window.location.href="User_Manage.asp";
		}
		</script>
	<%
	End If
		On Error Resume Next
		SQL="Delete From tb_User Where ID="&Request.QueryString("UID")
		Conn.Execute(SQL)
		If Err<>0 Then
	%>
			<script language="javascript">
				alert("用户删除失败！");
				window.location.href="index.asp";
			</script>
		<%Else%>
			<script language="javascript">
				alert("用户删除成功！");
				window.location.href="index.asp";
			</script>
		<%End If
End If
%>