?? 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 + -