?? 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 + -