📄 test.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<script language=javascript>
function btnadd()
{
window.navigate("testadd.asp");
}
function btnedit()
{
if ((document.form1.pd.value=="") || (document.form1.xz.value=="") || (document.form1.tk.value==""))
{alert("你提交的为空记录！");
document.form1.pd.focus();
return false;}
if ((document.form1.pd.value!="" )&&(document.form1.pds.value=="" ))
{alert("数据不全！");
document.form1.pds.focus();
return false;}
if ((document.form1.xz.value!="" )&&(document.form1.xzs.value=="" ))
{alert("数据不全！");
document.form1.xzs.focus();
return false;}
if ((document.form1.tk.value!="" )&&(document.form1.tks.value=="" ))
{alert("数据不全！");
document.form1.tks.focus();
return false;}
if (document.form1.ttime.value=="")
{alert("请输入考试时间");
document.form1.ttime.focus();
return false;
}
if (document.form1.ttime.value!="")
{if (isNaN(document.form1.ttime.value))
{alert("请输入数字！");
document.form1.ttime.focus();
return false;
}
}
document.form1.ctype.value="edit";
document.form1.submit();
}
</script>
<%flag=0
flags=0
sqlfind="select * from test order by id desc"
set rss=conn.execute(sqlfind)
if rss.eof then
flag=1
title="<font color=red> 暂无 </font>"
else
set rs=conn.execute("select top 1 * from test order by id desc")
title="第 <font color=red> "&rs("id")&" </font> 期"
end if
if trim(request("ctype"))="edit" then
if request("c1")="on" then
flags=1
sqledit="update test set 判断题数="&trim(request("pd"))&",判断题每题分数="&trim(request("pds"))&",设置日期='"&date()&"',考试时间="&trim(request("ttime"))&" where id="&rs("id")
set rsedit=conn.execute(sqledit)
end if
if request("c2")="on" then
flags=1
sqledit="update test set 选择题数="&trim(request("xz"))&",选择题每题分数="&trim(request("xzs"))&",设置日期='"&date()&"',考试时间="&trim(request("ttime"))&" where id="&rs("id")
set rsedit=conn.execute(sqledit)
end if
if request("c3")="on" then
flags=1
sqledit="update test set 填空题数="&trim(request("tk"))&",填空题每题分数="&trim(request("tks"))&",设置日期='"&date()&"',考试时间="&trim(request("ttime"))&" where id="&rs("id")
set rsedit=conn.execute(sqledit)
end if
sqledit="update test set 设置日期='"&date()&"',考试时间="&trim(request("ttime"))&" where id="&rs("id")
set rsedit=conn.execute(sqledit)
flags=1
if flags=1 then
%>
<script language=javascript>
alert ("修改成功！");
now=new Date();
window.navigate("test.asp?time="+now.getTime());
</script>
<%else%>
<script language=javascript>
alert ("请选择要修改项！");
</script>
<%end if
end if %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生党校网上测试系统</title>
<link rel="stylesheet" type="text/css" href="../css.css">
</head>
<body topmargin="0" leftmargin="0">
<p>
<p align="center"><font class=test1>试卷管理理</font></p>
<div align="center">
<center>
<form name=form1 action="">
<input type="hidden" name="ctype" >
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400">
<tr>
<td align="center" colspan="4"><%=title%> 考卷设置（最新一期的）</td>
</tr>
<tr>
<td align="center" bgcolor="#CBEFDC">编号</td>
<td align="center" bgcolor="#CBEFDC">数目</td>
<td align="center" bgcolor="#CBEFDC">分数</td>
<td align="center" bgcolor="#CBEFDC">修改</td>
</tr>
<%if flag=1 then%>
<tr>
<td align=center colspan="4"><font color=red>暂无考卷设置信息</font></td></tr>
<%else%>
<tr>
<td align="center">判断题</td>
<td align="center"> <input type="text" name="pd" size="5" class="line" value=<%=rs("判断题数")%>></td>
<td align="center">
<input type="text" name="pds" size="5" class="line" value=<%=rs("判断题每题分数")%>></td>
<td align="center">
<input type="checkbox" name="C1" value="on"></td>
</tr>
<tr>
<td align="center" bgcolor="#E9F8F0">选择题</td>
<td bgcolor="#E9F8F0" align="center">
<input type="text" name="xz" size="5" class="line" value=<%=rs("选择题数")%>></td>
<td align="center" bgcolor="#E9F8F0">
<input type="text" name="xzs" size="5" class="line" value=<%=rs("选择题每题分数")%>></td>
<td align="center" bgcolor="#E9F8F0">
<input type="checkbox" name="C2" value="on"></td>
</tr>
<tr>
<td align="center">填空题</td>
<td align="center">
<input type="text" name="tk" size="5" class="line" value="<%=rs("填空题数")%>"></td>
<td align="center">
<input type="text" name="tks" size="5" class="line" value=<%=rs("填空题每题分数")%>></td>
<td align="center">
<input type="checkbox" name="C3" value="on"></td>
</tr>
<%end if %>
<tr>
<td colspan="4" align="center">
考试时间 <input type="text" name="ttime" size="5" value=<%=rs("考试时间")%>> 分钟</td>
</tr>
<tr>
<td colspan="4" align="center">
<input type="button" value="增加" name="B1" onclick="btnadd()">
<%if flag=0 then%>
<input type="button" value="修改" name="B1" onclick="btnedit()">
<input type="reset" value="重置" name="B2">
<%end if %></td>
</tr>
</table>
</form>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400">
<%while not rss.eof %>
<tr>
<td>◆ 第 <%=rss("id")%> 期（判断题 <%=rss("判断题数")%> 道/ <%=rss("判断题每题分数")%> 分，选择题 <%=rss("选择题数")%> 道/ <%=rss("选择题每题分数")%> 分，填空题 <%=rss("填空题数")%> 道/ <%=rss("填空题每题分数")%> 分）</td>
</tr>
<%rss.movenext
wend%>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -