📄 ansq.asp
字号:
<!--#include file="../includes/keepHouse.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</title>
</head>
<body>
<center>
<%
call insureID()
dim PERSONNEL_ID
dim PERSON_NAME
dim DEPT_ID
dim POSITION_ID
PERSONNEL_ID=request("PERSONNEL_ID")
PERSON_NAME=request("PERSON_NAME")
DEPT_ID=request("DEPT_ID")
POSITION_ID=request("POSITION_ID")
if PERSONNEL_ID="" and PERSON_NAME="" and DEPT_ID="" and POSITION="" then
response.redirect "BrowseDeptList.asp"
end if
sql="SELECT Personnel.*, [Position].POSITION_NAME AS PositionName, " _
&"Department.DEPARTMENT AS Department " _
&"FROM Personnel INNER JOIN " _
&"[Position] ON Personnel.POSITION_ID = [Position].POSITION_ID INNER JOIN " _
&"Department ON Personnel.DEPT_ID= Department.DEPT_ID " _
&" WHERE Personnel.FIRED=0 "
if PERSONNEL_ID<>"" then
sql=sql+"AND Personnel.PERSONNEL_ID= "&PERSONNEL_ID&" "
end if
if PERSON_NAME<>"" then
sql=sql+"AND Personnel.PERSON_NAME LIKE '%"&PERSON_NAME&"%' "
end if
if DEPT_ID<>"" then
sql=sql+"AND Department.DEPT_ID= "&DEPT_ID&" "
end if
if POSITION_ID<>"" then
sql=sql+"AND Personnel.POSITION_ID= "&POSITION_ID&" "
end if
call openDB()
rs.open sql,conn,1,1
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="50">
<tr>
<td width="100%"></td>
</tr>
</table>
<table border="0" width="75%" cellspacing="0" cellpadding="0">
<tr>
<td width="5%" bgcolor="#0000FF" height="35" align=left><img border="0" src="../images/back.gif"></td>
<td width="65%" bgcolor="#0000FF" height="35" align=center><b><font color="#FFFFFF">员工查询结果列表</font></b></td>
<td width="5%" bgcolor="#0000FF" height="35" align=right><img border="0" src="../images/Close2.gif"></td>
</tr>
</table>
<table border="1" width="75%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" bgcolor="#FCFCFC">员工ID</td>
<td width="15%" bgcolor="#FCFCFC">姓名</td>
<td width="15%" bgcolor="#FCFCFC">性别</td>
<td width="15%" bgcolor="#FCFCFC">部门</td>
<td width="15%" bgcolor="#FCFCFC">职位</td>
</tr>
<%
Counter=0
if rs.eof then
response.write "<tr><td colspan=5 align=center bgcolor=""#FCFCFC"">"
response.write "没有找到符合要求的信息。"
response.write "</td></tr>"
end if
while not rs.eof
response.write "<tr>"
response.write "<td width=""15%"">"&rs("PERSONNEL_ID")&"</td>"
response.write "<td width=""15%""><a href=""Read.asp?PERSONNEL_ID=" _
&rs("PERSONNEL_ID")&""">"&rs("PERSON_NAME")&"</a></td>"
response.write "<td width=""15%"">"&rs("PERSON_GENDER")&"</td>"
response.write "<td width=""15%"">"&rs("DEPARTMENT")&"</td>"
response.write "<td width=""15%"">"&rs("PositionName")&"</td>"
response.write "</tr>"
PERSONNEL_ID=rs("PERSONNEL_ID")
rs.movenext
Counter=Counter+1
wend
%>
<tr>
<td height=50 colspan=5 align=center bgcolor="#EFEFEF">
[<a href="BrowseDeptList.asp">返回</a>]
</tr>
</table>
<%
call closeDB()
if Counter=1 then
response.redirect"Read.asp?PERSONNEL_ID="&PERSONNEL_ID
end if
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -