?? search.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
r2_numRows = r2_numRows + Repeat1__numRows
%>
<%
if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")
%>
<!-- #include file="inc/top.asp"-->
<!-- #include file="images/jav.inc" -->
<!-- #include file="inc/adminmenu.asp" -->
<!--#include file="Connections/conn2.asp" -->
<%
Dim r2__MMColParam
r2__MMColParam = "1"
If (Request.Form("xh") <> "") Then
r2__MMColParam = Request.Form("xh")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn2_STRING
Recordset1.Source = "SELECT distinct xh FROM bbs1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim r2
Dim r2_numRows
Set r2 = Server.CreateObject("ADODB.Recordset")
r2.ActiveConnection = MM_conn2_STRING
r2.Source = "SELECT * FROM bbs1 WHERE xh = '" + Replace(r2__MMColParam, "'", "''") + "' ORDER BY date DESC"
r2.CursorType = 0
r2.CursorLocation = 2
r2.LockType = 1
r2.Open()
r2_numRows = 0
%>
<span class="unnamed2_14"> </span>
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td align="center"><table width="600" border="0" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
<tr>
<td bgcolor="#CCCCCC">
<div align="center"><span style="font-weight: bold">員工
工分 分類查詢</span></div></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" height="19">
<form name="form1" method="post" action="search.asp">
<table width="88%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="16"><div align="right">工號提示
</div></td>
<td width="11%"><select name="xh1" id="xh1">
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("xh").Value)%>"><%=(Recordset1.Fields.Item("xh").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select></td>
<td width="23%"> 輸入工號</td>
<td width="46%"><input name="xh" type="text" id="xh" size="10" maxlength="10">
</td>
</tr>
<tr>
<td colspan="2"> </td>
<td> </td>
<td> <input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form> </td>
</tr>
<tr>
<td width="25%"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
<form name="form6" method="post" action="search.asp">
<tr align="center" bgcolor="#eeeeee">
<td width="100%"> </td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="60%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td><table width="768" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#EEEEEE"> <span class="unnamed2_14">年份：
</tr>
</table>
<table width="787" height="51" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="14%" align="center" height="12">工號</td>
<td width="14%" height="12" align="center">姓名</td>
<td width="14%" height="12" align="center">日期</td>
<td width="14%" height="12" align="center">工分</td>
<td width="14%" height="12" align="center">月份</td>
<td width="12%" height="12" align="center">類型</td>
<td width="18%" height="12" align="center">算法分數</td>
</tr>
<%
if flag = false then
%>
<% If Not r2.EOF Or Not r2.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT r2.EOF))
%>
<tr>
<td align="center" height="30"><%=(r2.Fields.Item("xh").Value)%> </td>
<td width="14%" height="30" align="center"><%=(r2.Fields.Item("user").Value)%></td>
<td width="14%" height="30" align="center"><%=(r2.Fields.Item("date").Value)%></td>
<td width="14%" height="30" align="center"><%=(r2.Fields.Item("cj").Value)%></td>
<td width="14%" height="30" align="center"><%=(r2.Fields.Item("xq").Value)%></td>
<td width="12%" height="30" align="center"><%=(r2.Fields.Item("lx").Value)%></td>
<td width="18%" height="30" align="center"><font color="#FF0000"><strong>
<% cj1=R2.fields("cj")/23*7*1.2%>
<% =cj1%>
</strong></font> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
r2.MoveNext()
Wend
%>
<% End If ' end Not r2.EOF Or NOT r2.BOF %>
</table></td>
</tr>
</table>
<br>
<% If r2.EOF And r2.BOF Then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="48"> <div align="center">
<p>沒有您需要的信息</p>
</div></td>
</tr>
</table>
<% End If ' end r2.EOF And r2.BOF %> <%end if%>
<p> </p></td></tr>
</table>
<!--#include file="inc/copyright.asp"-->
<%
r2.Close()
Set r2 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -