📄 gebie.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../check.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生心理测试管理界面</title>
<link href="../teacher.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
function checkall(num){
for (i=1;i<num*2+1;i++){
document.form4("del_flag"&&i).checked="on"
}
}
</script>
<script language="JavaScript">
function del(){
return window.confirm("您确定要批量 删除 吗？")
}
</script>
<body topmargin="0">
<%
call LinkData()
dim sql,rs,absolutepage,pagecount,i
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from student order by sid"
rs.open sql,conn,1,1
rs.PageSize=10
absolutepage=request("absolutepage")
if absolutepage="" then absolutepage=1
if not rs.EOF then
rs.AbsolutePage=absolutepage
end if
pagecount=rs.PageCount
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<form name=form2 action="search.asp">
<tr><td>
<div align="center">
<input name="xuesheng" type="radio" value="mingzi" checked>
按学生姓名
<input type="radio" name="xuesheng" value="xuehao">
按学号
<input name="zhi" type="text" value="">
<input type="submit" name="Submit" value="提交">
</div></td></tr>
</form>
<tr>
<td align="center"> <strong>学校所有学生列表 </strong><a href="gebieadd.asp" target="down">添加学生</a></td>
</tr>
<tr>
<td align="center">每页<%=rs.PageSize%>条 当前页<%=absolutepage%>/<%=pagecount %>
<%if cint(absolutepage)>1 then %>
<a href="gebie.asp?absolutepage=1">首页</a>
<%else %>
首页
<%end if%>
<%if cint(absolutepage)>1 then %>
<a href="gebie.asp?absolutepage=<%=cint(absolutepage)-1%>">前页</a>
<%else %>
前页
<%end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="gebie.asp?absolutepage=<%=cint(absolutepage)+1%>">后页</a>
<%else Response.Write "后页" end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="gebie.asp?absolutepage=<%=pagecount%>">末页</a>
<%else Response.Write "末页" end if%> </td>
</tr>
<tr>
<td align="center">
<form name=form4 action="gebiedelete.asp" onsubmit="return del()">
<table border="1" align="center" width="100%" cellpadding="0" cellspacing="0">
<tr >
<td align="center">姓名</td>
<td align="center">学号 (点击查看详细报告) </td>
<td align="center">班级</td>
<td align="center">专业</td>
<td align="center">修改</td>
<td align="center">
<input type="button" name="Submit" value="全选" onclick="checkall(<%=rs.PageSize%>)">
</td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF then exit for
%>
<tr>
<td align="center"><%=rs("mingzi")%></td>
<td align="center"><%=rs("xuehao")%> <a href="../scl90f/gebiebg.asp?xuehao=<%=rs("xuehao")%>" target="_blank">scl90结果</a> <a href="../scl901/gebiebg.asp?xuehao=<%=rs("xuehao")%>" target="_blank">scl90原始</a></td>
<td align="center"><%=rs("banji")%></td>
<td align="center"><%=rs("zhuanye")%></td>
<td align="center"><a href="gebieedit.asp?sid=<%=rs("sid")%>">修改</a></td>
<td align="center">
<div align="center">
<input type="checkbox" name="del_flag<%=i%>">
<input type="hidden" value="<%=rs("sid")%>" name="record_id<%=i%>">
</div>
</td>
</tr>
<%
rs.MoveNext
next
%>
<input type="hidden" name="record_count" value=<%=i-1%>>
</table>
<div align="right"><input type="submit" value="删除">
</div>
</form> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
call CloseData()
'call Timenum()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -