📄 search.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000100 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Branch_ID = request("Branch_ID")
Employee_Name = request("Employee_Name")
Gender = request("Gender")
Age_Min = request("Age_Min")
Age_Max = request("Age_Max")
Tel = request("Tel")
Email = request("Email")
if Branch_ID = "" then Branch_ID = 1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<form action="list.asp" method="post" name="frm" target="main">
员工查询
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td bgcolor="#EFEFEF">姓名</td><td><input type="text" name="Employee_Name" size="20" value="<%= Employee_Name %>"></td>
<td bgcolor="#EFEFEF">性别</td>
<td>
<select name="Gender" size="1">
<option value="1">男</option>
<option value="0">女</option>
<option value="" SELECTED>不限</option>
</select>
</td>
<td bgcolor="#EFEFEF">年龄</td>
<td>
<input name="Age_Min" type="text" size="3" value="<%= Age_Min %>">
≤ 年龄 ≤
<input name="Age_Max" type="text" size="3" value="<%= Age_Max %>">
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">分公司</td>
<td>
<select name="Branch_ID" size="1" onChange="return chg_brch(this.value);">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Branch"
'response.write sql
set rs = conn.execute(sql)
while not rs.eof
if CStr(Branch_ID) = CStr(rs("Branch_ID")) then
tag = "selected"
else
tag = ""
end if
response.write "<option value=" & rs("Branch_ID") & " " & tag & ">" & rs("Branch_Name") & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>
</td>
<td bgcolor="#EFEFEF">部门</td>
<td>
<select name="Department_ID" size="1">
<option value="">不限</option>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Department " & Branch_ID
'response.write sql
set rs = conn.execute(sql)
while not rs.eof
response.write "<option value=" & rs("Department_ID") & ">" & rs("Department_Name") & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电话</td><td><input type="text" name="Tel" size="20" value="<%= Tel %>"></td>
<td bgcolor="#EFEFEF">电子邮件</td><td colspan=3><input type="text" name="Email" size="35" value="<%= Email %>"></td>
</tr>
</table>
<input type="submit" name="Submit" value="开始查询">
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
function chg_brch(Branch_ID){
var Employee_Name = document.frm.Employee_Name.value;
var Gender = document.frm.Gender.value;
var Age_Min = document.frm.Age_Min.value;
var Age_Max = document.frm.Age_Max.value;
var Tel = document.frm.Tel.value;
var Email = document.frm.Email.value;
var url = 'search.asp?Branch_ID='+Branch_ID+'&Employee_Name='+Employee_Name+'&Gender='+Gender+'&Age_Min='+Age_Min+'&Age_Max='+Age_Min+'&Tel='+Tel+'&Email='+Email;
location.href = url;
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -