📄 modcl.asp
字号:
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set rs = Server.CreateObject ("ADODB.Recordset")
strQ="Select * from ItemTable where ItemID="&Request.QueryString("id")
objRS.Open strQ ,objConn,2,3
if Request.Form("hf")=3 then
objRS("ExistId")=1
objRS.Update
objRS.Close
objConn.Close
Set objRS=Nothing
Set objConn=Nothing
%>
<html>
<p align="center">已恢复此试题</p>
</html>
<%
else
strQ="select Knowledge.KnowledgeObject as KnowledgeObject, Knowledge.KnowledgeID as KnowledgeID from Knowledge,ZSD_ST where ZSD_ST.KnowledgeID=Knowledge.KnowledgeID and "
strQ=strQ&"ZSD_ST.ItemID="&objRS("ItemID")
rs.Open strQ,objConn,2,3
%>
<html>
<head>
<style>
.bodyStyle {font-family: "Verdana", "Arial";
font-size: 10pt;
color: #00309c}
.bodyStyle2 {font: 10pt "Verdana", "Arial";
margin-left:12pt;
background-image: url(../djst/share/blue_gradient.jpg);
background-attachment: fixed;
color: #00309c;
width:532px}
A:HOVER {
text-decoration: none }
A:LINK { text-decoration: none }
A:ACTIVE {
text-decoration: none }
A:VISITED { text-decoration: none }
TABLE {margin-right: 20pt;
font-size: 10pt;
font-family: "Verdana", "Arial"}
.active {font-weight: bold;
color: #00309c}
.active2 {font-weight: bold;
color: #405040}
.visited {font-weight: normal;
color: #405040 }
.1 {margin-left: 0pt}
.2 {margin-left: 16pt;
width: 100pt}
.3 {margin-left: 32pt;
width: 90pt}
.4 {margin-left: 45pt;
width: 50pt}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
var arr= new Array(5);
arr[0]="答案一：";
arr[1]="答案二：";
arr[2]="答案三：";
arr[3]="答案四：";
arr[4]="答案五：";
var a;
a=0;
function AddTiankong(){
if (a<5){
a=a+1;
form1.shtnr.value=form1.shtnr.value + '________';
} else alert('您已经加入了五个空，最多只允许添加五个空！您可以考虑重新填写填空项');
}
function ResetTiankong(){
form1.shtnr.value='';
a=0;
}
function checkDaAn(){
var i,submit;
submit=true;
if ((document.form1.da1.value=="")||(document.form1.shtnr .value =="")) {
alert('请检查您的试题内容和答案是否写全呢!');
return false;
}
for(i=1;(i<=a)&&(('da'+i)!=document.form1.last.name);i++){
str='da'+ i;
if (document.form1[str].value=='') submit=false;
}
if((document.form1 [document.form1.last.name].value=="")||(('da'+a)!= document.form1.last.name)) submit=false;
if (submit==false) alert('题目与答案的数量不一致！')
else document.form1 .submit ()
}
function addanswer()
{
var i,f;
if(a!=0)
{
for(i=1;i<=a;i++){
str='da'+ i;
if (document.form1 .last.name==str) break ;
}
if (i<a)
{
str1= " <table width=\"75%\" border=\"0\" id=sttable> "
for(f=1;f<=i;f++){
str1+="<tr><td><div align=\"center\">"+arr[f-1]+
"<input type=\"text\" name=\"da"+f+"\" maxlength=\"50\" size=\"30\"class=\"input\" value=\""+document.form1 ["da"+f].value+"\" style=\"background-color: #FFFFFF; border-style: solid; border-width: 1 \">"+
"</div></td></tr>";
}
str1+="<tr><td><div align=\"center\">"+arr[f-1]+
"<input type=\"text\" id=\"last\" name=\"da"+f+"\" maxlength=\"50\" size=\"30\"class=\"input\"style=\"background-color: #FFFFFF; border-style: solid; border-width: 1 \">"+
"</div></td></tr></table>"
sttable.outerHTML =str1;
}
}
}
function delanswer()
{
var i,f;
for(i=1;i<=a;i++){
str='da'+ i;
if (document.form1 .last.name==str) break ;
}
if(i>1){
str1= " <table width=\"75%\" border=\"0\" id=sttable> "
for(f=1;f<i-1;f++){
str1+="<tr><td><div align=\"center\">"+arr[f-1]+
"<input type=\"text\" name=\"da"+f+"\" maxlength=\"50\" size=\"30\"class=\"input\" value=\""+document.form1 ["da"+f].value+"\"style=\"background-color: #FFFFFF; border-style: solid; border-width: 1 \">"+
"</div></td></tr>";
}
str1+="<tr><td><div align=\"center\">"+arr[f-1]+
"<input type=\"text\" id=\"last\" name=\"da"+f+"\" maxlength=\"50\" size=\"30\"class=\"input\" value=\""+document.form1 ["da"+f].value+"\"style=\"background-color: #FFFFFF; border-style: solid; border-width: 1 \">"+
"</div></td></tr></table>"
sttable.outerHTML =str1;
}
}
-->
</script>
</head>
<body class=bodyStyle2 bgcolor=#FFFFCC>
<form method="post"name=form1 action="./stmodcl.asp?id=<%=objRS("ItemID")%>&type=<%=objRS("Itemtype")%>" ENCTYPE="multipart/form-data" >
<table width="766" border="0" bgcolor="#FF9999">
<tr bgcolor="#FF9999">
<td nowrap height="25">
<% select Case trim(objRS("Itemtype"))
Case 1:typename1="单项选择题:"
Case 2:typename1="多项选择题:"
Case 3:typename1="填空题:"
Case 4:typename1="判断题:"
Case 5:typename1="分析题:"
end select
%>
<h1> <font size="2" color="#3333FF"><%=typename1%>（注意：黑体字项必须填写）</font></h1>
</td>
</tr>
</table>
<table border=1 align="center" bordercolor=#ffffff bordercolorlight=#000000 cellspacing=0 width="766">
<tr>
<td width="136" align="right" nowrap height="34"><font color="#FF3333">知
识 点：</font></td>
<td width="131" nowrap height="34">
<select name="menu1" size=1 >
<%
KID=""
KIDname=""
do while not rs.EOF %>
<option value=''><%=rs("KnowledgeObject")%>
<%KID=KID & rs("KnowledgeID") & ";"
KIDname=KIDname & rs("KnowledgeObject") &" "%>
</option>
<% rs.MoveNext%> <% loop %> <%rs.Close%>
</select>
</td>
<td width="116" nowrap height="34"> </td>
<td width="108" align="right" height="34" >
<div align="center">用途： </div>
</td>
<td width="87" align="right" nowrap height="34">
<select name="WorkType" size='1' style='width: 80; height: 23; position: relative'>
<option value="Test" selected>用于考试</option>
<option value="Work">用于作业</option>
<option value="All">作业和考试</option>
</select>
</td>
<td width="135" height="34">
<input type="hidden" name="KID" size="4" value=<%=KID%>>
<input type="hidden" name="KIDname" size="4" value=<%=KIDname%>>
</tr>
<tr>
<td width="136" align="right" nowrap>
<div align="right"><b>难 度：</b></div>
</td>
<td colspan="5">
<%if( trim(objRS("Difficulty"))=0.9) then%>
<input type="radio" value="0.9" name="nd" checked id=nd>
<%else%>
<input type="radio" value="0.9" name="nd" >
<%end if%>
难：1-0.8；
<%if( trim(objRS("Difficulty"))=0.7) then%>
<input type="radio" value="0.7" name="nd" checked >
<%else%>
<input type="radio" value="0.7" name="nd" >
<%end if%>
较难：0.8-0.6；
<%if( trim(objRS("Difficulty"))=0.5) then%>
<input type="radio" value="0.5" name="nd" checked>
<%else%>
<input type="radio" value="0.5" name="nd">
<%end if%>
中：0.6-0.4；
<%if( trim(objRS("Difficulty"))=0.3) then%>
<input type="radio" value="0.3" name="nd" checked>
<%else%>
<input type="radio" value="0.3" name="nd">
<%end if%>
较易：0.4-0.2；
<%if( trim(objRS("Difficulty"))=0.1) then%>
<input type="radio" value="0.1" name="nd" checked >
<%else%>
<input type="radio" value="0.1" name="nd">
<%end if%>
易：0.2-0</td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>区 分 度：</b></td>
<td colspan="5">
<%if(trim(objRS("Division"))=0.9) then%>
<input type="radio" value="0.9" name="qfd" checked>
<%else%>
<input type="radio" value="0.9" name="qfd" >
<% end if%>
优：1-0.8；
<%if(trim(objRS("Division"))=0.7) then%>
<input type="radio" value="0.7" name="qfd" checked>
<%else%>
<input type="radio" value="0.7" name="qfd" >
<%end if%>
良：0.8-0.6；
<%if(trim(objRS("Division"))=0.5) then%>
<input type="radio" value="0.5" checked name="qfd">
<%else%>
<input type="radio" value="0.5" name="qfd">
<%end if%>
中：0.6-0.4；
<%if(trim(objRS("Division"))=0.3) then%>
<input type="radio" value="0.3" name="qfd" checked>
<%else%>
<input type="radio" value="0.3" name="qfd">
<%end if%>
较差：0.4-0.2；
<%if(trim(objRS("Division"))=0.1) then%>
<input type="radio" value="0.1" name="qfd" checked >
<%else%>
<input type="radio" value="0.1" name="qfd">
<%end if%>
差：0.2-0</td>
</tr>
<tr>
<td width="136" align="right" nowrap><b>认知分类：</b></td>
<td colspan="5">
<%if trim(objRS("CognizeClass"))=1 then%>
<input type="radio" name="rzhfl" value="1" id=rzhfl checked>
<%else%>
<input type="radio" name="rzhfl" value="1" id=rzhfl >
<%end if%>
<span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">知道，</font></span>
<%if trim(objRS("CognizeClass"))=2 then%>
<input type="radio" name="rzhfl" value="2" id=rzhfl checked>
<%else%>
<input type="radio" name="rzhfl" value="2" id=rzhfl>
<%end if%>
<span style="FONT-FAMILY: 宋体; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Times New Roman; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><font size="3">领会，</font></span>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -