📄 zhuanye.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(){
var x=document.form4.radio.value;
if (x=="pass") x="通过";
if (x=="delete") x="删除";
return window.confirm("您确定要批量 -'"+x+"'- 吗？")
}
</script>
<%
call LinkData()
dim sql,rs,absolutepage,pagecount,i
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from zhuanye order by zid"
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
%>
<body topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center"> <strong>学校所有专业列表 <a href="zhuanyeadd.asp" target="down">增加专业</a></strong></td>
</tr>
<tr>
<form name=form2 action="zhuanye.asp">
<td align="center">每页<%=rs.PageSize%>条 当前页<%=absolutepage%>/<%=pagecount %>
<%if cint(absolutepage)>1 then %>
<a href="zhuanye.asp?absolutepage=1">首页</a>
<%else %>
首页
<%end if%>
<%if cint(absolutepage)>1 then %>
<a href="zhuanye.asp?absolutepage=<%=cint(absolutepage)-1%>">前页</a>
<%else %>
前页
<%end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="zhuanye.asp?absolutepage=<%=cint(absolutepage)+1%>">后页</a>
<%else Response.Write "后页" end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="zhuanye.asp?absolutepage=<%=pagecount%>">末页</a>
<%else Response.Write "末页" end if%> </td>
</form>
</tr>
<tr>
<td align="center">
<form name=form4 action="zhuanyedelete.asp" onsubmit="return del()">
<table border="1" align="center" width="100%" cellpadding="0" cellspacing="0">
<tr >
<td align="center" width="13%">编号</td>
<td align="center" width="28%">专业(点击查看报告)</td>
<td align="center" width="9%">修改</td>
<td align="center" width="10%">
<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("zid")%></td>
<td> <%=rs("zhuanye")%> <a href="../scl90f/zhuanyebg.asp?zhuanye=<%=rs("zhuanye")%>" target="_blank">scl90结果</a> <a href="../scl901/zhuanyebg.asp?zhuanye=<%=rs("zhuanye")%>" target="_blank">scl90原始</a></td>
<td align="center"><a href="zhuanyeedit.asp?zid=<%=rs("zid")%>">修改</a></td>
<td align="center">
<div align="center">
<input type="checkbox" name="del_flag<%=i%>">
<input type="hidden" value="<%=rs("zid")%>" 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 + -