?? admin_expert.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>
<body>
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../Inc/Pages.asp"-->
<!--#include file="Inc/Head.asp"-->
<!--#include file="../inc/SQLCHK.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" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<%
Dim NowPage
NowPage=Request("Page")
If NowPage="" OR Not isNumeric(NowPage) Then
NowPage=1
End If
Dim PageMagr, PageRs
Set PageMagr = new PageClass
PageMagr.Conn=Conn
PageMagr.PageSize=6
PageMagr.Page=NowPage
Set PageRs = PageMagr.ExecuteBy("Expert","ID,Name,Sex,Office,Speciality","","ID Asc")
if PageMagr.RecordCount = 0 then
%>
<table width="700"align="center"class="TableInfo">
<tr>
<td height="300" align="center" class="TextTitle">當前沒有任何專家記錄!</td>
</tr>
</table><br>
<%
else
dim strPageChoose
strPageChoose = PageMagr.GetPageBar("Admin_Expert.asp")
%>
<table width="700" align="center" class="TableInfo">
<tr>
<td height="55" align="center" class="TextTitle">專家列表</td>
</tr>
<tr>
<td align="left"> <a href="Admin_ExpertAdd.asp"><span class="Text1">- 添加專家 -</span></a></td>
</tr>
<tr>
<td height="20" align="right"><%=strPageChoose%></td>
</tr>
<tr>
<td><hr width="96%" color="#BBBBBB" size="1"></td>
</tr>
<tr>
<td>
<%
for i=1 to PageMagr.PageSize
if not PageRs.eof then
%>
<table width="600" align="center" class="TableDashed">
<tr>
<td height="20" width="70" align="center">姓名</td>
<td height="20" width="110" align="left" class="Text1"> <b><%=PageRs("Name")%></b></td>
<td height="20" width="420" align="right"><a href="Admin_RegSearchByExpert.asp?ExpertName=<%=PageRs("Name")%>"><span class="Text2"><預約情況></span></a> <a href="Admin_ExpertModify.asp?ID=<%=PageRs("ID")%>"><span class="Text2"><修改檔案></span></a> <a href="Admin_ExpertDelAffirm.asp?ID=<%=PageRs("ID")%>" onClick="return ConfirmOper('確認刪除?')"><span class="Text2"><刪除檔案></span></a></td>
</tr>
<tr>
<td height="20" width="70" align="center">性別</td>
<td height="20" colspan="2" align="left"> <%=PageRs("Sex")%></td>
</tr>
<tr>
<td height="20" width="70" align="center">科室</td>
<td height="20" colspan="2" align="left"> <%=PageRs("Office")%></td>
</tr>
<tr>
<td height="22" width="70" align="center">專長</td>
<td height="22" align="left" colspan="2"> <%=PageRs("Speciality")%></td>
</tr>
</table>
<br>
<%
PageRs.movenext
else
exit for
end if
next
PageRs.Close
CloseConn()
%>
</td>
</tr>
<tr>
<td height="20" 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 + -