📄 test_setup.asp
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<%
set rs=conn.execute("select tname from term order by tid")
do while not rs.eof
sel_term=sel_term&"<option value='"&rs("tname")&"' selected>"&rs("tname")&"</option>"
rs.movenext
loop
set rs=nothing
%>
<!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="../../../../www.wyyz.com.cn/cf/inc/admin_style.css" type=text/css rel=stylesheet>
<script language="JavaScript">
function checktest(){
if(document.form1.testname.value=="")
{
alert("考试名称不能为空！");
document.form1.testname.focus();
return false;
}
var total=0;
var intmax=document.form1.chkbox.length;
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;
}
}
}
function ConfirmDel(){
if(confirm("确定要删除此考试吗？一日删除此考试信息，则此考试中的所有记录也将同时被删除！"))
return true;
else
return false;
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="22" valign="top" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)"><span class="style1"> </span><span class="topbg STYLE1"><strong>添加新考试设置</strong></span></td>
</tr>
</table>
<br>
<TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1></TD>
<td width="10" bgcolor="#f7f7f7"></td>
<TD bgcolor="#e6eeef"><form Name="form1" onSubmit="return checktest()" action="addtestname.asp" method="POST">
<table border="1" cellpadding="1" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td width="95" height="28" align="right">考试名称： </td>
<td width="288" height="28"> <input Name="testname" type="text" size="40" id="testname"></td>
<td width="498"><font size="2">
凡科目不同的或一级分类不同的考试，建议单独设为一次考试。例如：高三理科2009.5期中考试，高三文科2009.5期中考试，高一2009.5期中考试，××县2009年理科高考。<font color="#FF0000">一次考试的成绩应该是可由一个Excel文件一次性批量导入的</font>。</font></td>
</tr>
<tr>
<td height="31" align="right">所属时段：</td>
<td height="31"><label>
<select name="term" id="term">
<%=sel_term%>
</select>
</label> </td>
<td height="31"><font size="2">每次考试(包括招生升学)都要置于某个时段。</font></td>
</tr>
<tr>
<td height="31" align="right">考试科目：</td>
<td height="31" colspan="2"><%
set rs=conn.execute("SELECT * from subject ORDER BY id ASC")
If Not rs.EOF Or Not rs.BOF Then
response.Write "<br><table border='0' cellspacing='0' cellpadding='0'><tr>"
i=1
rs.MoveFirst
While (Not rs.EOF)
subjectnamestr=rs.Fields.Item("SubjectName").Value
response.Write("<td width='260'><input name='chkbox' type='checkbox' value='" & subjectnamestr & "' checked >")
Response.write " <font color=#ff0000>"&subjectnamestr & "</font> </td> "
if (i)>0 and (i mod 6 =0) then response.write "</tr><tr>"
rs.MoveNext
i=i+1
Wend
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
rs.Requery
End If
response.Write "</tr></table>"
%>
<br>
<font size="2"> 注意：选择当次考试的科目，请不要漏选也不要多选，否则会给导入数据带来麻烦！“总分”栏建议不要选取
（如有显示的话），需要的话可在科目设置中添加“合计”项，并在这里选取它。</font><p> <a href="Subject_setup.asp">科目管理>>></a>
<% Else %>
找不到任何考试科目，请进入“<a href="subject_setup.asp">科目设置</a>”添加考试科目！
<% End If %>
</td>
</tr>
<tr align="center">
<td height="30" colspan="3"><input type="submit" Name="Submit" value="添加考试" >
<input name="is_insert" type="hidden" id="is_insert" value="true"></td>
</tr>
</table>
</form>
<strong>已有的考试：</strong><br>
<%
set rs1= Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT * FROM testmdb ORDER BY testid ASC"
rs1.open sql1,conn,1,1 %>
<table width="98%" border="1" cellpadding="3" cellspacing="0" bordercolor="#3b839f">
<tr>
<td width="31" height="20" align="center"><font size="2">序号</font></td>
<td width="148" height="20" align="center"><font size="2">考试名称</font></td>
<td width="193" height="20" align="center"><font size="2">所属学期</font></td>
<td width="379" align="center"><font size="2">参与考试科目</font></td>
<td width="73" height="20" align="center"><font size="2">操作</font></td>
</tr>
<%
i=1
While (NOT rs1.EOF)
strtestid=rs1("testid").value
testname=rs1("TestName").value
%>
<tr>
<td height="20" align="center"><font size="2"><%=i%></font></td>
<td height="20" align="center"><font size="2"><%=testname%></font></td>
<td height="20" align="center"><font size="2"><%=rs1("term")%></font></td>
<td height="20" align="center"><font size="2"><%
set rssubject=conn.execute("select * from subjectks where testname='"&testname&"' order by id")
response.Write("<table border='0' cellspacing='0' cellpadding='3'><tr>")
if rssubject.eof then
response.write "<td>暂无考试科目</td></tr></table>"
else
do while not rssubject.eof
Response.write "<td>" & rssubject("subjectname") & "</td>"
if (i+1-5)>0 and ((i+1-5) mod 8 =0) then response.write "</tr><tr>"
rssubject.movenext
loop
response.Write("</tr></table>")
end if
Set rsSubject = Nothing
%></font></td>
<td height="20" align="center"><A HREF="TestModify.asp?id=<%=strtestid%>">
<font size="2">修改</font></A><font size="2"> </font><A HREF="TestDel.asp?id=<%=strtestid%>&testname=<%=testname%>" onClick="return ConfirmDel()"><font size="2">删除</font></A></td>
</tr>
<%
i=i+1
rs1.MoveNext()
Wend
%>
</table>
<br>
<% 'End If ' end Not rs.EOF Or NOT rs.BOF %>
<% If rs1.EOF And rs1.BOF Then %>
<p align="center">找不到任何考试，请添加考试！<br>
<br>
</p>
<% End If ' end rs.EOF And rs.BOF
rs1.Close()
Set rs1 = Nothing
%> </td>
<TD width=1 ></TD>
</TR>
<tr>
<TD height="1" colspan="6" ></TD>
</tr>
</TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -