内容来自论文无忧网 www.paper51.com 4.2.3 图片滚动显示 内容来自www.paper51.com 图片的滚动使页面更加生动。 paper51.com 用Marquee语句使图片以var speed=25 的速度滚动,滚动的对象照片是从数据库steacher表单里字段logo_image里存储的地址的前10个。 paper51.com <%strsql="select top 10 * from steacher" ’ steacher表单中最先10个 copyright paper51.com rs.open strsql,conn,1,1 http://www.paper51.com do while not rs.eof http://www.paper51.com %> copyright paper51.com
<td align=center> copyright paper51.com
<table border=0 cellspacing=0 cellpadding=0> copyright paper51.com <tr><td align=center> copyright paper51.com <ahref="tshow.asp?username=<%=rs("username")%>"target="_blank" title="照片说明:<%=rs("picshuoming")%>;点击查看<%=rs("username")%>的详细资料"> 内容来自论文无忧网 www.paper51.com
<imgsrc="<%=rs("logo_image")%>" ’显示的图片的地址存放在logo_image中height="106" border="0"></a></td> copyright paper51.com </tr> http://www.paper51.com
<tr> <td align=center> copyright paper51.com <ahref="tshow.asp?username=<%=rs("username")%>"target="_blank" title="照片说明:<%=rs("picshuoming")%>;点击查看<%=rs("username")%>的详细资料"> 内容来自www.paper51.com <%=rs("username")%></a></td></table> http://www.paper51.com </td> paper51.com
<td> </td> 内容来自www.paper51.com <%rs.movenext loop paper51.com rs.close copyright paper51.com %> paper51.com </tr> paper51.com </table></td> http://www.paper51.com <td id=demo2 valign="top"></td> 内容来自www.paper51.com </table> paper51.com
</DIV><SCRIPT> 内容来自论文无忧网 www.paper51.com var speed=25 ’速度数值越大速度越慢 copyright paper51.com
demo2.innerHTML=demo1.innerHTML 内容来自www.paper51.com functionMarquee(){ copyright paper51.com if(demo2.offsetWidth-demo.scrollLeft<=0) copyright paper51.com demo.scrollLeft-=demo1.offsetWidth 内容来自www.paper51.com else{ 内容来自www.paper51.com
demo.scrollLeft++ paper51.com } copyright paper51.com } 内容来自论文无忧网 www.paper51.com varMyMar=setInterval(Marquee,speed) paper51.com
demo.onmouseover=function() {clearInterval(MyMar)} ’鼠标放上停止滚动 copyright paper51.com demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} ’鼠标离开继续滚动 </SCRIPT></td> </tr> </table> 内容来自论文无忧网 www.paper51.com
4.2.4 新闻排版 copyright paper51.com 新闻的不断更新就需要一个好的排版,将最新的显示于最前面. copyright paper51.com 将news表里按降序排列(by id desc)的前16(top)条新闻来进行排版,按4条新闻为一行,分成4行排列,用一判断语句<%if i/4=int(i/4) then%>4的整倍数换行来实现。 内容来自www.paper51.com strsql="select top 16 * from news order by iddesc" ’按降序排列的前16个 http://www.paper51.com rs.open strsql,conn,1,1 copyright paper51.com i=1 内容来自论文无忧网 www.paper51.com do while not rs.eof %> http://www.paper51.com <TD height="23" style="WIDTH:140px"> <FONT color=#ff0000>+ </FONT><Ahref="AIshow.asp?id=<%=rs("id")%>"target="_blank"> <FONTcolor=#ff00cc><%=rs("title")%></FONT></A> paper51.com <%if i/4=int(i/4) then%> ’4的整数倍换行 paper51.com <%response.write"</TD></tr>"%> 内容来自论文无忧网 www.paper51.com <%else response.write"</td>" %> paper51.com <%end if%> http://www.paper51.com <%i=i+1 copyright paper51.com rs.movenext copyright paper51.com loop paper51.com rs.close %> http://www.paper51.com 4.2.5 信息管理 http://www.paper51.com 信息管理(后台管理)主要由对管理员;教员;学员;新闻;新闻类别;留言;投诉的管理组成。设计原理很多都是相似的,下面只介绍新闻管理。 copyright paper51.com 新闻管理分为修改、删除和添加三部分。 paper51.com 添加新闻类别,如下图: 内容来自论文无忧网 www.paper51.com 图4.1 添加新闻 copyright paper51.com 使用rs.addnew语句将要添加的新闻类别添加到newstype表单的末端,rs.update更新表单 http://www.paper51.com <% copyright paper51.com sql="select * from newstype" paper51.com rs.opensql,conn,1,3 内容来自论文无忧网 www.paper51.com rs.addnew paper51.com rs("typename")=request("typename") 内容来自论文无忧网 www.paper51.com
rs.update 内容来自www.paper51.com rs.close copyright paper51.com
response.redirect"newstype_manage.asp" 内容来自www.paper51.com endif http://www.paper51.com %> http://www.paper51.com 删除新闻 paper51.com 使用delete语句删除news表单中ID为UserID的所有信息。 内容来自论文无忧网 www.paper51.com <!--#includefile="conn.asp"--> 内容来自论文无忧网 www.paper51.com <!--#includefile="admin.asp"--> paper51.com
<% copyright paper51.com dimUserID,sql,rs 内容来自论文无忧网 www.paper51.com UserID=trim(Request("ID")) copyright paper51.com ifUserID<>"" then copyright paper51.com sql="delete from news whereID=" & Clng(UserID) 内容来自论文无忧网 www.paper51.com conn.Execute sql 内容来自论文无忧网 www.paper51.com endif 内容来自www.paper51.com
callCloseConn() 内容来自论文无忧网 www.paper51.com response.redirect"newst_Manage.asp" http://www.paper51.com %> http://www.paper51.com
修改新闻 内容来自www.paper51.com 说明:因html代码太多,所以其中有很多html代码没写出来。 http://www.paper51.com
先读取news表里id等于要修改新闻id的新闻,再将每一个字段里的信息进行修改,将新信息存储于对应的字段下,rs.update更新表单。 copyright paper51.com sql="select * from news where id="&id copyright paper51.com rs.opensql,conn,1,3 内容来自www.paper51.com rs("title")=request("title") paper51.com
rs("content")=request("content") paper51.com rs("author")=request("author") http://www.paper51.com rs("addtime")=now() paper51.com
rs("tuijian")=request("tuijian") 内容来自www.paper51.com rs("typeid")=request("stype") 内容来自www.paper51.com rs.update 内容来自论文无忧网 www.paper51.com
rs.close copyright paper51.com
response.redirect"newst_manage.asp" copyright paper51.com
endif%> copyright paper51.com 5系统运行及测试结果 paper51.com 5.1系统测试方法 copyright paper51.com 本系统的测试方法:(1)在前台注册登陆、修改资料、发表留言,显示是否正常;(2)管理员登陆后台对会员、新闻、留言、投诉等信息是否能进行修改、删除。 内容来自www.paper51.com 5.2系统测试环境 内容来自论文无忧网 www.paper51.com 服务器端:windows2000 server copyright paper51.com 客户端浏览器: IE 6.0 , Firefox 1.0 http://www.paper51.com 5.3系统测试结果 内容来自论文无忧网 www.paper51.com 系统按预期正常运行,测试通过。 内容来自论文无忧网 www.paper51.com |