📄 managetest.asp

📁 在线教育系统包括答疑问题提问课程介绍可见下载等模块设计
💻 ASP
字号:
<%if session("login")="" or session("identity")<>"teacher" then
response.redirect "index.asp"
else
%>
<HTML>
<HEAD>
<TITLE><%=title%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="css/index1.css">
<link rel="stylesheet" type="text/css" href="css/toolbar2.css">
<script language="javascript">
function popwin2(testid,path)
{
   window.open("testdetail.asp?testid="+testid+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<script>
function checkclick(msg){
   if(confirm(msg)){
   event.returnValue=true;
   }else{
   event.returnValue=false;
}
}
</script>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<base target="_self">
</HEAD>
<BODY background="image/A-bg.gif" leftMargin=0 topMargin=0>
<%
userid=request("userid")
order1=request.form("D1")
if order1<>"" then
session("order")=order1
else
session("order")=request("order")
end if
if userid<>"" and session("order")=""then
sql="select * from test where id2="&userid&"  order by refer desc"
elseif session("order")<>"" and userid<>"" then
sql="select * from test where id2="&userid&"  order by "&session("order")&""
end if
 Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
dim y,str_title1
if rs.eof then
response.write "<center> 尚 未 提 供 任 何 题 目 </center><br><br>"%>
<center><a href="newtest.asp?teacherid=<%=userid%>">添加新试题</a></center>
 <%else                   
  const MaxPerPage=10
  dim totalPut
  dim CurrentPage
  dim TotalPages
  dim i,j
  dim typename
  typename="所有题目"
  if not isempty(request("page")) then
  currentPage=cint(request("page"))
  else
  currentPage=1
  end if
  totalPut=rs.recordcount
  totalPut=rs.recordcount
  if currentpage<1 then
  currentpage=1
  end if
  if (currentpage-1)*MaxPerPage>totalput then
   if (totalPut mod MaxPerPage)=0 then
   currentpage= totalPut \ MaxPerPage
   else
   currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"managetest.asp"
showContent
showpage totalput,MaxPerPage,"managetest.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"managetest.asp"
showContent
showpage totalput,MaxPerPage,"managetest.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"managetest.asp"
showContent
showpage totalput,MaxPerPage,"managetest.asp"
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0%>
<div align="left">
<TABLE border=1 bgcolor="#e6e5b8" borderColorDark=#ffffff borderColorLight=#660066
cellPadding=5 cellSpacing=0 width="90%" height="38">
<TBODY>
<TR align=middle>
<TD height="1" align="center" bgcolor="#8CAAE7" width="75%" valign="middle" colspan="3">
<%if userid<>"" then%>
<form method="POST" action="managetest.asp?userid=<%=userid%>" style="text-align: center; text-indent: 0; word-spacing: 0; margin: 0">
<%else%>
<form method="POST" action="managetest.asp" style="text-align: center; text-indent: 0; word-spacing: 0; margin: 0">
<%end if%>
<font color="#000000"> <%=session("login")%>老师，以下是能够管理的问题
</font><select size="1" name="D1" class="td1" style="text-indent: 0; text-align: center; word-spacing: 0; margin: 0">
<option selected value="时间">按提交时间排序</option>
<option value="教程编号">按所属章节排序</option>
<option value="题目">按题目内容排序</option>
</select><input type="submit" value="排序" name="B1" style="text-align: center; word-spacing: 0; text-indent: 0; margin: 0">
</form>
</TD>
<TD height="1" align="center" bgcolor="#8CAAE7" width="15%" valign="middle" colspan="2">
<a href="newtest.asp?teacherid=<%=rs("id2")%>">添加新试题</a>
</TD>
</TR>
<TR align=middle>
<TD height="1" align="center" bgcolor="#D9E2F7" width="38%" valign="middle">
<font color="#FF0000">『题目』</font>
</TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="25%" valign="middle">
<font color="#FF0000">『所属章节』</font>
</TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="13%" valign="middle">
<font color="#FF0000">『时间』</font>
</TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="15%" valign="middle" colspan="2">
<font color="#FF0000">『管理』</font>
</TD>
</TR>
<%do while not rs.eof%>
<TR align=middle>
<TD height="1" align="center" bgcolor="#D9E2F7" width="38%" valign="middle">
<%y=rs("subject")
if len(y)>20 then
str_title1=left(y,20)&"…"
else
str_title1=rs("subject")
end if
sql1="select * from tutorial where ID="&rs("id1")&""
set rs2=conn.execute(sql1)%>
<a href="testdetail.asp?testid=<%=rs("ID")%>" title="<%=rs("subject")%>"><%=str_title1%></a></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="25%" valign="middle">
<a href="viewtutorial.asp?id=<%=rs2("ID")%>" target="_blank"><%=rs2("title")%></a></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="13%" valign="middle"><%=rs("refer")%></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="8%" valign="middle"><a href="updatest1.asp?testid=<%=rs("ID")%>">修改</a></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="7%" valign="middle"><a href="del_test.asp?testid=<%=rs("ID")%>" onclick="checkclick('你确定要删除该题目吗?')">删除</a></TD>
</TR>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%>
</TBODY></TABLE>
</div>
<% end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align='center'><font color='#000080'>&gt;&gt;分页</font>&nbsp;"
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
else
response.write "<a href="&filename&"?page=1&userid="&userid&"&order="&session("order")&">首页</a>&nbsp;"
response.write "<a href="&filename&"?page="&CurrentPage-1&"&userid="&userid&"&order="&session("order")&">上一页</a>&nbsp;"
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&userid="&userid&"&order="&session("order")&""
response.write ">下一页</a> <a href="&filename&"?page="&n&"&userid="&userid&"&order="&session("order")&">尾页</a>"
end if
response.write "&nbsp;<strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>个题目 <b>"&maxperpage&"</b>个题目/页</font> "
response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=2 maxlength=3 value="&currentpage&">"
response.write "<input class=buttonface type='submit'  value=' Go '  name='cndok'></span></p></form>"
end function
end if
end if
%>
</body>
</html>
💿 文件大小 925 K
👤 上传用户 setixp
📂 所属分类教育系统应用
🏷️ 相关标签

#模块设计
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -