📄 search.asp
字号:
<!--#include file="conn.asp" -->
<HTML>
<HEAD>
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFffff;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td> <div align="right">
<% If session("admin")<>"yes" Then
response.write("系统超时，您需要<font color=red><b>重新登陆</font></b>。 ")
response.end
Else %>
您现在处于管理状态。
<%end if%>
<strong><a href="javascript:self.location.reload();"><font color="#FF0000">刷新</font></a></strong>
</div></td>
</tr>
<tr>
<td valign="top"> <strong>查询：</strong><br>
<br>
<font color="#0000FF">您还可以对单个员工核算： </font> </td>
</tr>
<tr>
<td valign="top">
<%set rs=server.createobject("adodb.recordset")
sql="select * from men order by mid asc"
rs.open sql,conn,3,1
if rs.eof or rs.bof then
response.Write("没有发现员工记录。")
else
do while not rs.eof
%>
<b><%=rs("mid")%></b>:<a href=per.asp?mid=<%=rs("mid")%>><%=rs("name")%></a>
<%
if not rs.eof or rs.bof then rs.movenext
loop
end if
rs.close%>
<hr size="1" noshade> </td>
</tr>
<tr>
<td valign="top">
<form name="form1" method="post" action="kamore.asp">
工序卡查询：
<input name="kid" type="text" id="kid">
<input type="submit" name="Submit" value="查寻">
（请输入卡号，必须为数字）
<hr size="1" noshade>
</form></td>
</tr>
<tr>
<td valign="top"><form name="form1" method="post" action="mb.asp">
月工资查询： 工号：
<input name="mid" type="text" id="mid" size="20" maxlength="20">
月份：
<select name="month" id="month">
<%for i=1 to 12%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
<input type="submit" name="Submit2" value="查寻">
<hr size="1" noshade>
</form> </td>
</tr>
<tr>
<td valign="top"><form name="form1" method="post" action="mb.asp">
月工资查询： 姓名： <select name="mid" id="mid">
<%set rs=server.createobject("adodb.recordset")
sql="select * from men order by mid asc"
rs.open sql,conn,3,1
if rs.eof or rs.bof then
else
do while not rs.eof
%>
<option value="<%=rs("mid")%>" selected><%=rs("name")%></option>
<%if not rs.eof or rs.bof then rs.movenext
loop
end if
rs.close%>
</select> 月份：
<select name="month" id="month">
<%for i=1 to 12%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
<input type="submit" name="Submit22" value="查寻">
<hr size="1" noshade>
</form></td>
</tr>
<tr>
<td valign="top"><form name="form1" method="post" action="mb.asp">
员工批量查询：
<input name="mid1" type="text" id="mid1" size="20" maxlength="20">
< 工号 <
<input name="mid2" type="text" id="mid2" size="20" maxlength="20">
月份：
<select name="select" id="select">
<%for i=1 to 12%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
<input type="submit" name="Submit23" value="查寻">
<hr size="1" noshade>
</form> </td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -