📄 pdh.asp
字号:
<% language=VBscript%>
<%
if Request.ServerVariables ("query_string")<>"" then
Session("zsdh")=trim(Request.QueryString ("zsdh"))
Session("zsdm")=trim(Request.QueryString ("zsdm"))
end if
%>
<html><head>
<style>
.bodyStyle {font-family: "Verdana", "Arial";
font-size: 10pt;
color: #00309c}
.bodyStyle2 {margin-left:12pt;
background-image: url('../djst/share/blue_gradient.jpg');
background-attachment: fixed;
color: #00309c;
width:532px; font-style:normal; font-variant:normal; font-weight:normal; font-size:10pt; font-family:Verdana, Arial}
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>
<script language="JavaScript">
function checkform()
{
if((document.all.form1.KID.value=="")||(document.all.form1.jyfsh.value=="")||((document.form1.zwnr .value =="")&&(document.form1.shtfj .value =="")))
alert("请检查分数、知识点、试题正文是否填好")
else document.form1.submit()
}
function dxonmouseover()
{
dx.style.color="#00FFFF";
}
function dxonmouseout()
{
dx.style.color="#CCCCFF"
}
function tkonmouseover()
{
tk.style.color="#00FFFF";
}
function tkonmouseout()
{
tk.style.color="#CCCCFF"
}
function duonmouseover()
{
du.style.color="#00FFFF";
}
function duonmouseout()
{
du.style.color="#CCCCFF"
}
function fxonmouseover()
{
fx.style.color="#00FFFF";
}
function fxonmouseout()
{
fx.style.color="#CCCCFF"
}
</script>
<title>增加多项选择题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body class=bodyStyle2 bgcolor=#FFFFCC>
<% if request.QueryString("Added")="" then%>
<form method="post"name=form1 action="./pdcl.asp" ENCTYPE="multipart/form-data" >
<table width="48%" border="0" bgcolor="#FF6666">
<tr bgcolor="#FF3333">
<td width="15%" nowrap bgcolor="#FF9999"> <div onmouseover="dxonmouseover() " onmouseout="dxonmouseout()"><a href="da.asp"><font id=dx color="#CCCCFF">单项选择题</font></a></div></td>
<td width="18%" nowrap bgcolor="#FF9999"><div onmouseover="duonmouseover() " onmouseout="duonmouseout()"><a href="dux.asp"><font id=du color="#CCCCFF">多项选择题</font></a></div></td>
<td width="11%" nowrap bgcolor="#FF9999"><div onmouseover="tkonmouseover() " onmouseout="tkonmouseout()"><a href="tiankong.asp"><font id=tk color="#CCCCFF">填空题</font></a></div></td>
<td width="9%" nowrap bgcolor="#FF9999"> <a href="pd.asp"><font id=pd color="#00FFFF">判断题</font></a></td>
<td width="11%" nowrap bgcolor="#FF9999"><div onmouseover="fxonmouseover() " onmouseout="fxonmouseout()"><a href="fx.asp"><font id=fx color="#CCCCFF">分析题 </font></a></div></td>
</tr>
</table>
<%else%>
<form method="post"name=form1 action="./pdcl.asp?Added=<%= request.QueryString("Added")%>" ENCTYPE="multipart/form-data" >
<%end if%>
<table width="100%" border="0" bgcolor="#FF9999">
<tr bgcolor="#FF9999">
<td nowrap height="25">
<h1> <font size="2" color="#3333FF">多项选择：（注意：黑体字项必须填写）</font></h1>
</td>
</tr>
</table>
<table border=1 align="center" bordercolor=#ffffff bordercolorlight=#000000 cellspacing=0 width="763">
<tr>
<td width="112" align="right" nowrap height="34"><font color="#FF0000">知
识 点：</font></td>
<td width="191" nowrap height="34"><%
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
Set Know = Server.CreateObject ("ADODB.Recordset")
Set Know.ActiveConnection = objConn
sql="SELECT distinct KnowledgeID,KnowledgeObject FROM knowledge where not KnowledgeObject is null"
Know.Open sql
if not Know.BOF then
Know.MoveFirst
end if
KID=""
KIDname=""
Response.Write "<select name='menu1' size='1' style='width: 180; height: 23; position: relative'>"
do while not Know.EOF
if Request(Know("KnowledgeID"))<>"" then
KID=KID & Know("KnowledgeID") & ";"
KIDname=KIDname &Know("KnowledgeObject") & " "
Response.Write "<option value=''>" & Know("KnowledgeObject") & "</option>"
end if
Know.MoveNext
loop
Response.Write "</select>"%>
<input type="hidden" name="KID" value="<%=KID%>">
<input type="hidden" name="KIDname" value="<%=KIDname%>">
</td>
<td width="81" nowrap height="34">
<% if request.QueryString("Added")="" then%>
<p align="right"><font color="#FF0000"><a href="../Selknowledge.asp?tx=4"><font color="#0000FF">多知识点选择</font></a></font>
<%else %>
<p align="right"><font color="#FF0000"><a href="../Selknowledge.asp?tx=4&Added=<%=request.QueryString("Added")%>"><font color="#0000FF">多知识点选择</font></a></font>
<% end if%>
</td>
<td width="87" align="right" height="34">
用途：
</td>
<td width="90" 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="176" height="34">
</tr>
<tr>
<td width="112" align="right" nowrap>
<div align="right"><b>难 度：</b></div>
</td>
<td colspan="5" width="617">
<input type="radio" value="0.9" name="nd"
id=nd>
难：1-0.8；
<input type="radio" value="0.7" name="nd"
id=nd>
较难：0.8-0.6；
<input type="radio" value="0.5" name="nd" checked>
中：0.6-0.4；
<input type="radio" value="0.3" name="nd">
较易：0.4-0.2；
<input type="radio" value="0.1" name="nd" >
易：0.2-0</td>
</tr>
<tr>
<td width="112" align="right" nowrap><b>区 分 度：</b></td>
<td colspan="5" width="617">
<input type="radio" value="0.9" name="qfd"
id=qfd>
优：1-0.8；
<input type="radio" value="0.7" name="qfd"
id=qfd>
良：0.8-0.6；
<input type="radio" value="0.5" checked name="qfd"
id=qfd>
中：0.6-0.4；
<input type="radio" value="0.3" name="qfd"
id=qfd>
较差：0.4-0.2；
<input type="radio" value="0.1" name="qfd" id=qfd
>
差：0.2-0</td>
</tr>
<tr>
<td width="112" align="right" nowrap><b>认知分类：</b></td>
<td colspan="5" width="617">
<input type="radio" name="rzhfl" value="1" id=rzhfl checked>
<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>
<input type="radio" name="rzhfl" value="2" id=rzhfl>
<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>
<input type="radio" name="rzhfl" value="3" id=rzhfl>
<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>
<input type="radio" name="rzhfl" value="4" id=rzhfl>
<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>
<input type="radio" name="rzhfl" value="5" id=rzhfl>
<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>
<input type="radio" name="rzhfl" value="6" id=rzhfl>
<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></td>
</tr>
<tr>
<td width="112" align="right" nowrap>考试要求：</td>
<td colspan="5" width="617">
<input name="ksyq" size="87"
>
</td>
</tr>
<tr>
<td width="112" align="right" nowrap>评分标准：</td>
<td colspan="5" width="617">
<input name="pjbzh" size="87"
>
</td>
</tr>
<tr>
<td width="112" align="right" nowrap><b>建议的考试得分：</b></td>
<td colspan="2" width="276">
<input name="jyfsh" size="34" value=0
>
</td>
<td align="right" colspan="2" nowrap width="181">建议的考试时间：</td>
<td width="176">
<input name="jyshj" size="20" value=0
>
秒</td>
</tr>
<tr>
<td width="112" align="right" nowrap><b>出 题 人：</b></td>
<td colspan="2" width="276">
<input name="chtr" size="34" value=<%=Session("Username")%>>
</td>
<td align="right" colspan="2" nowrap width="181"><b>出题日期：</b></td>
<td width="176">
<input name="chtrq" size="24" value=<%=date()%>
>
</td>
</tr>
<tr>
<td width="112" align="right" nowrap><b>审 订 人：</b></td>
<td colspan="2" width="276">
<input name="shdr" size="34" value=<%=Session("Username")%>
>
</td>
<th align="right" colspan="2" width="181"><b>审订日期：</b></th>
<td width="176">
<input name="shdrq" size="24" value=<%=date()%>
>
</td>
</tr>
</table>
<b><font color="#ff0000" size="4"> </font></b>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="8" bgcolor="#FFCCCC">
<tr bgcolor="#FFCCCC">
<td width="14%" nowrap height="29">
<div align="center"><font size="3"><b><font color="#0000FF" size="2">试题正文</font></b></font></div>
</td>
</tr>
</table>
<table width="77%" border="0" height="63" align="center">
<tr>
<td width="1%" height="24" nowrap> </td>
<td width="99%" height="24" nowrap>
<div align="center"><font size="2" color="#3333FF">
<textarea name="zwnr" cols="80" rows="2"></textarea>
</font></div>
</td>
</tr>
</table>
<div align="center">
<table width="75%" border="0" align="center">
<tr>
<td width="45%" nowrap>
<div align="right">
<input type="radio" name="pd" value="T" checked>
<font color="#3333FF" size="3">正确</font> </div>
</td>
<td width="2%" nowrap> </td>
<td width="53%" nowrap>
<input type="radio" name="pd" value="F">
<font color="#3333FF" size="3"> 错误 </font></td>
</tr>
</table>
<p align="center">为该题上载附件:
<input type="FILE" size="60" name="shtfj">
</p>
<form name="form1" >
<P align="center">
<INPUT id=submit1 name=submit1 style="LEFT: 87px; TOP: 696px" type="button" value="录入此题" onClick="checkform()">
<input type="reset" value="全部重写" name="B2">
</P>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -