bookingdel.asp

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

<%@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/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

Function Successed()
  Response.write "<script language='javascript'>" &Chr(13)
  Response.write "alert('删除成功!');" &Chr(13)
  Response.write "location = 'RegQuery.asp'"&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
    Set RegCmd = Server.CreateObject("ADODB.Command")
	RegCmd.ActiveConnection = Conn
	'检查预约情况!
	SQLStr = "Select DiagDate 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
	  '如果就诊日期是今天或今天以前!
	  If RS("DiagDate") <= Date() Then
	    OutputMsg("删除失败!")
		GoBack()
	  Else
	    SQLStr = "Delete * From [Registration] Where ID="&Request.QueryString("RegID")
        RegCmd.CommandText = SQLStr
        RegCmd.Execute
		Successed()
	  End If
	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 = 'Expert.asp'"&Chr(13)
  Response.write "</script>" &Chr(13)
  Response.end
End IF
%>