?? administrator.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xuanke.asp" -->
<!--#include file="include/is_admin.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>歡迎管理員</title>
<script language="javascript" src="JS\inc.js"></script>
<style type="text/css">
<!--
@import url("style.css");
.STYLE1 {
font-size: 12px;
color: #FF0000;
}
.STYLE2 {font-size: 14px}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<%
student_no=request.Form("student_no")
%>
</head>
<body>
<table width="706" height="464" border="0" align="center" class="table_big">
<tr>
<td valign="top">
<!--#include file="include/admin_head.asp" -->
<br>
<table width="716" height="138" border="0" align="center" cellpadding="2" cellspacing="1" class="table_small">
<tr> </tr>
<tr>
<td height="7" colspan="9" align="left" bordercolor="#0033FF" background="image/type_bg.gif" class="text_title"><div align="left">歡迎管理員登錄： </div></td>
</tr>
<tr>
<td height="8" colspan="9" align="left" bordercolor="#0033FF" class="text_title"><form name="form1" method="post" action="">
<label></label>
按學號查找學生
<input name="student_no" type="text" id="student_no" size="20">
<label>
<input type="submit" name="Submit" value="查詢">
</label>
</form></td>
</tr>
<tr>
<td colspan="9" align="left" bordercolor="#0033FF"><table width="713" border="0" align="center" cellpadding="1" cellspacing="1" class="one">
<tr>
<td width="705"><span class="text">
<%
dim rs_preengage,sql,delurl
'打開數據庫--------------
set rs_preengage=server.CreateObject("adodb.recordset")
if request.Form("student_no")="" then
sql = "SELECT course.*,class.*,preengage.*,student.* FROM student,preengage,course,class where student.id_no=preengage.p_id_no and preengage.p_csno=class.id and course.cno=class.courseno"
rs_preengage.PageSize=10
rs_preengage.open sql,xuanke_conn,3,2
else
sql1="SELECT course.*,class.*,preengage.*,student.* FROM student,preengage,course,class where student.id_no=preengage.p_id_no and preengage.p_csno=class.id and course.cno=class.courseno and student_no='"&student_no&"'"
rs_preengage.PageSize=200
rs_preengage.open sql1,xuanke_conn,3,2
end if
if not(rs_preengage.eof or rs_preengage.bof) then
%>
<!--#include file="ChangePage.asp"-->
<%Call ChangePage("administrator.asp")%>
</span></td>
</tr>
</table>
<div align="center" class="text"></div></td>
</tr>
<tr class="text_title">
<td width="60" align="left" bordercolor="#0033FF"><div align="left">學生姓名</div></td>
<td width="67" align="left" bordercolor="#0033FF"><div align="left">學生密碼</div></td>
<td width="61" align="left" bordercolor="#0033FF"><div align="left">專業和班級</div></td>
<td width="60" align="left" bordercolor="#0033FF"><div align="left">學號</div></td>
<td width="68" align="left" bordercolor="#0033FF"><div align="left">選擇課題</div></td>
<td width="40" align="left" bordercolor="#0033FF"><div align="left">志愿 </div></td>
<td width="60" align="left" bordercolor="#0033FF"><div align="center">操作</div></td>
</tr>
<%For i=1 to rs_preengage.PageSize%>
<tr class="text">
<td align="left" bordercolor="#0033FF"><div align="left"><%= rs_preengage("name") %></div></td>
<td align="left" bordercolor="#0033FF"><div align="left"><%= rs_preengage("s_pw") %></div></td>
<td align="left" bordercolor="#0033FF"><div align="left"><%= rs_preengage("classes") %></div></td>
<td align="left" bordercolor="#0033FF"><div align="left"><%= rs_preengage("student_no")%></div></td>
<td align="left" bordercolor="#0033FF"><div align="left"><%= rs_preengage("cname") %></div></td>
<%if rs_preengage("p_zhiyuan")=1 then
s="第一志愿"
end if
if rs_preengage("p_zhiyuan")=2 then
s="第二志愿"
end if
if rs_preengage("p_zhiyuan")=3 then
s="第三志愿"
end if
%>
<td align="left" bordercolor="#0033FF"><div align="left"><%=s%></div></td>
<script language="javascript">
<!--
function deleter()
{
if(confirm("確定要刪除該學生!"))
{
return true;
}
else
{
return false;
}
}
// -->
</script>
<%delurl="del_preengage.asp?preengage_id=" & rs_preengage("preengage_id")%>
<td align="left" bordercolor="#0033FF"><div align="center">[<a href="<%=delurl%>" onClick="return (deleter())">刪除</a>]</div></td>
</tr>
<%
Response.Write "</td></tr>"
rs_preengage.MoveNext
'如果記錄已到末尾則退出循環
If rs_preengage.EOF Then Exit For
Next
Response.Write "</table>"
Response.Write "</form>"
rs_preengage.Close
%>
<%else%>
<tr>
<td colspan="9" align="left" bordercolor="#0033FF"><span class="STYLE1">現在還沒有人選課！</span></td>
</tr>
<tr>
<td colspan="8" align="left" bordercolor="#0033FF"> </td>
</tr>
</table>
<%end if%>
<!--#include file="include/foot.asp" -->
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -