📄 managequestion.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>
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
Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CSTUDY.mdb")
	set rs= server.createobject("adodb.recordset") 
if userid<>"" and session("order")=""then
sql="select * from question where id3="&userid&"  order by refer desc"
elseif session("order")<>"" and userid<>"" then
sql="select * from question where id3="&userid&"  order by "&session("order")&" desc"
end if
set rs=conn.Execute(sql)
dim y,str_title1
if rs.eof then
response.write "<center> 尚 未 提 出 任 何 问 题 </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,"managequestion.asp"
showContent
showpage totalput,MaxPerPage,"managequestion.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"managequestion.asp"
showContent
showpage totalput,MaxPerPage,"managequestion.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"managequestion.asp"
showContent
showpage totalput,MaxPerPage,"managequestion.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="90%" valign="middle" colspan="5">
<%if userid<>"" then%>
<form method="POST" action="managequestion.asp?userid=<%=userid%>" style="text-align: center; text-indent: 0; word-spacing: 0; margin: 0">
<%elseif chapterid<>"" then%>
<form method="POST" action="managequestion.asp?chapterid=<%=chapterid%>" style="text-align: center; text-indent: 0; word-spacing: 0; margin: 0">
<%else%>
<form method="POST" action="managequestion.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>
&nbsp;                               
</select><input type="submit" value="排序" name="B1" style="text-align: center; word-spacing: 0; text-indent: 0; margin: 0">
</form>
</TD>
</TR>
<TR align=middle>
<TD height="1" align="center" bgcolor="#E6E5B8" width="26%" valign="middle">
<font color="#FF0000">『问题标题』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="11%" valign="middle">
<font color="#FF0000">『已回答』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="12%" valign="middle">
<font color="#FF0000">『提交时间』</font>
</TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="16%" valign="middle" colspan="2">
<font color="#FF0000">『问题管理』</font>
</TD>
</TR>
<%do while not rs.eof%>
<TR align=middle>
<TD height="1" align="center" bgcolor="#E6E5B8" width="26%" valign="middle">
<%y=rs("title")
if len(y)>15 then
str_title1=left(y,10)&"…"
else
str_title1=rs("title")
end if
%>
<a href="questiondetail.asp?id=<%=rs("ID")%>"><%=str_title1%></a></TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="11%" valign="middle"><%=rs("or")%></TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="12%" valign="middle"><%=rs("refer")%></TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="8%" valign="middle"><a href="del_question.asp?questionid=<%=rs("ID")%>&userid=<%=rs("id3")%>&page=<%=CurrentPage%>" onclick="checkclick('你确定要删除该问题及所有答复?')">删除</a></TD>
<TD height="1" align="center" bgcolor="#E6E5B8" width="8%" valign="middle">
<a href="answerquestion.asp?questionid=<%=rs("ID")%>&teacherid=<%=rs("id3")%>">回答</a>
</TD>
</TR>
<%if rs("or")="是" then
sqlanswer="select * from answer where id1="&rs("ID")&""
set rsanswer=conn.execute(sqlanswer)
do while not rsanswer.eof
j=j+1
%>
<TR align=middle>
<TD height="1" align="center" bgcolor="#D9E2F7" width="37%" valign="middle" colspan="2">
<table border="0" width="100%">
<tr>
<td width="15%"></td>
<td width="85%"><font color="#FF0000">『答复<%=j%>』：</font>
<%answer=rsanswer("content")
if len(answer)>15 then
str_answer=left(answer,15)&"…"
else
str_answer=rsanswer("content")
end if%>
<a href="answer.asp?questionid=<%=rs("ID")%>&userid=<%=rs("id1")%>"><%=str_answer%></a>
</tr>
</table></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="12%" valign="middle"><%=rsanswer("refer")%></TD>
<TD height="1" align="center" bgcolor="#D9E2F7" width="16%" valign="middle" colspan="2"><a href="del_answer.asp?answerid=<%=rsanswer("ID")%>&userid=<%=rsanswer("id2")%>&page=<%=CurrentPage%>" onclick="checkclick('你确定要删除该回答?')">删除该回答</a></TD>
</TR>
<%rsanswer.movenext
loop
j=0
end if%>
<% 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 + -