admin_expertdel.asp

来自「医院专家挂号系统设计」· ASP 代码 · 共 37 行

<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Dim IDToDel
IDToDel = Request.Form("IDToDel")
If IDToDel<>"" And IsNumeric(IDToDel) Then
	Dim RS
	Set RS = Conn.Execute("Select * From [Expert] Where ID="&IDToDel)
	If Not RS.EOF And Not RS.BOF Then
		RS.Close
		'删除他的所有记录
		Conn.Execute("Delete * From [Registration] Where ExpertID="&IDToDel)
		'删除专家
		Conn.Execute("Delete * From [Expert] Where ID="&IDToDel)
		Response.write "<script language='javascript'>" &Chr(13)
		Response.write "alert('专家已删除!');" &Chr(13)
		Response.write "location = 'Admin_Expert.asp'"&Chr(13)
		Response.write "</script>" &Chr(13)
  	Response.End 
	Else
		RS.Close
		Response.write "<script language='javascript'>" &Chr(13)
		Response.write "alert('专家不存在!');" &Chr(13)
		Response.write "location = 'Admin_Expert.asp'"&Chr(13)
		Response.write "</script>" &Chr(13)
  	Response.End 
	EnD If
Else
	Response.write "<script language='javascript'>" &Chr(13)
	Response.write "alert('参数错误!');" &Chr(13)
	Response.write "location = 'Admin_Expert.asp'"&Chr(13)
	Response.write "</script>" &Chr(13)
  Response.End 
End If
%>