📄 que_manage.asp
字号:
<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>题库管理</title>
</head>
<body bgcolor="#EEEEEE">
<!-- #include file="button_t.asp" -->
<table width="760" border="0" align="center" bgcolor="#FFFFFF">
<form name="form2" method="post" action="que_manage.asp">
<tr>
<td height="10"><font color="#0000FF">请先选择课程分类：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from curricula order by id"
rs.open sql,conn,1,1
%>
<select name="ename" id="ename">
<option value="">所有课程</option>
<% '动态显示课程名
do while not rs.eof
if trim(rs("name"))<>oldename then
%>
<option value=<%=trim(rs("name"))%>
<%if trim(request("name"))=trim(rs("name")) then%>
selected
<%end if%>>
<%=trim(rs("name"))%>
<%oldename=trim(rs("name"))%>
</option>
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<input type="submit" name="Submit2" value="确定">
<input type="hidden" name="type" value="fl">
</font></td>
</tr>
</form>
<tr><td height="10"><hr> </td></tr>
<tr>
<td><table width="100%" border="0" cellpadding="4" cellspacing="0">
<tr>
<td width="90"><strong>题目编号</strong></td>
<td><strong>题目名称</strong></td>
<td width="80"><strong>题目类型</strong></td>
<td width="100"><strong>加入时间</strong></td>
<td width="45"> </td>
<td width="45"> </td>
</tr>
<%
ename=trim(request.form("ename"))
'以下分页显示题目
if request("page")="" then
page="1"
else
page=request("page")
end if
set rs=server.createobject("adodb.recordset")
'如果没有选择课程分类,则显示多有题目
if ename="" then
sql="select * from question order by qid asc"
else
sql="select * from question where ename='"&ename&"' order by qid asc"
end if
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=30
rs.Absolutepage=clng(page)
if cstr(page)=cstr(rs.PageCount) and (rs.RecordCount mod rs.PageSize <> 0) then
recend=rs.RecordCount mod rs.PageSize
else
recend=rs.PageSize
end if
if request("page")<>"" then
if fix(trim(request("page")))>rs.pagecount then
response.redirect "que_manage.asp?page="&(request("page")-1)
end if
end if
for i=1 to recend
if i mod 2=1 then
color="#f8f8f8"
else
color="#E4e4e4"
end if
%>
<tr bgcolor="<%=color%>">
<td><%=trim(rs("qid"))%></td>
<td><%=trim(rs("qname"))%></td>
<%if trim(rs("qtype")) = 1 then%>
<td>单选题</td>
<%elseif trim(rs("qtype")) = 2 then%>
<td>多选题</td>
<%elseif trim(rs("qtype")) = 3 then%>
<td>判断题</td>
<%end if%>
<td><%=trim(rs("addtime"))%></td>
<td><div align="center"><a href="#" onClick="window.open('que_edit.asp?qid=<%=trim(rs("qid"))%>','intr','menubar=no,toolbar=no,location=no,directories=no,status=yes,scrollbars=1,resizable=0,width=600,height=500,top=80,left=100');return false;">编辑</a></div></td>
<td><div align="center"><a href="#" onClick="window.open('que_del.asp?qid=<%=trim(rs("qid"))%>&ename=<%=trim(ename)%>&page=<%=page%>','intr','menubar=no,toolbar=no,location=no,directories=no,status=yes,scrollbars=1,resizable=0,width=300,height=150,top=80,left=100');return false;">删除</a></div></td>
</tr>
<%
rs.movenext
next
%>
</table>
<table border="0" width="100%" align="center" bgcolor="<%=tablebgcolor_2%>">
<tr>
<td>
<div align="left"><font color="#000000">共有题目记录<%=rs.recordcount%>条，每页30条，目前<%=page%>/<%=rs.pagecount%>页</font></div>
</td>
<td width="40" align="center"> <font color="#000000">
<% if page="1" then %>
首页
<%else%>
<a href=que_manage.asp?t=que_manage&type=<%=trim(request("type"))%>&ename=<%=trim(request("ename"))%>>首页</a>
<% end if %>
</font></td>
<td width="40" align="center"> <font color="#000000">
<% if page="1" then %>
上页
<%else%>
<a href=que_manage.asp?page=<%=page-1%>&t=que_manage&type=<%=trim(request("type"))%>&ename=<%=trim(request("ename"))%>>上页</a>
<% end if %>
</font></td>
<td width="40" align="center"> <font color="#000000">
<% if page=cstr(rs.pagecount) then %>
下页
<%else%>
<a href=que_manage.asp?page=<%=page+1%>&t=que_manage&type=<%=trim(request("type"))%>&ename=<%=trim(request("ename"))%>>下页</a>
<% end if %>
</font></td>
<td width="40" align="center"> <font color="#000000">
<% if cstr(page)-cstr(rs.pagecount)=0 then%>
尾页
<% else %>
<a href=que_manage.asp?page=<%=rs.pagecount%>&t=que_manage&type=<%=trim(request("type"))%>&ename=<%=trim(request("ename"))%>>尾页</a>
<% end if %>
<%
else
response.write "还没有任何题目！"
end if
rs.close
set rs=nothing
%>
</font></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -