📄 xs_adminlist.asp
字号:
<!--#include file="conn.asp"-->
<%
ID=SafeRequest("ID",1)
xID=SafeRequest("xID",1)
if id<>"" then
if ID=1 then
grad="一"
end if
if ID=2 then
grad="二"
end if
if ID=3 then
grad="三"
end if
end if
dim maxpage,totalCount,Pcount,start,pagecount,toback,tonext,endpage,ID,ROrder,xID,JSMB,GJC_1,SearchDisplay
'每页数，记录总数，总页数，开始页，当前页，上一页，下一页，末页
maxpage=40
if request("start")="" or not isnumeric(request("start")) then
start=1
toback=1
tonext=2
else
start=clng(request("start"))
toback=start-1
tonext=start+1
end if
if start <=1 then
start=1
toback=1
tonext=2
end if
%>
<html>
<head>
<title>学生信息列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<script language=JavaScript>
<!--
function dic(page) {
window.open(page,"news","height=400,width=580,resizable=yes,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
//window.focus();
return;
}
// -->
</script>
</head>
<body bgcolor="#efefef" leftmargin="3" topmargin="0">
<!--#include file="top1.asp"-->
<table width="785" border="0" cellspacing="0" cellpadding="0" align=center >
<tr>
<form method="POST" action="?start=<%=start%>" name="frm_search">
<td align="center" valign="top">
<%
set rs1=Server.CreateObject("ADODB.Recordset")
Call TopSearch()'上部检索
totalCount=rs1.Recordcount
%>
<table align=center border=0 cellpadding=4 cellspacing=2 height=165
width="100%">
<tbody>
<tr>
<td align=center valign=top>
<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#808080">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="5">
<tr>
<td colspan="10" bgcolor="#99cc00">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <font color=red><% if grad<>"" then
%>高<%=grad%><%end if%></font><% if xid<>"" then
%>年级(<font color=red> <%=xid%></font>)班 下<%end if%> <% if xid="" and grad<>"" then
%>年级下<%end if%>所有已注册学生 排序：<input type="radio" class="234noborder" value="OrderbyID" name="ROrder" <%if ROrder = "" or IsNull(ROrder) or Lcase(ROrder) = Lcase("OrderbyID") then%>checked<%end if%> onclick="JavaScript:CheckROrder();">注册时间
<input type="radio" class="234noborder" value="OrderbyKhit" name="ROrder" <%if Lcase(ROrder) = Lcase("OrderbyKhit") then%>checked<%end if%> onclick="JavaScript:CheckROrder();">登录次数
<input type="radio" class="234noborder" value="Orderbyketi" name="ROrder" <%if Lcase(ROrder) = Lcase("Orderbyketi") then%>checked<%end if%> onclick="JavaScript:CheckROrder();">登陆密码
<input type="radio" class="234noborder" value="OrderbyJOIN" name="ROrder" <%if Lcase(ROrder) = Lcase("OrderbyJOIN") then%>checked<%end if%> onclick="JavaScript:CheckROrder();">参与课题数<input type="radio" class="234noborder" value="Orderbysh" name="ROrder" <%if Lcase(ROrder) = Lcase("Orderbysh") then%>checked<%end if%> onclick="JavaScript:CheckROrder();">待审核
</td>
<td width="90"><table border="0" width="100%" cellspacing="0" cellpadding="0" id=TableDisplaySearch>
<tr>
<td align="center">
<a href="javascript:ShowTableSearch();"><img alt="显示列表检索窗体界面" border=0 height=9 src="images/ShowDown.gif" width=9> <font color="gray" title="显示列表检索窗体界面">显示查询窗体</font></a>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%if rs1.Recordcount=0 then%>
<tr align="center">
<td bgcolor="#f0f0f0" colspan="10"><FONT COLOR="#FF0099">暂时无法搜索到你要的资料</FONT></td>
</tr>
<%else%>
<tr align="center">
<td bgcolor="#f0f0f0" >用户名</td>
<td bgcolor="#e5e5e5" >真实姓名</td>
<td bgcolor="#f0f0f0" >性别</td>
<td bgcolor="#e5e5e5" >学号</td>
<td bgcolor="#e5e5e5" >密码答案</td>
<td bgcolor="#f0f0f0" >年级班级</td>
<td bgcolor="#e5e5e5" >登陆密码</td>
<td bgcolor="#f0f0f0" >所选课程</td>
<td bgcolor="#e5e5e5" >操作</td>
</tr>
<%
if totalCount mod maxpage =0 then
Pcount = totalCount \ maxpage
else
Pcount = totalCount \ maxpage +1
end if
rs1.movefirst
if start>Pcount then start=Pcount
rs1.move (start-1)*maxpage
pagecount=0
para123="student"
do while not rs1.EOF and pagecount<maxpage %>
<tr align="center">
<td bgcolor="#f0f0f0"><A href="#" onclick="javascript:window.open('DispUser.ASP?name=<%=rs1("name")%>','broad','menubar=no,scrollbars=yes,resizable=yes,width=600,height=400,left=150,top=200')" ><%=rs1("name")%></A></td>
<td bgcolor="#e5e5e5" align="center"> <%=rs1("rename")%> </td>
<td bgcolor="#f0f0f0" align="center"><%if rs1("sex")=1 then%>男<%else%>女<%end if%></td>
<td bgcolor="#e5e5e5" align="center"><%=rs1("xuehao")%></td>
<td bgcolor="#e5e5e5" align="center"><%=rs1("Sanswer")%></td>
<td bgcolor="#f0f0f0" align="center">高<%=rs1("nianji")%>(<%=rs1("class")%>)班</td>
<td bgcolor="#e5e5e5" align="center">
<%=rs1("wuyongde")%></td>
<td bgcolor="#f0f0f0" align="center">
<%
kcid=rs1("SXKC")
if kcid= "" or IsNULL(kcid) then
response.write "暂未选"
else
set RS=Server.CreateObject("ADODB.Recordset")
SQL="select * from 教师表_teacher where id="&kcid&""
RS.open SQL,conn,1,1
if RS.Recordcount<1 then
else
%>
<%=rs("kcbh")%>
<%
end if
rs.close
set rs=nothing
end if
%></td>
<td bgcolor="#e5e5e5">
<a href="XSZCSH.ASP?id=<%=rs1("id")%>" onclick="javascript:window.open(this.href,'','WIDTH=400,HEIGHT=200,left=150,top=200,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,menu=no,menubar=no,min=no,max=no');return false;" title="审核是否允许注册"><% if rs1("SH")=0 then%><font color="#FF0000">待审核</font><%end if %>
<%if rs1("SH")=1 then %><font color="#009900">已审核</font><%end if%>
<%if rs1("SH")=2 then %><font color="#009900">禁止注册</font><%end if%></a> || <a href="password_xg.asp?name=<%=replace(rs1("xuehao")," "," ")%>&UserType=student" onclick="javascript:window.open(this.href,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,menu=no,menubar=no,min=no,max=no');return false;" title="修改密码"><font color="#FF0000">密码修改</font></a> ||<a href=xs_kc_zx.asp?ArticleID=<%=rs1("ID")%> onClick="javascript:return confirm('您确认在重选此条记录吗，该操作将不可恢复!');" title="重选除该用户"> <font color="#ff0088">重选</font></a></td>
</tr>
<%
pagecount=pagecount+1
rs1.MoveNext
loop
end if
%>
<tr bgcolor="#99cc00">
<td colspan=10> <div align="right">
<% call list()%></div></td>
</tr>
</table></td>
</tr>
</table> </td></form>
</tr>
</table>
<!--#include file="dibu.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function delConfirm(id){
if (confirm('确定要重选除本课题吗？\n这将同时重选掉本课题下所有研究成果！\n建议将这些研究成果转移到其它课题下，然后再重选除本课题！')) {
window.location.href="delKeti.asp?KID="+id;
return true;
}
return;
}
//-->
</SCRIPT>
</body>
</html>
<%
rs1.close
conn.close
%>
<%
SUB LIST()
set RS =Server.CreateObject("ADODB.Recordset")
infolist="select * from 学生表_student where SXKC<>'' "
RS.open infolist,conn,1,1
TotalCount=RS.Recordcount
rs.close
set rs=nothing
response.write ("<table cellpadding=0 cellspacing=3 border=0 width=100% align=center ><tr><td valign=middle nowrap>系统共有<b>"&totalCount&"</b>个"&Xname&"用户，共有<B> "&TotalCount &"</B>名学生选好课了！每页显示"&maxpage&"个，共<b><font color=red>"&Pcount&"</font></b>页")
if cint(request("start"))<=1 then
response.write ("</td><td align=center><font face=Webdings>3</font>上一页 ")
else
response.write ("</td><td align=center><font face=Webdings>3</font><a href='?start="&toback&"&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>上一页</A> ")
end if
if cint(request("start"))>=Pcount then
response.write ("下一页<font face=Webdings>4</font></td><td align=right>")
else
response.write ("<a href='?start="&tonext&"&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>下一页</a><font face=Webdings>4</font></td><td align=right>")
end if
'if start > Pcount then
' response.write "<a href='?start=1&&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>[1]</a> ..."
'end if
'if Pcount>start+3 then
' endpage=star+3
'else
' endpage=Pcount
'end if
'for i=start-3 to endpage
' if not i<1 then
' if i = clng(start) then
' response.write " <font color=#0000FF>["&i&"]</font>"
' else
' response.write " <a href='?start="&i&"&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>["&i&"]</a>"
' end if
' end if
'next
'if start+3 < Pcount then
' response.write "... <a href='?start="&Pcount&"&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>["&Pcount&"]</a>"
'end if
if Pcount>0 then
for i=1 to Pcount
response.write " <a href='?start="&i&"&id="&id&"&xid="&xid&"&GJC_1="&GJC_1&"&JSMB="&JSMB&"&ROrder="&ROrder&"'>"
if start=i then
response.write"<font color=red>"
end if
response.write "["&i&"]"
if start=i then
response.write"</font>"
end if
response.write "</a>"
next
end if
response.write "</td></tr></table>"
end sub
%>
<%
Sub TopSearch()'上部检索
%>
<SCRIPT language=JavaScript src="js/NumberInputJAVA.js"></SCRIPT>
<SCRIPT language=JavaScript>
<!--
function checkinput()
{
if ((frm_search.FBSJ_FROM_N.value !="")&&(frm_search.FBSJ_FROM_N.value.length !=4))
{
alert(" 新闻发布时间年份填4位！\r\n\r\n[1900～2050]");
frm_search.FBSJ_FROM_N.focus();
return false;
}
if ((parseInt(frm_search.FBSJ_FROM_N.value,10) >2050)||(parseInt(frm_search.FBSJ_FROM_N.value,10) <1900))
{
alert(" 请正确填写新闻发布时间年份！\r\n\r\n[1900～2050]");
frm_search.FBSJ_FROM_N.focus();
return false;
}
if ((frm_search.FBSJ_TO_N.value !="")&&(frm_search.FBSJ_TO_N.value.length !=4))
{
alert(" 新闻发布时间年份填4位！\r\n\r\n[1900～2050]");
frm_search.FBSJ_TO_N.focus();
return false;
}
if ((parseInt(frm_search.FBSJ_TO_N.value,10) >2050)||(parseInt(frm_search.FBSJ_TO_N.value,10) <1900))
{
alert(" 请正确填写新闻发布时间年份！\r\n\r\n[1900～2050]");
frm_search.FBSJ_TO_N.focus();
return false;
}
if ((frm_search.FBSJ_FROM_N.value !="") || (frm_search.FBSJ_FROM_Y.value !=" ") || (frm_search.FBSJ_FROM_R.value !=" "))
{
if (frm_search.FBSJ_FROM_N.value =="")
{
alert(" 『新闻发布时间-FROM』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_FROM_N.focus();
return false;
}
if (frm_search.FBSJ_FROM_Y.value ==" ")
{
alert(" 『新闻发布时间-FROM』-『年』-『月』-『日』填写完整。");
frm_search.FBSJ_FROM_Y.focus();
return false;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -