admincreatepaper2.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 225 行
ASP
225 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试卷基本信息</title>
<script language="javascript">
function submitit(myform)
{
if (document.all.shenhr.value=="选择审核人")
{
alert("审核人不能为空！");
return false;
}
else if (document.all.moniUser.value=="选择监考人")
{ alert("监考人不能为空！");
return false;
}
else
{
result="确认无误？"
if (confirm(result))
{
myform.action="admincreatepaper3.asp";
return true;
}
else
return false;
}
}
function xianshisubmit(myform)
{ myform.action="admincreatepaper2.asp?knowledgekey=<%=request("knowledgekey")%>";
myform.submit();
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> > 生成试卷</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="80"><img src="images/3.jpg" width="80" height="30"></td>
<td> </td>
</tr>
</table>
<form method="POST" name="secondform" action="admincreatepaper3.asp" onSubmit="return submitit(this.form)">
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%" id="AutoNumber1" bordercolor="#C0C0C0">
<tr height="20">
<td colspan="5" bgcolor="#E1E1E1" align="center">
<p align="center"><b><font size="2">确定参加考试人员</font></b></td>
</tr>
<tr height="20">
<td colspan="5" bgcolor="#E1E1E1" align="center"><div align="left">
<select size="1" name="dep" onChange="xianshisubmit(this.form)">
<option selected >-请选择院系-</option>
<option value="所有院系">所有院系</option>
<%
sql_d="select * from department_info where DepID >0"
set rs_d=server.createobject("adodb.recordset")
rs_d.open sql_d,conn,3,2
do while not rs_d.eof %>
<option value="<%=rs_d("DepID")%>"><%=rs_d("DepName")%></option>
<%
rs_d.movenext
loop
rs_d.close
set rs_d=nothing
%>
</select>
</div></td>
</tr>
<tr height="20">
<td width="20" bgcolor="#E1E1E1">
<p align="center"> </td>
<td bgcolor="#EFEFEF"><b> 姓名</b></td>
<td bgcolor="#EFEFEF"><b> 班级</b></td>
<td bgcolor="#EFEFEF"><b> 院系</b></td>
<td bgcolor="#EFEFEF"><b> 学校</b></td>
</tr>
<%
v_depID=request("dep")
v_depID=trim(v_depID)
' v_schoolID=request("school")
' v_schoolID= trim(v_schoolID)
' v_classID=request("class")
' v_classID= trim(v_classID)
if v_depID="所有院系" or v_depID ="" then
sql="select * from user_info where Dep_ID<>0 and Role_ID<>1"
else
v_depID=trim(v_depID)
sql="select * from user_info where Dep_ID="&v_depID&" and Role_ID<>1"
end if
' sql="select * from user_info"
'response.Write(sql)
'response.End()
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
while not rs.eof
v_CollegeID=rs("College_ID")
v_DepID=rs("Dep_ID")
v_ClassID=rs("Class_ID")
' to search the college name into v_collegeName from table college_info
sql1="select * from college_info where CollegeID="&v_CollegeID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
v_collegeName=rs1("CollegeName")
rs1.close
set rs1=nothing
' to search the DepName into v_depname from table department_info
sql1="select * from department_info where DepID="&v_DepID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
v_depname=rs1("DepName")
rs1.close
set rs1=nothing
sql1="select * from class_info where ClassID="&v_ClassID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
'response.Write(rs1("ClassName"))
'response.End()
v_classname=rs1("ClassName")
rs1.close
set rs1=nothing
%>
<tr height="20">
<td bgcolor="#E1E1E1">
<input type="checkbox" name="userid" value="<%=rs("UserID")%>" checked></td>
<td> <%=rs("UserRName")%></td>
<td> <%=v_classname%></td>
<td> <%=v_depname%></td>
<td> <%=v_collegeName%></td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
<tr>
<td colspan="5" bgcolor="#E1E1E1"><select size="1" name="shenhr">
<option value="选择审核人" selected>选择审核人</option>
<%
sql="select * from user_info where Role_ID=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof %>
<option value="<%=rs("UserID")%>"><%=rs("UserRName")%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select></td>
</tr>
<tr>
<td height="42" colspan="5" bgcolor="#E1E1E1"><p>
<select size="1" name="moniUser">
<option value="选择监考人" selected>选择监考人</option>
<%
msql="select * from user_info where Role_ID=1"
set mrs=server.createobject("adodb.recordset")
mrs.open msql,conn,3,2
do while not mrs.eof %>
<option value="<%=mrs("UserID")%>"><%=mrs("UserRName")%></option>
<% mrs.movenext
loop
mrs.close
set mrs = nothing
%>
</select>
</p>
<p>
</p></td>
</tr>
<tr>
<td height="38" colspan="5" bgcolor="#E1E1E1"><div align="right">
<input type="submit" name="Submit" value="生成试卷(并预览)>>">
</div></td>
</tr>
</table>
<%
'将知识点存入paper_info表中
v_PaperID=session("TempPaperid")
Flag=session("Flag")
sql="select * from paper_info where PaperID="&v_PaperID&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
rs("PKnow_ID")=request("knowledgekey")
rs.update
rs.close
%>
</form>
<%conn.close
set conn = nothing%>
</body>
</head>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?