📄 browseonedept.asp
字号:
<!--#include file="../includes/keepHouse.asp"-->
<html>
<head>
<%
call insureID()
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="50">
<tr>
<td width="100%"></td>
</tr>
</table>
<center>
<%
dim DEPT_ID
DEPT_ID=request("DEPT_ID")
DEPARTMENT=request("DEPARTMENT")
if DEPT_ID="" then
call trigErr()
end if
if DEPARTMENT="" then
call trigErr()
end if
sql="SELECT Personnel.PERSONNEL_ID, Personnel.PERSON_NAME, " _
&"Personnel.PERSON_GENDER, [Position].POSITION_NAME " _
&"FROM Personnel INNER JOIN " _
&"[Position] ON Personnel.POSITION_ID = [Position].POSITION_ID " _
&"WHERE (Personnel.DEPT_ID = "&DEPT_ID&" AND FIRED=0) "
call openDB()
rs.open sql,conn,1,1
%>
<table border="1" width="80%" cellspacing="0" cellpadding="0" bordercolorlight="#FCFCFC" bordercolordark="#EFEFEF">
<tr>
<td height=35 colspan=4 align=center bgcolor="#0000FF">
<font color="#FFFFFF"><b><%=DEPARTMENT%>部门人员列表</b></font></td>
</tr>
<tr>
<td width="25%" bgcolor="#FCFCFC">员工ID</td>
<td width="25%" bgcolor="#FCFCFC">姓名</td>
<td width="25%" bgcolor="#FCFCFC">性别</td>
<td width="25%" bgcolor="#FCFCFC">职位</td>
</tr>
<%
while not rs.eof
response.write "<tr>"
response.write "<td width=""25%"" bgcolor=""#FCFCFC"">"&rs("PERSONNEL_ID")&"</td>"
response.write "<td width=""25%"" bgcolor=""#FCFCFC""><a href=""Read.asp?PERSONNEL_ID="&rs("PERSONNEL_ID")&""">"&rs("PERSON_NAME")&"</a></td>"
response.write "<td width=""25%"" bgcolor=""#FCFCFC"">"&rs("PERSON_GENDER")&"</td>"
response.write "<td width=""25%"" bgcolor=""#FCFCFC"">"&rs("POSITION_NAME")&"</td>"
response.write "</tr>"
rs.movenext
wend
call closeDB()
%>
<tr>
<td height=50 colspan=4 align=center bgcolor="#EFEFEF">
<font>
[<a href="javaScript:history.back()">返回</a>]
</td>
</tr>
</table>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -