|
4 系统的实现4.1 登录窗口模块 http://www.paper51.com 用户登录模块：新用户必须点击界面上的“NEW我想成为新会员”才能注册，注册成功后返回此界面输入已注册的用户ID和密码就可进入该系统，管理员点击界面上的“管理员进入”就可进入管理员登录窗口界面。 paper51.com
http://www.paper51.com 图6 用户登录界面 内容来自论文无忧网 www.paper51.com 其中实现这个界面功能的关键代码如下面代码所示： copyright paper51.com <% Setconn=Server.CreateObject("ADODB.Connection") http://www.paper51.com conn.open"dsn=luntan;uid=fd;pwd=123" copyright paper51.com userid=request("UserID") 内容来自论文无忧网 www.paper51.com userpassword=request("Userpassword") copyright paper51.com Setrs=Server.CreateObject("ADODB.Recordset") copyright paper51.com rs.open "select * from Admini_t whereUserid='"&userid&"'and Userpassword='"&userpassword&"'",conn 内容来自论文无忧网 www.paper51.com name1=rs("Username") 内容来自www.paper51.com useremail=rs("Useremail") 内容来自www.paper51.com
usersex=rs("UserSex") paper51.com userbirdate=rs("Userbirdate") paper51.com userrank=rs("Userrank") paper51.com userjob=rs("Userjob") paper51.com useraddress=rs("Useraddress") paper51.com userpostnum=rs("Userpostnum") 内容来自www.paper51.com useremail=rs("Useremail") copyright paper51.com useranswer=rs("Useranswer") http://www.paper51.com userquestion=rs("Userquestion") 内容来自www.paper51.com
session("Name")=name1 内容来自www.paper51.com session("password")=userpassword http://www.paper51.com session("Email")=useremail http://www.paper51.com session("Sex")=usersex 内容来自论文无忧网 www.paper51.com session("Address")=useraddress paper51.com session("Postnum")=userpostnum paper51.com
session("Rank")=userrank http://www.paper51.com
session("Job")=userjob paper51.com session("Birdate")=userbirdate http://www.paper51.com session("Answer")=useranswer http://www.paper51.com session("Question")=userquestion copyright paper51.com session("ID")=userid paper51.com if rs.eof and rs.bof then 内容来自www.paper51.com response.redirect"indexerror.asp" http://www.paper51.com else paper51.com response.redirect "choice.asp" 内容来自www.paper51.com end if %> copyright paper51.com
4.2 论坛主界面模块 内容来自www.paper51.com 该论坛主界面模块主要包括：话题选择模块、显示发表的信息模块、显示回复的信息模块三个大的模块。 内容来自论文无忧网 www.paper51.com 显示发表的信息模块包括生活情感类、学习新闻类、理想事业类、娱乐世界类四类模块；显示回复信息模块也包括这四类模块。下面对其中的一些模块进行介绍： 内容来自www.paper51.com 1、话题选择模块 paper51.com
用户及管理员正确登录后，进入此界面进行生活情感、学习新闻、理想事业、娱乐世界四类话题的选择，每选中一个话题点“进入”按钮则可进入，点“返回首页”则可返回会员登录界面。 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 图7 话题选择界面 内容来自论文无忧网 www.paper51.com 其中实现这个界面功能的关键代码如下面代码所示： 内容来自www.paper51.com
<% 内容来自论文无忧网 www.paper51.com
Setconn=Server.CreateObject("ADODB.Connection") paper51.com conn.open "dsn=luntan;uid=fd;pwd=123" copyright paper51.com Dim choicey 内容来自www.paper51.com select case request("choicejm") paper51.com
case "choice1": 内容来自www.paper51.com choicey="生活情感" copyright paper51.com if(session("Name")="fangxiaodan")then 内容来自论文无忧网 www.paper51.com response.Redirect("mangelife_class1.asp") paper51.com else http://www.paper51.com
response.redirect("life_class1.asp") copyright paper51.com end if http://www.paper51.com case "choice2": 内容来自论文无忧网 www.paper51.com choicey="学习新闻" copyright paper51.com if(session("Name")="fangxiaodan")then 内容来自论文无忧网 www.paper51.com response.Redirect("mangestudy_class1.asp") 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com response.redirect("study_class1.asp") 内容来自论文无忧网 www.paper51.com end if copyright paper51.com case "choice3": 内容来自论文无忧网 www.paper51.com choicey="理想事业" paper51.com if(session("Name")="fangxiaodan")then 内容来自www.paper51.com response.Redirect("mangeidea_class1.asp") http://www.paper51.com else 内容来自论文无忧网 www.paper51.com
response.redirect("idea_class1.asp") copyright paper51.com end if 内容来自www.paper51.com case "choice4": http://www.paper51.com choicey="娱乐世界" paper51.com if(session("Name")="fangxiaodan")then paper51.com response.Redirect("mangehappy_class1.asp") 内容来自论文无忧网 www.paper51.com else copyright paper51.com
response.redirect("happy_class1.asp") 内容来自论文无忧网 www.paper51.com end if 内容来自www.paper51.com
end select %> copyright paper51.com
2、显示发表信息模块 paper51.com 包括对生活情感类的显示发表模块、学习新闻类的显示发表模块、理想事业类的显示发表模块、娱乐世界类的显示发表模块四类模块；下面对其中的一些模块进行介绍。 copyright paper51.com 例如：当用户选择了生活情感类后，则可进入此界面查看其它用户已发表的话题，也可以点“发表贴子”按钮进行发表新话题，如果点了“标题”的内容则会进入此标题所回复的内容界面，因为对标题进行了超链接。 http://www.paper51.com
http://www.paper51.com 图8 生活情感界面 http://www.paper51.com 其中实现这个界面功能的关键代码如下面代码所示： http://www.paper51.com <% paper51.com Setconn=Server.CreateObject("ADODB.Connection") 内容来自www.paper51.com conn.open"dsn=luntan;uid=fd;pwd=123" 内容来自论文无忧网 www.paper51.com setrs=server.createobject("ADODB.Recordset") http://www.paper51.com rs.open "select * fromlifetopic1_T order by lifedate DESC ",conn ,3,3 paper51.com rs.Pagesize=8 内容来自论文无忧网 www.paper51.com a=cint(request.querystring("a")) copyright paper51.com
if (a=0) then http://www.paper51.com
a=1 http://www.paper51.com
end if paper51.com
rs.absolutepage=a http://www.paper51.com
%> http://www.paper51.com <% copyright paper51.com i=1 paper51.com
do while (not rs.eof) and(i<=rs.pagesize) copyright paper51.com %> 内容来自www.paper51.com <tr> http://www.paper51.com
<td height="50"class="style11"> http://www.paper51.com
<% paper51.com flag1=rs("kind") 内容来自论文无忧网 www.paper51.com select case flag1 paper51.com %> 内容来自论文无忧网 www.paper51.com <%case 1%> paper51.com <imgsrc="Images/Face/10.gif"> copyright paper51.com <%case 2%> http://www.paper51.com <imgsrc="Images/Face/11.gif"> http://www.paper51.com <%case 3%> 内容来自www.paper51.com
<imgsrc="Images/Face/13.gif"> 内容来自论文无忧网 www.paper51.com <%case 4%> 内容来自www.paper51.com <imgsrc="Images/Face/14.gif"> 内容来自论文无忧网 www.paper51.com <%case 5%> http://www.paper51.com <imgsrc="Images/Face/9.gif"> copyright paper51.com <%case 6%> http://www.paper51.com <imgsrc="Images/Face/3.gif"> 内容来自论文无忧网 www.paper51.com <%case 7%> 内容来自论文无忧网 www.paper51.com <img src="Images/Face/26.gif"> paper51.com <%case 8%> 内容来自www.paper51.com
<imgsrc="Images/Face/27.gif"> paper51.com <%case 9%> paper51.com <imgsrc="Images/Face/28.gif"> paper51.com <%case 10%> paper51.com <imgsrc="Images/Face/30.gif"> http://www.paper51.com
<%case 11%> copyright paper51.com
<imgsrc="Images/Face/29.gif"> 内容来自www.paper51.com <%case 12%> paper51.com <imgsrc="Images/Face/23.gif"> paper51.com
<%end select%></td> copyright paper51.com <td height="100"class="style11"> 内容来自论文无忧网 www.paper51.com
<ahref="gonggongxinxilifepd0.asp?title=<%=rs("title")%>"> paper51.com <%=rs("title")%></a> copyright paper51.com </td> paper51.com
<td height="100"class="style11"> <%=rs("author")%></td> paper51.com <td height="100"class="style11"> <%=rs("lifedate")%></td> http://www.paper51.com </tr> http://www.paper51.com <% copyright paper51.com i=i+1 内容来自论文无忧网 www.paper51.com rs.movenext paper51.com loop 内容来自论文无忧网 www.paper51.com %> 内容来自论文无忧网 www.paper51.com
<% paper51.com pagec=rs.pagecount copyright paper51.com
rs.close copyright paper51.com set rs=nothing 内容来自www.paper51.com
conn.close paper51.com set conn=nothing 内容来自www.paper51.com %> paper51.com
<tr> 内容来自论文无忧网 www.paper51.com <td height="34"colspan="4" class="style11"> 内容来自www.paper51.com <%if a<pagec then%> 内容来自www.paper51.com <ahref="life_class1.asp?a=<%=a+1%>">下页 paper51.com <%end if %> <%if a>1 then%> 内容来自www.paper51.com <ahref="life_class1.asp?a=<%=a-1%>">上页 内容来自www.paper51.com <%end if %> paper51.com
当选中学习新闻类后，则可进入此界面查看其它用户已发表的话题，也可以点“发表贴子”按钮发表新话题，如果点了“标题”的内容就会进入此标题所回复的内容界面，因为对标题进行了超链接。 内容来自www.paper51.com
内容来自www.paper51.com 图9 学习新闻界面 http://www.paper51.com 其中实现这个功能的关键代码相似于“生活情感”类中的代码；同样，“理想事业”、“娱乐世界”两类模块的实现方法及关键代码都同上面两类相似，这里不再详细叙述。 copyright paper51.com |