📄 testmodify.asp
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<%
testid=request.QueryString("id")
set rs=conn.execute("select tname from term order by tid")
do while not rs.eof
sel_term=sel_term&"<option value='"&rs("tname")&"'>"&rs("tname")&"</option>"
rs.movenext
loop
set rs=nothing
sql = "SELECT * FROM testmdb where testid="&testid&""
set rs=conn.execute(sql)
testname=rs("testname").value
term=rs("term").value
sel_term=sel_term&"<option value='"&term&"' selected>"&term&"</option>"
%>
<!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="../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?action=moditest&id=<%=testid%>" method="POST">
<table border="1" cellpadding="1" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td width="117" height="28" align="right">考试名称： </td>
<td width="268" height="28"> <input Name="testname" type="text" id="testname" value="<%=rs("testname")%>" size="40"> </td>
<td width="470">例如：初一期末考试，初一第一次月考等，但不能重复。</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"> </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>
<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="修改考试" <% If rs.EOF And rs.BOF Then response.write "disabled" %> >
<input name="is_insert" type="hidden" id="is_insert" value="true"></td>
</tr>
</table>
</form>
<strong>已有的考试：</strong><br>
<% If Not rs.EOF Or Not rs.BOF Then
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">序号</td>
<td width="148" height="20" align="center">考试名称</td>
<td width="193" height="20" align="center">所属学期</td>
<td width="379" align="center">参与考试科目</td>
<td width="73" height="20" align="center">操作</td>
</tr>
<%
i=1
While (NOT rs1.EOF)
strtestid=rs1("testid").value
testname=rs1("TestName").value
%>
<tr>
<td height="20" align="center"><%=i%></td>
<td height="20" align="center"><%=testname%></td>
<td height="20" align="center"><%=rs1("term")%></td>
<td height="20" align="center"><%
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
%></td>
<td height="20" align="center"><A HREF="TestModify.asp?id=<%=strtestid%>">修改</A> <A HREF="TestDel.asp?id=<%=strtestid%>&testname=<%=testname%>" onClick="return ConfirmDel()">删除</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
end if %> </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 + -