“电路分析”教学网站的设计与实现

elseif rcon="" then
      response.Write("请输入内容！[<a href='reply.asp'>返回</a>]")
    else
sqlstr="insert into reply(rtitle,name,rmes,tid) values('"&rtitle&"','"&username&"','"&rcon&"',"&id&")"
    conn.execute(sqlstr)
    set rs_=server.CreateObject("ADODB.Recordset")
    sql="select reply from bbs where iid="&id&""
    rs_.open sql,conn,1,3
    rs_("reply")=rs_("reply")+1
    rs_.update
    response.Write("回复成功，<a href='bbs.asp'>返回论坛</a>")
    end if  %>
回复主题信息页面运行效果如图16所示。

图16  回复主题信息页面
Fig 16  Reply subject information page
5.2.7 主题信息显示模块设计
    主题信息显示模块的主要功能是展示主题的详细内容以及分页展示主题对应的所有回复信息（包括专家回复信息）。
主题信息及回复信息显示页面的主要功能是显示主题详细信息、对应的回复信息、主题标题、内容、发表及回复时间，具体实现步骤如下：
（1）页面中首先根据传递的主题id号提取查询主题信息表中的数据，确定主题的详细信息和用户信息。
（2）以表格的形式显示主题信息和用户信息。
    （3）提取查询主题回复表中的数据，确定主题的回复信息和用户信息。
    （4）提取查询专家回复表中的数据，确定专家回复信息。
    （5）以表格形式显示回复信息。
主题信息及回复信息显示页面的关键代码如下
<!--***************show.asp*******************-- >
<% dim nid
nid=cint(request.QueryString("id"))
%>
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from bbs where iid="&nid&""
rs.open sql,conn,1,1

response.Write("<table>")
response.Write("<td>主题为："&rs("title")&"</td>")
response.Write("<td>作者为："&rs("name")&"</td>")
response.Write("<td>内容为："&rs("message")&"</td>")
response.Write("<td>发表时间："&rs("date")&"</td>")
response.Write("</table>")
response.Write("以下是关于此帖的回复：")
set rs1=server.CreateObject("ADODB.Recordset")
strsql="select * from reply where tid="&nid&""
rs1.open strsql,conn,1,1
if rs1.recordcount=0 then
response.Write("此帖无回复！")
else
  for i=1 to rs1.recordcount
    if rs1.eof or rs1.bof then exit for
  response.Write("<table border=0>")
    response.Write("<td>回复主题:"&rs1("rtitle")&"</td>")
    response.Write("<td>回复作者:"&rs1("name")&"</td>")
    response.Write("<td>回复内容:"&rs1("rmes")&"</td>")
    response.Write("<td>回复时间:"&rs1("rdate")&"</td>")
  response.Write("</table>")
  rs1.movenext
    next
end if
response.Write("以下专家的回复：")
set rs2=server.CreateObject("ADODB.Recordset")
strsql="select * from z_re where rid="&nid&""
rs2.open strsql,conn,1,1
if rs2.recordcount=0 then
response.Write("此帖无回复！")
else
  for i=1 to rs2.recordcount
   if rs2.eof or rs2.bof then exit for
   response.Write("<table border=1>")
   response.Write("<td>回复内容:"&rs2("rmes")&"</td>")
response.Write("<td>回复时间:"&rs2("date")&"</td>")
 response.Write("</table>")
 rs2.movenext
  next
end if
rs2.close
set rs2=nothing 
%>
主题信息及回复信息显示页面的运行效果如图17所示。

图17  主题信息及回复信息显示页面
Fig 17  Subject information and reply information demonstration page
5.2.8 在线测试模块设计
在线测试模块的主要功能是检验用户的学习成果。其关键代码如下：
<SCRIPT language=javascript>
<!--
  function Select(i,theRadio){  
    document.forms[i].show.value=theRadio.value;
      }
  function TiJiao(){
           var sum=0;
           var Cuoti=null;          
           if(document.forms[0].show.value=="C") sum=sum+5;
           else Cuoti="1";
           …… //代码与上面雷同
           else if(Cuoti==null) Cuoti="20";
                else Cuoti=Cuoti+",20";
           switch(sum){
                 case  100: window.alert("恭喜你得了满分，不过还要继续努力哦！");break;转贴于 酷文网-论文下载中心 http://www.coolwen.net

共11页: 上一页 [1] [2] [3] [4] [5] [6] [7] [8] 9 [10] [11] 下一页

网摘收藏:

上一篇：歌词同步编辑与显示系统的设计与实现
下一篇：基于VHDL的交通灯控制器的设计与实现

 -> 在百度中搜索：“电路分析”教学网站的设计与实现
 -> 在Google中搜索：“电路分析”教学网站的设计与实现