📄 kaoqing.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../database/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type"; content="text/html"; charset="gb2312" />
<title>考勤登记</title>
<style type="text/css">
<!--
.STYLE1 {font-family: Arial, Helvetica, sans-serif}
-->
</style>
</head>
<body>
<%
Dim check
check="1"
SQL="select * from student where Ifadmission="&check
if 1=1 then
Set Rs = Server.CreateObject("ADODB.RECORDSET")
Rs.Open Sql,Conn,1,3 '获取的记录集
'公共翻页模块开始%>
<!--#include file=../Pub/TurnPage.asp-->
<%
Dim RowCount,lRowCount
RowCount = 6 '每页显示的记录条数
lRowCount=0
Call TurnPage(Rs,RowCount) '输入参数 rs 与RowCount 即记录集与每页记录数
'公共翻页模块结束 %>
<form method="POST" name="add" onSubmit="return CheckForm();" action="testadd.asp?nums=6">
<table width="600" bgcolor="#CCCCFF">
<tr><td colspan="3" align="center"> 考勤 </td></tr>
<tr>
<td align=center width=80><span class="STYLE1">姓名</span></td>
<td align=center width=70>等级</td>
<td align=center width=100>第几次结算</td>
</tr>
<%
if not Rs.eof then
i=0
Do while Not Rs.EOF and RowCount>0
lRowCount=lRowCount+1
lRowCount=lRowCount+1
yushu=lRowCount mod 2
%>
<tr bgcolor="#9999FF">
<%
i=i+1
%> <!--在文本框中显示数据-->
<!-- 设置一个隐藏的字段，字段值是数据的ID，并且这个名字是i，用i来循环，使得名称有规律的命名，从而实现值的区别-->
<td align=right width=70 bgcolor=#cccccc><span class="STYLE1"><%=Rs.fields("st_name")%></span>
<input name="student_no<%=i%>" type="hidden" id="student_no<%=i%>" value='<%=Rs.fields("student_no")%>' >
</td>
<td align=right width=100 bgcolor=#FFFFFF>
<select name="dengji<%=i%>"id="dengji<%=i%>" style="width=80px">
<option value="4" >A</option>
<option value="3" >B</option>
<option value="2" >C</option>
<option value="1" >D</option>
</select></td>
<td align=right width=100 bgcolor=#FFFFFF><select name="jiesuan<%=i%>" id="jiesuan<%=i%>" style="width=80px">
<option value="1" >第一次</option>
<option value="2" >第二次</option>
<option value="3" >第三次</option>
<option value="4" >第四次</option>
</select> </td>
</tr>
<%
RowCount = RowCount -1
Rs.MoveNext
Loop%>
<tr> <td colspan="3" align="center">
<!--设置i的循环的最后的值-->
<input name="Submit2" type="submit" id="add" value=" 结算 ">
<input name="Action" type="hidden" id="Action" value="add"></td> </tr>
</table>
</form>
<table> <tr> <td colspan="3"> 共有 <FONT COLOR="#0000FF"><%=Rs.recordcount%></FONT> 条纪录</td></tr>
</table>
<% else response.Write(" no data !!")
end if
end if
Rs.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -