?? regquery.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">
<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">< 取 消 ></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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -