admin_bookingdel.asp

医院专家挂号系统设计

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Function OutputMsg(StrOut)
  Response.write "<script language='javascript'>" &Chr(13)
  Response.write "alert('"&StrOut&"');" &Chr(13)
  Response.write "</script>" &Chr(13)
End Function

Function GoBack()
  Response.write "<script language='javascript'>" &Chr(13)
  Response.write "javascript:history.go(-1);"&Chr(13)
  Response.write "</script>" &Chr(13)
  Response.end
End Function

If Request.QueryString("Action") = "Del" Then
  If Request.QueryString("RegID")="" Then
	OutputMsg("参数有问题!")
	GoBack()
  Else
    '创建命令对象
	Dim RegCmd, SQLStr, RS, PatientID
    Set RegCmd = Server.CreateObject("ADODB.Command")
	RegCmd.ActiveConnection = Conn
	'检查预约情况!
	SQLStr = "Select DiagDate,PatientID From [Registration] Where ID="&Request.QueryString("RegID")
	RegCmd.CommandText = SQLStr
	Set RS = RegCmd.Execute
	'如果预约不存在!
	If RS.EOF And RS.BOF Then
	  OutputMsg("预约ID错误!")
	  GoBack1()
	Else
		PatientID = RS("PatientID")
    	SQLStr = "Delete * From [Registration] Where ID="&Request.QueryString("RegID")
        RegCmd.CommandText = SQLStr
        RegCmd.Execute
		Response.write "<script language='javascript'>" &Chr(13)
  		Response.write "alert('删除成功!');" &Chr(13)
		If Request.Form("Back") = "" Then
  			Response.write "location = 'Admin_RegQuery.asp?PatientID="&PatientID&"'"&Chr(13)
		Else
			Response.write "location = '"&Request.Form("Back")&"'"&Chr(13)
		End If
  		Response.write "</script>" &Chr(13)
  		Response.end
	End IF
	RegCmd.ActiveConnection.Close	
	RS.Close
	Set RS=Nothing
	Conn.Close
	Set Conn=Nothing
  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
%>