admindatabaseadd.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 473 行 · 第 1/2 页
ASP
473 行
<!--#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()
{
if (addform.question.value=="")
{
alert("标题不能为空！");
addform.question.focus();
return false;
}
else
{
if (addform.text1)
{
if (addform.text1.value=="" )
{
alert("选项不能为空！");
addform.text1.focus();
return false;
}
}
else
answer=-1;
for (i=0;i<addform.answer.length;i++)
{
if (addform.answer[i].checked )
{
answer=i;
}
}
if (answer==-1)
{
alert("答案不能为空！");
return false;
}
else
return true;
}
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
<style type="text/css">
<!--
.style1 {font-size: 10pt}
-->
</style>
</head>
<body>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" width="100%" height="25">
<tr>
<td width="100%" bgcolor="#FFFFFF">当前位置：<a href="news.asp">系统管理</a> >
<a href="admindatabaseselect.asp">题库管理</a> > <a href="admindatabase.asp">试题管理</a> > 增加试题</td>
</tr>
</table>
<%
v_sID = request("subject")
v_sknow = request("sknow")
v_sdiff = request("sdiff")
sid = "select * from subject_info where SubID ="&v_sID&" "
set rsid = server.CreateObject("adodb.recordset")
rsid.open sid,conn,3,2
v_sName = rsid("SubName")
rsid.close()
set rsid = nothing
sid = "select * from knowledge_info where KnowID ="&v_sknow&" "
set rsid = server.CreateObject("adodb.recordset")
rsid.open sid,conn,3,2
v_kname = rsid("KnowName")
rsid.close()
set rsid = nothing
'response.Write("v_sdiff:"&v_sdiff&"<br>")
'response.Write("v_kname:"&v_kname&"<br>")
'response.Write("v_sID:"&v_sID&"<br>")
if request("typeadd")="0" then
%>
<p></p>
<form name="addform" method="get" action="admindatabasesave.asp" onSubmit="return submitit();">
<%=request("str")%>
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="80" align="center" bgcolor="#E1E1E1">当前科目</td>
<td>
<input name="subjectview" type="text" class="inputnormal" value="<%=v_sName%>" size="40" readonly="readonly">
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">选择类型</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
<td>
<input type="radio" value="<%=request("typeadd")%>" name="typeadd" checked>
</td>
<td width="80">单选题</td>
<td><input type="radio" name="typeadd" disabled> </td>
<td width="80">多选题</td>
<td><input type="radio" name="typeadd" disabled> </td>
<td width="80">判断题</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">知 识 点</td>
<td><select name="sknow">
<option value="<%=v_sknow%>" selected><%=v_kname%></option>
<%
sql = "select * from knowledge_info where KnowID <> "&v_sknow&" and Sub_ID = "&v_sID
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
%>
<option value="<%=rs("KnowID")%>" ><%=rs("KnowName")%></option>
<%
rs.movenext
loop
%>
</select>
<input name="kname" type="hidden" id="kname" value="<%=v_kname%>"></td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">难度系数</td>
<td>
<table width="100%" border="0">
<tr>
<td><div align="center">
<input type="radio" name="fdif_button" value="1" <% IF v_sdiff = "1" then
%>
checked
<%end if%>>
<span class="style1">简单</span></div></td>
<td><div align="center">
<input type="radio" name="fdif_button" value="2" <% IF v_sdiff = "2" then
%> checked <%end if%>>
<span class="style1">较易</span></div></td>
<td><div align="center">
<input name="fdif_button" type="radio" value="3" <% IF v_sdiff = "3" then
%> checked <%end if%>>
<span class="style1">中等</span></div></td>
<td><div align="center">
<input type="radio" name="fdif_button" value="4" <% IF v_sdiff = "4" then
%>
checked <%end if%>>
<span class="style1"> 较难</span></div></td>
<td><div align="center">
<input type="radio" name="fdif_button" value="5" <% IF v_sdiff = "5" then
%> checked <%end if%> >
<span class="style1">困难</span></div></td>
</tr>
</table> </td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">标 题</td>
<td>
<textarea rows="3" name="question" cols="80" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></textarea>
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">内 容</td>
<td>A.<input name="Option1" type="text" class="inputnormal" id="Option1" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
<br>
B.<input name="Option2" type="text" class="inputnormal" id="Option2" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
<br>
C.<input name="Option3" type="text" class="inputnormal" id="Option3" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
<br>
D.<input name="Option4" type="text" class="inputnormal" id="Option4" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
<br>
E.<input name="Option5" type="text" class="inputnormal" id="Option5" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
<br>
F.<input name="Option6" type="text" class="inputnormal" id="Option6" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
</td>
</tr>
<tr>
<td align="center" height="20" bgcolor="#E1E1E1">答 案</td>
<td height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5">
<tr>
<td>A</td>
<td><input type="radio" name="answer" value="A"></td>
<td>B</td>
<td><input type="radio" name="answer" value="B"></td>
<td>C</td>
<td><input type="radio" name="answer" value="C"></td>
<td>D</td>
<td><input type="radio" name="answer" value="D"></td>
<td>E</td>
<td><input type="radio" name="answer" value="E"></td>
<td>F</td>
<td><input type="radio" name="answer" value="F"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" height="20" colspan="2">
<div align="right">
<input type="submit" value="保存" name="B1" class="s02">
<input type="reset" value="重置" name="B2" class="s02">
</div>
</td>
</tr>
</table>
</form>
<%
end if
if request("typeadd")="1" then
%>
<form name="addform" method="get" action="admindatabasesave.asp" onSubmit="return submitit();">
<%=request("str")%>
<table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="80" align="center" bgcolor="#E1E1E1">当前题库</td>
<td>
<input type="text" name="subjectview" size="40" value="<%=v_sName%>" readonly class="inputnormal">
</td>
</tr>
<tr>
<td align="center" bgcolor="#E1E1E1">选择类型</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?