📄 view.asp
字号:
.STYLE1 {color: #FF0000}
-->
</style>
<%= rs("L_sequence") %>、<%= rs("L_description") %>
<input name="<%= rs("L_questionID")%>" type="checkbox" value="对" />对
<input name="<%= rs("L_questionID")%>" type="checkbox" value="错" />错
<input type="submit" value="保存答案" />
<br />
[<a href="#" onClick="javascript:open('Questions/editQuestions.asp?L_questionID=<%= rs("L_questionID") %>','','width=550,height=450')">修改题目</a>]
[<a href="Questions/action/delQuestions.asp?L_questionID=<%= rs("L_questionID") %>&testID=<%= testID %>">删除题目</a>]
<% if rs("L_enabled")=0 then %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=1&testID=<%= testID %>">正常启用</a>]
<% Else %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=0&testID=<%= testID %>">题目作废</a>]
<% End If %>
<br />
此题状态：
<% if rs("L_enabled")=1 then %>
<span class="STYLE1">有效</span>
<% Else %>
<span class="STYLE1">无效</span>
<% End If %>
此题分值：<span class="STYLE1"><%= rs("L_parvalue") %></span>
标准答案：<%= getSolution(0,rs("L_questionID")) %>
<br />
此题解析：<%= rs("L_parse") %>
<br />
<%
rs.movenext
loop
end if
'释放资源
rs.close
set rs=nothing
end function
function displayQuestions_4(TypeID)
'简答题
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim sql,rs
sql="select * from L_questionsV where L_TypeID="&TypeID&" order by L_position asc"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
do while not rs.eof
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<%= rs("L_sequence") %>、<%= rs("L_description") %>
<br />
此题状态：
<% if rs("L_enabled")=1 then %>
<span class="STYLE1">有效</span>
<% Else %>
<span class="STYLE1">无效</span>
<% End If %>
此题分值：<span class="STYLE1"><%= rs("L_parvalue") %></span>
<br />
标准答案：<br />
<%= getSolution(0,rs("L_questionID")) %>
<br />
此题解析：<br />
<%= rs("L_parse") %>
<br />
[<a href="#" onClick="javascript:open('Questions/editQuestions.asp?L_questionID=<%= rs("L_questionID") %>','','width=550,height=450')">修改题目</a>]
[<a href="Questions/action/delQuestions.asp?L_questionID=<%= rs("L_questionID") %>&testID=<%= testID %>">删除题目</a>]
<% if rs("L_enabled")=0 then %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=1&testID=<%= testID %>">正常启用</a>]
<% Else %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=0&testID=<%= testID %>">题目作废</a>]
<% End If %>
<input type="submit" value="保存答案" />
<br />
<textarea name="<%= rs("L_questionID") %>" cols="50" rows="5"></textarea> <br />
<%
rs.movenext
loop
end if
'释放资源
rs.close
set rs=nothing
end function
function displayQuestions_5(TypeID)
'论述题
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim sql,rs
sql="select * from L_questionsV where L_TypeID="&TypeID&" order by L_position asc"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
do while not rs.eof
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<%= rs("L_sequence") %>、<%= rs("L_description") %>
<br />
此题状态：
<% if rs("L_enabled")=1 then %>
<span class="STYLE1">有效</span>
<% Else %>
<span class="STYLE1">无效</span>
<% End If %>
此题分值：<span class="STYLE1"><%= rs("L_parvalue") %></span>
<br />
标准答案：<br />
<%= getSolution(0,rs("L_questionID")) %>
<br />
此题解析：<br />
<%= rs("L_parse") %>
<br />
[<a href="#" onClick="javascript:open('Questions/editQuestions.asp?L_questionID=<%= rs("L_questionID") %>','','width=550,height=450')">修改题目</a>]
[<a href="Questions/action/delQuestions.asp?L_questionID=<%= rs("L_questionID") %>&testID=<%= testID %>">删除题目</a>]
<% if rs("L_enabled")=0 then %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=1&testID=<%= testID %>">正常启用</a>]
<% Else %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=0&testID=<%= testID %>">题目作废</a>]
<% End If %>
<input type="submit" value="保存答案" />
<br />
<textarea name="<%= rs("L_questionID") %>" cols="50" rows="5"></textarea> <br />
<%
rs.movenext
loop
end if
'释放资源
rs.close
set rs=nothing
end function
function displayQuestions_6(TypeID)
'作文题
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim sql,rs
sql="select * from L_questionsV where L_TypeID="&TypeID&" order by L_position asc"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
do while not rs.eof
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<%= rs("L_sequence") %>、<%= rs("L_description") %>
<br />
此题状态：
<% if rs("L_enabled")=1 then %>
<span class="STYLE1">有效</span>
<% Else %>
<span class="STYLE1">无效</span>
<% End If %>
此题分值：<span class="STYLE1"><%= rs("L_parvalue") %></span>
<br />
标准答案：<br />
<%= getSolution(0,rs("L_questionID")) %>
<br />
此题解析：<br />
<%= rs("L_parse") %>
<br />
[<a href="#" onClick="javascript:open('Questions/editQuestions.asp?L_questionID=<%= rs("L_questionID") %>','','width=550,height=450')">修改题目</a>]
[<a href="Questions/action/delQuestions.asp?L_questionID=<%= rs("L_questionID") %>&testID=<%= testID %>">删除题目</a>]
<% if rs("L_enabled")=0 then %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=1&testID=<%= testID %>">正常启用</a>]
<% Else %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=0&testID=<%= testID %>">题目作废</a>]
<% End If %>
<input type="submit" value="保存答案" />
<br />
<textarea name="<%= rs("L_questionID") %>" cols="50" rows="5"></textarea> <br />
<%
rs.movenext
loop
end if
'释放资源
rs.close
set rs=nothing
end function
function displayQuestions_7(TypeID)
'填空题
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim sql,rs
sql="select * from L_questionsV where L_TypeID="&TypeID&" order by L_position asc"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
do while not rs.eof
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<input type="submit" value="保存答案" />
<%= rs("L_sequence") %>、
<%
dim L_description
L_description=rs("L_description")
'将题目中的文本框占位符“$${space}$$”，替换成文本框
dim theSpace
theSpace="<input name="&rs("L_questionID")&" type=text size=12 class=spaceText />"
L_description=replace(L_description,"$${space}$$",theSpace)
%>
<%= L_description %>
<br />
此题状态：
<% if rs("L_enabled")=1 then %>
<span class="STYLE1">有效</span>
<% Else %>
<span class="STYLE1">无效</span>
<% End If %>
此题分值：<span class="STYLE1"><%= rs("L_parvalue") %></span>
标准答案：<%= getSolution(0,rs("L_questionID")) %>
<br />
此题解析：<%= rs("L_parse") %>
<br />
[<a href="#" onClick="javascript:open('Questions/editSpaceQuestions.asp?L_questionID=<%= rs("L_questionID") %>','','width=550,height=450')">修改题目</a>]
[<a href="Questions/action/delQuestions.asp?L_questionID=<%= rs("L_questionID") %>&testID=<%= testID %>">删除题目</a>]
<% if rs("L_enabled")=0 then %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=1&testID=<%= testID %>">正常启用</a>]
<% Else %>
[<a href="questions/action/updateQuestions.asp?questionID=<%= rs("L_questionID") %>&enabled=0&testID=<%= testID %>">题目作废</a>]
<% End If %>
<br />
<%
rs.movenext
loop
end if
'释放资源
rs.close
set rs=nothing
end function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -