📄 testmanage.asp

📁 很好的学籍管理系统代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
End Function
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>考试管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function checktest(){
var total=0;
var intmax=document.form1.chkbox.length;
var strSheetName=document.form1.SheetName.value;
if(intmax>1){
  for(var idx=0;idx<intmax;idx++){
    if(eval("document.form1.chkbox[" + idx + "].checked")==true){
      total+=1;
    }
  }
  if(total==0){
    alert("您未选择任何科目！");
    document.form1.chkbox[0].focus();
    return false;
  }
}
else{
  if(document.form1.chkbox.checked==false){
    alert("您未选择任何科目！");
    document.form1.chkbox.focus();
    return false;
  }
}

if(document.form1.TestName.value=="")
  {
   alert("考试名称不能为空！");
   document.form1.TestName.focus();
   return false;
   }
if(document.form1.TestName.value=="2002学年上学期")
  {
   alert("请不要偷懒！请录入完整的考试名称后再点“添加考试”按钮。");
   document.form1.TestName.focus();
   return false;
   }

if(strSheetName=="")
  {
   alert("数据库对应表名不能为空！");
   document.form1.SheetName.focus();
   return false;
   }
if(strSheetName=="CQZX2002A")
  {
   alert("请不要偷懒！请录入完整的数据库表名后再点“添加考试”按钮。");
   document.form1.SheetName.focus();
   return false;
   }

if(isNaN(strSheetName.substr(0,1))==false)
  {
   alert("数据库对应表名不能以数字开头！");
   document.form1.SheetName.focus();
   return false;
  }
}

function ConfirmDel(){
if(confirm("确定要删除此考试吗？一日删除此考试信息，则此考试中的所有记录也将同时被删除！"))
  return true;
else
  return false;
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<% if Request("Err")="Char" Then %>
<script language="JavaScript" type="text/JavaScript">
alert("考试名称中含有“!@#$%^&*()-+=,./?<>[]{}\|~“等非法字符，操作被取消！");
</script>
<% End If %>
<!--#include file="TestManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
      <TD Width="100" align="center" bgcolor="#EEEEEE">&nbsp;</TD>
      <td width="10" bgcolor="#F2FBF2"></td>
      <TD bgcolor="#F2FBF2"><a href="TestManage.asp"><img src="images/TestManage_Title.GIF" width="500" height="60" border="0"></a><br>
        <form Name="form1" onsubmit="return checktest()" method="POST" action="<%=MM_editAction%>">
          <b>添加新考试：</b> 
          <table border="1" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
            <tr> 
              <td width="117" height="30" align="right">考试名称： </td>
              <td height="30"> <input Name="TestName" type="text" value="2002学年上学期"> </td>
              <td>例如：2002学年上学期第五次统测 </td>
            </tr>
            <tr> 
              <td height="30" align="right">数据库对应的表名：</td>
              <td height="30"> <input Name="SheetName" type="text" value="CQZX2002A"> </td>
              <td height="30"><font color="#0000FF">※</font><font color="#FF0000">表名不能以数字或符号开头，必须以字母开头。<br>
                <font color="#0000FF">※</font>表名中不能含有符号或“!@#$%^&amp;*()-+=|\,./?[]{}”等字符，为减少错误，请只用“字母+数字”的组合。</font><strong><br>
                <br>
                推荐命名规则：</strong><font color="#0000FF">学校名+学年+学期+考试名</font><br>
                例如：CQZX2002BTC5<br>
                &nbsp;&nbsp;&nbsp; &nbsp;其中，“CQZX”表示城区中学，“2002”表示2001学年，“A”表示下学期，TC5表示第五次统测</td>
            </tr>
            <tr> 
              <td align="right" valign="middle">考试科目：</td>
              <td colspan="2"> 
                <% If Not Recordset2.EOF Or Not Recordset2.BOF Then
response.Write "<table border='0' cellspacing='0' cellpadding='3'><tr>"
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
	response.Write("<td><input name='chkbox' type='checkbox' value='" & Recordset2.Fields.Item("SubjectName").Value & "' checked>")
	response.Write(Recordset2.Fields.Item("SubjectName").Value)
	if Repeat2__numRows mod 8 =0 then response.write "</tr><tr>"
	Repeat2__index=Repeat2__index+1
	Repeat2__numRows=Repeat2__numRows-1
	Recordset2.MoveNext()
Wend
response.Write("</tr></table>")
If (Recordset2.CursorType > 0) Then
  Recordset2.MoveFirst
Else
  Recordset2.Requery
End If
%>
                <br>
                <a href="SubjectManage.asp" target="_blank">考试科目管理&gt;&gt;&gt;</a>
				<% Else %>
                找不到任何考试科目，请首先进入“<a href="SubjectManage.asp">考试科目管理</a>”模块添加考试科目！ 
                <% End If %>
				</td>
            </tr>
            <tr align="center"> 
              <td height="30" colspan="3"><input type="hidden" name="MM_insert" value="true"> 
                <input type="submit" Name="Submit" value="添加考试" <% If Recordset2.EOF And Recordset2.BOF Then response.write "disabled" %> > </td>
            </tr>
          </table>
        </form>
		<strong>已有的考试：</strong><br>
        <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
        <table border="1" cellspacing="0" cellpadding="3" bordercolor="#CC9900">
          <tr> 
            <td height="20" align="center">序号</td>
            <td height="20" align="center">考试名称</td>
            <td height="20" align="center">数据库对应的表名</td>
            <td align="center">已有的考试科目</td>
            <td height="20" align="center">操作</td>
          </tr>
          <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
          <tr> 
            <td height="20" align="center"><%=(Recordset1.Fields.Item("id").Value)%></td>
            <td height="20" align="center"><%=(Recordset1.Fields.Item("TestName").Value)%></td>
            <td height="20" align="center"><%=(Recordset1.Fields.Item("SheetName").Value)%></td>
            <td> 
              <%
Dim rsSubject
Dim rsSubject_numRows

Set rsSubject = Server.CreateObject("ADODB.Recordset")
rsSubject.ActiveConnection = MM_StudentConn_STRING
rsSubject.Source = "SELECT * FROM " & Recordset1.Fields.Item("SheetName").Value
rsSubject.CursorType = 0
rsSubject.CursorLocation = 2
rsSubject.LockType = 1
rsSubject.Open()

rsSubject_numRows = 0
response.Write("<table border='0' cellspacing='0' cellpadding='3'><tr>")
For i = 5 to rsSubject.Fields.Count - 1 
	Response.write  "<td>" & rsSubject.Fields(i).Name & "</td>"
	if (i+1-5)>0 and ((i+1-5) mod 8 =0) then response.write "</tr><tr>"
next
response.Write("</tr></table>")
rsSubject.Close()
Set rsSubject = Nothing
%>
            </td>
            <td height="20" align="center"><A HREF="TestModify.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>">修改</A>&nbsp;<A HREF="TestDel.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value & "&SheetName=" & Recordset1.Fields.Item("SheetName").Value %>"  onClick="return ConfirmDel()">删除</A></td>
          </tr>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
        </table>
        <br> 
        <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
        <% If Recordset1.EOF And Recordset1.BOF Then %>
        <p align="center">找不到任何考试，请添加考试！<br>
          <br>
        </p>
        <% End If ' end Recordset1.EOF And Recordset1.BOF %>
      </td>
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
    </TR>
    <tr> 
      <TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
    </tr>
  </TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>    <td>		<Iframe src="http://cqzx.sdedu.net/sdms/CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>	</td>  </tr></table></BODY>
</HTML>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -