bookingadd.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/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 = 'Expert.asp'"&Chr(13)
  Response.write "</script>" &Chr(13)
  Response.end
End Function

If Request.QueryString("Action") = "Add" Then
  If Request.Form("ExpertID") = "" OR Request.Form("PatientID") = "" OR Request.Form("DiagDate") = "" OR Request.Form("APM") = "" Then
	OutputMsg("参数有问题!")
	GoBack()
  Else
    '添加预约记录----------------------------------------------------------------------------------------------------------------------------------------------------------
    '创建命令对象
	Dim RegCmd, SQLStr, RS
    Set RegCmd = Server.CreateObject("ADODB.Command")
	RegCmd.ActiveConnection = Conn
  	'查找客户在这个时间内的预约次数,防止重复预约
	SQLStr = "Select ID From [Registration] Where PatientID="&Request.Form("PatientID")&" And DiagDate=#"&Request.Form("DiagDate")&"# And APM="&Request.Form("APM")
	RegCmd.CommandText = SQLStr
	Set RS = RegCmd.Execute
	If RS.EOF And RS.BOF Then
	  SQLStr = "Insert Into [Registration] (ExpertID,PatientID,DiagDate,APM) Values ("&Request.Form("ExpertID")&","&Request.Form("PatientID")&",'"&Request.Form("DiagDate")&"',"&Request.Form("APM")&")"
      RegCmd.CommandText = SQLStr
      RegCmd.Execute
	  Successed()
	Else
	  OutputMsg("重复预约!")
	  GoBack()
	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
%>