📄 designer.asp
字号:
<%@ Language=VBScript%>
<%option explicit
dim todaydate
todaydate= date
dim AdminID
AdminID =session ("AdminID")
'''''''''''''''''''''''''''''''''''''''''''''''''''
%> <!-- #INCLUDE FILE = "connect_ama.asp" -->
<!-- #INCLUDE FILE = "Rec2Table.asp" -->
<%
dim objRS
set objRS = server.createobject("ADODB.recordset")
objRS.open "q_bank",myconn,3
'3=adOpenStatic,then only myrs.recordcount will work
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
''request from same page save button''
if request.form("save")="保存试卷" and request.form("exam_name")<>"" then
AdminID = session("adminid")
dim myrs
set myrs = server.createobject("ADODB.recordset")
myrs.open "all_exams",myconn,1,3
''removing 1,3 will give error!
myrs.addnew
myrs("ExamName").value= request.form("exam_name")
myrs("adminID").value= AdminID
myrs("DateCreated").value= Date
myrs("totalQuestions").value= cint(request.form("total_q"))
myrs("sq_id").value= request.form("q_id1")
myrs("eq_id").value= request.form("q_id2")
myrs("code").value= request.form("code")
myrs("PPercentage").value= cint(request.form("pp"))
myrs("expireDate").value= DateAdd ("d", cint(Request.Form("days") ), Date)
myrs("totalTime").value= cint(request.form("totaltime"))
myrs.update
myrs.close
end if
'''''''''''''''''''''''''''''''''''''''
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Exam Paper Designer</title>
</head>
<body>
<table width="80%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><font size="4"> 试卷设计</font></strong> </P>
</td>
</tr>
</table>
<form method="POST" action ="designer.asp" name="form_examsave">
<div align="left">
<table border="1" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<tr>
<td width="50%">考试名称 </td>
<td width="50%"><input type="text" name="exam_name" size="20"></td>
</tr>
<tr>
<td width="50%">管理员帐号</td>
<td width="50%"><%=AdminID%> </td>
</tr>
<tr>
<td width="50%">创建日期</td>
<td width="50%"><%=todaydate%> </td>
</tr>
<tr>
<td width="50%">试题总数</td>
<td width="50%"><input type="text" name="total_q" size="20"></td>
</tr>
<tr>
<td width="50%">总时间 (秒)</td>
<td width="50%"><input type="text" name="totaltime" size="20"></td>
</tr>
<tr>
<td width="50%">开始试题编号 </td>
<td width="50%"><select size="1" name="q_id1">
<%
objRS.movefirst
while not objRS.EOF
response.write "<option value=" & objRS("q_id") & ">" & objRS("q_id") &"</option>"
objRS.movenext
wend
%>
</select></td>
</tr>
<tr>
<td width="50%">结束试题编号 </td>
<td width="50%"><select size="1" name="q_id2">
<%
objRS.movefirst
while not objRS.EOF
response.write "<option value=" & objRS("q_id") & ">" & objRS("q_id") &"</option>"
objRS.movenext
wend
%>
</select></td>
</tr>
<tr>
<td width="50%">考试主题 </td>
<td width="50%"><input type="text" name="code" size="20"></td>
</tr>
<tr>
<td width="50%">及格分数</td>
<td width="50%"><select size="1" name="pp">
<option value="10">10</option>
<option value="20">20</option>
<option value="30">30</option>
<option value="40">40</option>
<option value="50" selected>50</option>
<option value="60">60</option>
<option value="70">70</option>
<option value="80">80</option>
<option value="90">90</option>
<option value="100">100</option>
</select></td>
</tr>
<tr>
<td width="50%">有效日期(天) </td>
<td width="50%"><select size="1" name="days">
<option value="1">1</option>
<option value="2" selected>2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
</select></td>
</tr>
<tr>
<td width="50%"> </td>
<td width="50%"> </td>
</tr>
</table>
</div>
<p align="left"><br>
<input type="submit" value="保存试卷" name="save"><input type="reset" value="清空" name="B2"></p>
</form>
<p align="left"> </p>
<hr>
已有试卷...
<%
dim myrs2
set myrs2 = server.createobject("ADODB.recordset")
myrs2.open "select * from all_exams",myconn
Response.Write Rec2Table (myrs2)
myrs2.close
%>
<br>
<table width="80%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><a href="control_panel.asp">在线考试系统</a></P>
</td>
</tr>
</table>
</body>
</html>
<%
'''''''''''''''''''''''''''''''''
'closing order important'''''''''
objRS.close
myconn.close
set objRS=nothing
set myconn=nothing
set myrs=nothing
'''''''''''''''''''''''''''''''''
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -