regsearchtab.asp

医院专家挂号系统设计

<script LANGUAGE="JavaScript" SRC="../CheckForm.js"></script>
<%
Dim ENameRS, EOfficeRS
Set ENameRS = Conn.Execute("Select Name From [Expert] Order By ID Asc")
Set EOfficeRS = Conn.Execute("Select Office From [Expert] Group By Office")
%>
<table width="700" align="center" class="TableInfo">	
  <tr>
		<form name="Form_RegSearchByUser" method="Get" action="Admin_RegSearchByUser.asp" onSubmit="return CheckForm(this)">
    <td width="179" height="40" align="left">　按用户名查询:</td>
	  <td width="168" align="left"><input name="UserName" type="text" class="Input" check="^\S+$" warning="用户名不能为空,且不能含有空格"></td>
	  <td width="42" align="left"><input type="submit" class="Input" value="查询"></td>
		</form>
		<form name="Form_RegSearchByExpert" method="Get" action="Admin_RegSearchByExpert.asp" onSubmit="return CheckForm(this)">
    <td width="179" height="40" align="left">　按专家名查询:</td>
	  <td width="168" align="left">
	    <select name="ExpertName" width="20" >
			<%
			While Not ENameRS.EOF
			%>
	      <option><%=ENameRS("Name")%></option>
			<%
				ENameRS.MoveNext
			Wend
			%>
      </select>
		</td>
	  <td width="42" align="left"><input type="submit" class="Input" value="查询"></td>
		</form>
  </tr>
	<tr>
		<form name="Form_RegSearchByRegID" method="Get" action="Admin_RegSearchByRegID.asp" onSubmit="return CheckForm(this)">
	  <td width="101" align="left">　按预约号查询:</td>
	  <td width="168" align="left"><input name="RegID" type="text" class="Input" check="\d{1,}" warning="预约号不能为空，且必须是数字">	</td>
	  <td width="42" height="40" align="left"><input type="submit" value="查询" class="Input"></td>
		</form>

		<form name="Form_RegSearchByOffice" method="Get" action="Admin_RegSearchByOffice.asp" onSubmit="return CheckForm(this)">
	  <td width="101" align="left">　按科室查询:</td>
	  <td width="168" align="left">		<select name="Office" width="20" >
			<%
			While Not EOfficeRS.EOF
			%>
	      <option><%=EOfficeRS("Office")%></option>
			<%
				EOfficeRS.MoveNext
			Wend
			%>
      </select>
		</td>
	  <td width="42" height="40" align="left"><input type="submit" value="查询" class="Input"></td>
		</form>
  </tr>
  <tr>
		<form name="Form_RegSearchByRegDate" method="Get" action="Admin_RegSearchByRegDate.asp" onSubmit="return CheckForm(this)">
    <td width="179" height="40" align="left" valign="middle">　按预约日期查询:　从</td>
	  <td width="168" align="left"><input name="RegDateStart" type="text" class="Input" check="^\d{4}\-\d{1,2}-\d{1,2}$" warning="日期格式2005-4-12"></td>
	  <td colspan="2" align="center">&lt;----- 到 -----&gt;</td>
	  <td width="168" align="left"><input name="RegDateEnd" type="text" class="Input" check="^\d{4}\-\d{1,2}-\d{1,2}$" warning="日期格式2005-4-12"></td>
	  <td width="42" height="40" align="left"><input type="submit" value="查询" class="Input"></td>
		</form>
	</tr>
  <tr>
		<form name="Form_RegSearchByDiagDate" method="Get" action="Admin_RegSearchByDiagDate.asp" onSubmit="return CheckForm(this)">
    <td width="179" height="40" align="left" valign="middle">　按就诊日期查询:　从</td>
	  <td width="168" align="left"><input name="DiagDateStart" type="text" class="Input" check="^\d{4}\-\d{1,2}-\d{1,2}$" warning="日期格式2005-4-12"></td>
	  <td colspan="2" align="center" >&lt;----- 到 -----&gt;</td>
	  <td width="168" align="left"><input name="DiagDateEnd" type="text" class="Input" check="^\d{4}\-\d{1,2}-\d{1,2}$" warning="日期格式2005-4-12">	</td>
	  <td width="42" height="40" align="left"><input type="submit" value="查询" class="Input"></td>
		</form>
	</tr>
</table>
<%
ENameRS.Close
ENameRS=Nothing
EOfficeRS.Close
EOfficeRS=Nothing
%>