📄 bookingaffirm.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/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Check.asp"-->
<!--#include file="inc/SQLCHK.asp"-->
<%
If Request.QueryString("ExpertID") = "" OR Request.QueryString("DiagDate") = "" OR Request.QueryString("APM") = "" Then
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('参数有问题!');" &Chr(13)
Response.write "javascript:history.go(-1);"&Chr(13)
Response.write "</script>" &Chr(13)
Response.end
End If
Dim ExpertID, DiagDate, APM
ExpertID = Request.QueryString("ExpertID")
DiagDate = Request.QueryString("DiagDate")
APM = Request.QueryString("APM")
Dim ExpertName, ExpertOffice
'查询专家姓名＆科室
dim RS
set RS=Server.CreateObject("ADODB.RecordSet")
RS.ActiveConnection=Conn
RS.Source = "Select Name, Office From [Expert] Where ID="&ExpertID
RS.CursorType = adOpenKeyset
RS.CursorLocation = adUseServer
RS.LockType = adLockReadOnly
RS.Open
ExpertName = RS("Name")
ExpertOffice = RS("Office")
RS.Close
'查询用户姓名
Dim UserName, RealName, PatientID
UserName = Session("Username")
RS.Source = "Select ID, RealName From [USER] Where UserName='"&UserName&"'"
RS.Open
RealName = RS("RealName")
PatientID = RS("ID")
RS.Close
ConnClose()
%>
<!--#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" background="Image/BGBlock.gif"><br>
<form action="BookingAdd.asp?Action=Add" method="post">
<input name="ExpertID" value="<%=ExpertID%>" type="hidden">
<input name="PatientID" value="<%=PatientID%>" type="hidden">
<input name="DiagDate" value="<%=DiagDate%>" type="hidden">
<input name="APM" value="<%=APM%>" type="hidden">
<table width="600" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EFEFEF" height="40" width="600" align="center" colspan="2"><span class="TextTitle">预约清单</span></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" height="40" width="200" align="center" ><strong>专家姓名:</strong></td>
<td width="497" bgcolor="#EFEFEF" align="center"> <%=ExpertName%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" height="40" width="200" align="center"><strong>科 室:</strong></td>
<td bgcolor="#EFEFEF" align="center"> <%=ExpertOffice%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" height="40" width="200" align="center"><strong>就诊人姓名:</strong></td>
<td bgcolor="#EFEFEF" align="center"> <%=RealName%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" height="40" width="200" align="center"><strong>就诊时间:</strong></td>
<td bgcolor="#EFEFEF" align="center"> <%=DiagDate%> <%if APM then%>上午<%else%>下午<%end if%></td>
</tr>
<tr>
<td bgcolor="#EFEFEF" height="40" width="200" align="center"><strong>预约时间:</strong></td>
<td bgcolor="#EFEFEF" align="center"> <%=Date()%></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" bgcolor="#EFEFEF"><input name="OK" type="submit" value="确 认" class="Input">
<input name="Cancle" type="button" id="Cancle" value="取 消" class="Input" onClick="JavaScript:history.go(-1);"></td>
</tr>
</table>
</form>
</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 + -