admin_admindel.asp

医院专家挂号系统设计

<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Dim AdminID
AdminID = Request.QueryString("ID")
If AdminID<>"" And IsNumeric(AdminID) Then
    '创建命令对象
	Dim RegCmd, SQLStr, RS
	
	SQLStr = "Select Count(*) From [Admin]"
	Dim Admin_Count
	Admin_Count = Conn.Execute(SQLStr)(0)
	If Admin_Count < 2 Then
		Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('至少要有一位管理员!');" &Chr(13)
		Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
   		Response.End
	End If
	
    Set RegCmd = Server.CreateObject("ADODB.Command")
	RegCmd.ActiveConnection = Conn
	

	SQLStr = "Select AdminName From [Admin] Where ID="&AdminID
	RegCmd.CommandText = SQLStr
	Set RS = RegCmd.Execute
	'如果不存在!
	If RS.EOF And RS.BOF Then
		Response.write "<script language='javascript'>" & chr(13)
		Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
   		Response.End
	Else
	    SQLStr = "Delete * From [Admin] Where ID="&AdminID
        RegCmd.CommandText = SQLStr
        RegCmd.Execute
		Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('删除成功!');" &Chr(13)
		Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
   		Response.End
	End IF
	RegCmd.ActiveConnection.Close	
	RS.Close
	Set RS=Nothing
	Conn.Close
	Set Conn=Nothing
Else
	Response.write "<script language='javascript'>" & chr(13)
	Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
	Response.write "</script>" & Chr(13)
   	Response.End
End If
%>