regquery.asp

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

ASP
133 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Style.css" rel="stylesheet" type="text/css">
<title>预约查询</title>
</head>

<body>
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/Head.asp"-->
<!--#include file="Inc/Pages.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="11" background="Image/LeftMargin.gif"></td>
    <td width="750" background="Image/BGBlock.gif">
<%
Dim NowPage
NowPage=Request("Page")
If NowPage="" OR Not isNumeric(NowPage) Then 
	NowPage=1
End If

Dim RS
'如果没有专家ID缓存取出他
If Session("Expert_Cache")="" Then
	Set RS = Conn.Execute("Select ID, Name From [Expert] Order By ID")
	Session("Expert_Cache")="True"
	While Not RS.EOF
		Session("Expert_"&RS("ID"))=RS("Name")
		RS.MoveNext
	Wend
	RS.Close
End If

Dim PageMagr, PageRs, PatientID
Set PageMagr = new PageClass
PageMagr.Conn=Conn
PageMagr.PageSize=10
PageMagr.Page=NowPage
PatientID = Session("PatientID")

Set PageRs = PageMagr.ExecuteBy("Registration","ID,ExpertID,DiagDate,RegDate,APM","PatientID="&PatientID,"DiagDate Desc")

If PageMagr.RecordCount = 0 Then
%>
<br>
<table width="600" align="center" class="TableInfo">
  <tr>
    <td height="200" align="center" valign="middle" class="TextTitle">暂无预约记录</td>
	</tr>
</table>
<br>
<%
Else
	Dim strPageChoose
	strPageChoose = PageMagr.GetPageBar("RegQuery.asp")
%>
<br>
<table width="700"align="center" class="TableInfo">
  <tr>
    <td height="30" colspan="6" align="center" class="TextTitle">预约情况</td>
  </tr>
	<tr>
    <td height="20" colspan="6" align="right"><%=strPageChoose%></td>
  </tr>	
	<tr>
		<td colspan="6">
		<hr width="96%" color="#BBBBBB" size="1">
		</td>
	</tr>
  <tr>
    <td width="70" align="center"><b>门诊号</b>    
    <td width="100" align="center"><b>专家</b>
    <td width="150" height="30" align="center"><b>门诊日期</b>  
    <td width="130" align="center"><b>预约日期</b>
    <td width="40" align="center" >    
    <td align="center" >    
  </tr>

	<Form name="Form_RegDel" method="post" action="Admin_BookingDel.asp?Action=Del&RegID=<%=PageRs("ID")%>">
  <input name="Back" type="hidden" value="Admin_Registers.asp?Page=<%=NowPage%>">
	<input name="RegID" type="hidden" >
	</Form>
<%
for i=1 to PageMagr.PageSize
    if not PageRs.eof then 
%>
  <tr>
    <td height="30" align="center" ><%=PageRs("ID")%>
    <td align="center" ><%=Session("Expert_"&PageRs("ExpertID"))%>  
    <td align="center" ><%=PageRs("DiagDate")%>　<%If PageRs("APM") Then %>上午<%Else%>下午<%End If%>
    <td align="center" ><%=PageRs("RegDate")%>
    <%If PageRs("DiagDate")<=Date() Then%>
		<td align="center" ><span class="Text1">已过期</span></td>
		<td align="center" ><span class="Text1">无法取消</span></td>
    <%Else%>
		<td align="center" ></td>
		<td align="center" >
		<a href="BookingDel.asp?Action=Del&RegID=<%=PageRs("ID")%>" onClick="return ConfirmOper('确定要删除这次预约吗?')"><span class="Text2">&lt; 取 消 &gt;</span></a>
		</td>
		<%End If%>
  </tr>
<%
      	  PageRs.movenext
    	else
    	     exit for
  	  end if
	next
	PageRs.Close
	CloseConn()
%>	
	<tr>
		<td colspan="6">
		<hr width="96%" color="#BBBBBB" size="1">
		</td>
	</tr>
	<tr>
    <td height="20" colspan="6" align="right"><%=strPageChoose%></td>
  </tr>
</table>
<br>	
<%End If%>
    </td>
	<td width="11" background="Image/RightMargin.gif"></td>
  </tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>

regquery.asp - 源码说明

本页面展示了「医院专家挂号系统设计」中的 regquery.asp 源码文件，采用 ASP 编程语言编写，共 133 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与家相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?