📄 questionquery.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<HTML>
<head>
<link href=../css.css rel=stylesheet type=text/css>
</head>
<BODY>
<P align="center"><STRONG><FONT face="华文彩云" color=darkred size=6>试题查询</FONT></STRONG></P>
<%
session("nianji")
const N=3
'set myrs1=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
dim nianji_i
dim subject_i
dim key
nianji_i=session("nianji")
subject_i=request.Form("subject")
key=request.Form("key")
Response.Write (nianji_i & subject_i & key)
rs1.PageSize=N
if subject_i="" and key="" then
rs1.Open "select * from test_questions_store",conn,adOpenStatic
end if
if nianji_i="全部显示" and subject_i="全部显示" then
rs1.Open "select * from test_questions_store",conn,adOpenStatic
else
if nianji_i<>"" and subject_i<>"" and key="" then
rs1.Open "select * from test_questions_store where 课程编号=" & cint(subject_i),conn,adOpenStatic
else
if nianji_i<>"" and subject_i<>"" and key<>"" then
rs1.Open "select * from test_questions_store where 课程编号=" & cint(subject_i) & " and 题目 like '%" & key & "%'",conn,adOpenStatic
end if
end if
end if
if rs1.RecordCount =0 then
rs1.Close
rs1.Open "select * from test_questions_store",conn,adOpenStatic
%>
<script language="javascript">
<!--
window.alert("没有您要找的题目！");
-->
</script>
<%
end if
pageth=Request.QueryString("pageth")
'判断页数是否为空
if pageth="" then pageth="1"
'判断页数是否为数字
if not IsNumeric(pageth) then pageth="1"
'判断数字是否大于总页数
pageth=cint(pageth)
if pageth>rs1.PageCount then pageth=rs1.PageCount
rs1.AbsolutePage=pageth
%>
<table align=center border=1 cellpadding=0 cellspacing=0 >
<tr><td colspan="11">共有 <%=rs1.RecordCount%> 条记录,每页 <%=N%> 条，共 <%=rs1.PageCount%> 页，当前是第 <%=rs1.AbsolutePage%> 页 </td></tr>
<tr align=center>
<td>试题编号</td>
<td>试题内容</td>
<td>试题答案A</td>
<td>试题答案B</td>
<td>试题答案C</td>
<td>试题答案D</td>
<td>正确答案</td>
<td>试题详解</td>
<td>课程编号</td>
<td width=30 align=center> 修改 </td>
<td width=30 align=center> 删除 </td>
</tr>
<%
for i=1 to N
%>
<tr align=center>
<td><%=Server.HTMLEncode(rs1(0))%></td>
<td><%=Server.HTMLEncode(rs1(1))%></td>
<td><%=Server.HTMLEncode(rs1(2))%></td>
<td><%=Server.HTMLEncode(rs1(3))%></td>
<td><%=Server.HTMLEncode(rs1(4))%></td>
<td><%=server.HTMLEncode(rs1(5))%></td>
<td><%=Server.HTMLEncode(rs1(6))%></td>
<td><%=Server.HTMLEncode(rs1(7))%></td>
<td><%=Server.HTMLEncode(rs1(8))%></td>
<td><a href=QuestionQuery.asp?Qm=<% =rs1(0) %> >修改</a></td>
<td><a href=QuestionQuery.asp?Qd=<% =rs1(0) %> >删除</a></td>
</tr>
<%
rs1.MoveNext
if rs1.EOF then exit for '避免存在半页时循环出现问题；
next
pagepre=pageth-1
pagenext=pageth+1
if pagepre<1 then pagepre=1
if pagenext>rs1.PageCount then pagenext=rs1.PageCount
%>
<tr>
<td colspan=11>
<form action="QuestionQuery.asp" method="get" id=form1 name=form1>
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<a href="QuestionQuery.asp?pageth=1">第一页</a> |
<a href="QuestionQuery.asp?pageth=<%=pagepre%>">上一页</a> |
<%
end if
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<a href="QuestionQuery.asp?pageth=<%=pagenext%>">下一页</a>
<a href="QuestionQuery.asp?pageth=<%=rs1.PageCount%>">最后一页</a> |
<%
end if
%>
转向第<input name="pageth" size=2>页
<input type="submit" value=" GO " id=submit1 name=submit1>
</form>
<%
rs1.Close
%>
</td>
</tr>
</table>
<%
dim Qdel1,sqlstring '87
Qdel1=Request.QueryString("Qd")
if Qdel1>0 then
sqlstring="delete from test_questions_store where id =" & Qdel1 & ""
conn.Execute(sqlstring)
%>
<script language="javascript">
<!--
window.alert("已成功删除。");
-->
</script>
<%
end if
%>
<form action="QuestionQuery.asp" method="post" name="form3">
<table align=center border=1 cellpadding=0 cellspacing=0 width=60%>
<td colspan="9">
<%
set rs_kemu=server.CreateObject("adodb.recordset")
set rs_count=server.CreateObject("adodb.recordset")
session("nianji")=request.Form("nianji")
if session("nianji")="" then
session("nianji")="第一学期"
end if
'显示自动生成试卷条目
'////////////////////////////////////////////////////////////////////////////////////////////
%>
<br>自动生成试卷:</br>
选择学期:
<select onchange="return select_change()" name="nianji">
<option value="第一学期" selected>第一学期</option>
<%if session("nianji")="第二学期" then%>
<option value="第二学期" selected>第二学期</option>
<%else%>
<option value="第二学期">第二学期</option>
<%end if%>
<%if session("nianji")="第二学年" then%>
<option value="第二学年" selected>第二学年</option>
<%else%>
<option value="第二学年">第二学年</option>
<%end if%>
<option value="全部显示">全部显示</option>
</select>
</td>
</form>
<form action="QuestionQuery.asp" method="post" name="form2">
<table align=center border=1 cellpadding=0 cellspacing=0 width=60%>
<tr>
<td colspan="9">
<p><%=session("nianji")%>的课程是：
<select name="subject" >
<%
if session("nianji")="" then session("nianji")="第一学期"
rs_kemu.Open "select * from course where 学期='" & session("nianji") & "'", conn
while not rs_kemu.EOF
%>
<option value="<%=rs_kemu("课程编号")%>">
<%=rs_kemu("课程名称")%>
</option>
<%
rs_kemu.MoveNext
wend
%>
<option value="全部显示">全部显示</option>
</select>
</td>
</tr>
<tr>
<td colspan="9">
<input type="text" value="" name=key >
</td>
</tr>
<tr>
<td colspan="9">
<input type="button" value="查找试题" id=button1 name=button1 onclick="dosubmit()">
</td>
</tr>
<%
rs_kemu.Close
%>
</td>
</tr>
</table>
</form>
<script language="javascript">
function dosubmit(){
document.form2.submit();
}
function doSplit(){
//if(document.form1.split.checked==true){
window.open("autodomain.asp?selecte=document.form1.xueqi.selected","display");
//}else{
// window.open("display.asp?split1=unchecked","display");
//}
}
function select_change() {
//window.open("9-22.asp?selecte=document.form1.xueqi.selected","display");
document.form3.submit()
}
//-->
</script>
<%
session("questionsID")=Request.QueryString("Qm")
if Request.QueryString("Qm") > 0 then
Response.Redirect("Qmodify.asp")
end if
conn.Close
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -