📄 admin_regsearchbyregdate.asp
字号:
<%@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">
<title>预约管理-查询</title>
<link href="../Style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../Inc/Pages.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<body>
<%
Dim RegDateStart, RegDateEnd
RegDateStart=Trim(Request("RegDateStart"))
RegDateEnd=Trim(Request("RegDateEnd"))
Dim regEx
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "^\d{4}\-\d{1,2}-\d{1,2}$"
If RegDateStart="" OR RegDateEnd="" OR Not regEx.test(RegDateStart) OR Not regEx.test(RegDateEnd) Then
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('参数错误');"
Response.write "javascript:history.go(-1);" &Chr(13)
Response.write "</script>" &Chr(13)
Response.end
End If
RegDateStart = Date(RegDateStart)
RegDateEnd = Date(RegDateEnd)
'前后日期错误
If RegDateStart > RegDateEnd Then
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('日期错误');"
Response.write "javascript:history.go(-1);" &Chr(13)
Response.write "</script>" &Chr(13)
Response.end
End If
%>
<!--#include file="Inc/Head.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" height="400" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<!--#include file="Inc/RegSearchTab.asp"-->
<!--#include file="Inc/ExpertCache.asp"-->
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<%
Dim NowPage
NowPage=Request("Page")
If NowPage="" OR Not isNumeric(NowPage) Then NowPage=1
Dim PageMagr, PageRs
Set PageMagr = new PageClass
PageMagr.Conn=Conn
PageMagr.PageSize=10
PageMagr.Page=NowPage
Set PageRs = PageMagr.ExecuteBy("Registration","*","RegDate>=#"&RegDateStart&"# And RegDate<=#"&RegDateEnd&"#","ID Desc")
If PageMagr.RecordCount = 0 Then
%>
<br>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" class="TableInfo">
<tr>
<td height="200" align="center" valign="middle" class="TextTitle">暂无预约记录</td>
</tr>
</table>
<br>
<%
Else
Dim strPageChoose
strPageChoose = PageMagr.GetPageBar("Admin_RegSearchByRegDate.asp?RegDateStart="&RegDateStart&"&RegDateEnd="&RegDateEnd)
%>
<table width="700"align="center" class="TableInfo">
<tr>
<td height="30" colspan="6" align="center" class="TextTitle">预约日期"<%=RegDateStart%>"到"<%=RegDateEnd%>"的记录</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_RegSearchByRegDate.asp?RegDateStart=<%=RegDateStart%>&RegDateEnd=<%=RegDateEnd%>&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")%>
<td align="center"><%If PageRs("DiagDate")<=Date() Then%><span class="Text1">已过期</span><%End If%></td>
<td align="center" ><a href="#" onClick="if(ConfirmOper('确定要删除这次预约吗?')){document.Form_RegDel.RegID.value=<%=PageRs("ID")%>;document.Form_RegDel.submit();}"><span class="Text2">< 取 消 ></span></a></td>
</tr>
<%
PageRs.movenext
Else 'If not PageRs.eof Then
Exit For
End if 'If not PageRs.eof Then
Next 'For i=1 To PageMagr.PageSize
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 'If PageMagr.RecordCount = 0 Then
%>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
</td>
<td width="11" background="../Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -