|
3.2后台数据库实现的功能 下面将详细介绍数据库每个库文件的内容与功能： 内容来自www.paper51.com
用户个人信息（userdata）它包含了个人所有的信息，比如：新加入时间，最后登陆该论坛的时间，用户的头像，密码，邮箱，等级，密码问题及问题答案等等。 paper51.com 它的作用是用来记录和核对用户的个人资料。 内容来自www.paper51.com 系统提示(usernote) 是当你注册成功的时候系统会给你发出如： copyright paper51.com 毕业设计论坛欢迎您的到来 http://www.paper51.com 毕业设计论坛全体管理人员欢迎您的到来 内容来自www.paper51.com 如有任何疑问请及时联系系统管理员。 http://www.paper51.com 如有任何使用上的问题请查看论坛帮助。 内容来自论文无忧网 www.paper51.com 感谢您注册本系统，让我们一起来建设这个网上家的信息。 paper51.com
流程图如下： 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 它的作用是用来提示新注册的用户已经注册成功并且成功登陆。 paper51.com
魔法表情（Magicface）提供了多种魔法表情供用户使用。示意图如下： paper51.com
copyright paper51.com 其实这还只是一小部分，本论坛提供的魔法表情多达329种。这为不同的用户提供了适合自己的魔法表情。 copyright paper51.com 用户的网络个人信息（Sysonline）是说明了用户的操作系统，IP地址，浏览器，访问该论坛的时间。 示意图如下： copyright paper51.com
paper51.com
帖子信息（BBSMessage）包含了用户发帖的题目，具体内容，用户昵称，发帖时间。具体的示意图如下： copyright paper51.com
http://www.paper51.com
用户网络信息和帖子信息这两个数据库的作用是方便管理员的定期查阅与管理。 内容来自论文无忧网 www.paper51.com 我们可以通过下面表格来对后台数据库的作用有一个更为直接的认识。 内容来自论文无忧网 www.paper51.com
后台数据库名称 内容来自论文无忧网 www.paper51.com 作用 http://www.paper51.com 用户个人资料 内容来自www.paper51.com 记录和核对用户的个人资料 http://www.paper51.com 系统提示 内容来自www.paper51.com 提示新注册用户已注册成功且成功登陆 http://www.paper51.com 魔法表情 paper51.com 为不同用户提供了适合自己的魔法表情 copyright paper51.com 论坛风格 内容来自论文无忧网 www.paper51.com
适合不同用户所喜欢的网站背景而设置 内容来自www.paper51.com 帖子信息 内容来自论文无忧网 www.paper51.com
方便管理员的定期查阅与管理 copyright paper51.com
用户网络信息 内容来自www.paper51.com 方便管理员的定期查阅与管理 paper51.com 第四章 关键代码描述 copyright paper51.com 在这里把一些关键的代码列下： copyright paper51.com
4.1连接数据库源代码 内容来自论文无忧网 www.paper51.com <% copyright paper51.com
Response.Buffer=True 内容来自www.paper51.com Dim Conn,DataBase,Driver,SearchNum,StartTime http://www.paper51.com SearchNum=0 '数据库查询次数，初始值 copyright paper51.com StartTime=Timer() '运行开始时间 copyright paper51.com
Sub LinkDataBase() copyright paper51.com DataBase=Server.MapPath("DataBase/SnowBoy.mdb") 内容来自论文无忧网 www.paper51.com Driver="Provider= Microsoft.Jet.OLEDB.4.0;Data Source ="&DataBase 内容来自论文无忧网 www.paper51.com SetConn=Server.CreateObject("Adodb.Connection") paper51.com
Conn.OpenDriver 内容来自论文无忧网 www.paper51.com
IfErr then http://www.paper51.com Err.Clear copyright paper51.com Set Conn=Nothing 内容来自www.paper51.com Response.Write"数据库连接出错，请检查连接字符串" paper51.com Response.End copyright paper51.com Endif paper51.com End Sub paper51.com Sub CloseConn() 内容来自www.paper51.com Conn.Close copyright paper51.com SetConn=Nothing paper51.com
End Sub 内容来自论文无忧网 www.paper51.com 'If Not isObject(Conn) Then Call LinkDataBase() 内容来自论文无忧网 www.paper51.com
%> paper51.com 4.2主页源代码 copyright paper51.com <!-- #include file="Inc/SysConfig.asp" --> 内容来自论文无忧网 www.paper51.com <% paper51.com Snow.Nowstats="论坛首页" 内容来自论文无忧网 www.paper51.com Snow.Head() http://www.paper51.com Snow.Online() 内容来自www.paper51.com Template.GetHtml("Index") 内容来自论文无忧网 www.paper51.com Response.write UserLoginDate() paper51.com
Response.write BoardList() 内容来自www.paper51.com Response.write UserOnline() 内容来自www.paper51.com if Clng(Snow.ForumOption(7))=0 then'是否开放友情连接 内容来自论文无忧网 www.paper51.com
Response.writeFriendLink() paper51.com End if 内容来自www.paper51.com
Response.write Replace(Template.Html(6),"{$UserSkinPath}",Template.UserSkinPath) 内容来自www.paper51.com Snow.Footer() 内容来自www.paper51.com Function UserLoginDate() http://www.paper51.com
dim TempStr,StrImg 内容来自www.paper51.com
if Snow.FoundUser then 内容来自论文无忧网 www.paper51.com
TempStr=Template.Html(1) copyright paper51.com
StrImg="<imgsrc='"&Session("UserInFo")(14)&"'Width="&Session("UserInFo")(15)&"Height="&Session("UserInFo")(16)&" border='1'onload='javascript:if(this.width>90){this.width=90;this.height=90}'>" copyright paper51.com
TempStr=Replace(TempStr,"{$UserFace}",StrImg) copyright paper51.com TempStr=Replace(TempStr,"{$MyNote}",Session("UserInFo")(20)) http://www.paper51.com TempStr=Replace(TempStr,"{$UserName}",Snow.UserName) copyright paper51.com Else 内容来自论文无忧网 www.paper51.com TempStr=Template.Html(2) 内容来自论文无忧网 www.paper51.com End if 内容来自论文无忧网 www.paper51.com TempStr=Replace(Template.Html(0),"{$UserLoginIsTrue}",TempStr) paper51.com TempStr=Replace(TempStr,"{$MemberCount}",Snow.MemberTotal) 内容来自www.paper51.com TempStr=Replace(TempStr,"{$NewUserName}",Snow.NewMember) 内容来自www.paper51.com TempStr=Replace(TempStr,"{$YesterdayTopic}",Snow.YesterdayTopic) 内容来自论文无忧网 www.paper51.com TempStr=Replace(TempStr,"{$TodayTopic}",Snow.TodayTopic) copyright paper51.com TempStr=Replace(TempStr,"{$TotalTopic}",Snow.TotalTopic) copyright paper51.com TempStr=Replace(TempStr,"{$TotalReply}",Snow.TotalReply) 内容来自www.paper51.com TempStr=Replace(TempStr,"{$TopPostTopic}",Snow.TopPostTopic) http://www.paper51.com TempStr=Replace(TempStr,"{$TopOnlineCount}",Snow.TopOnlineCount) paper51.com UserLoginDate=TempStr 内容来自www.paper51.com
End Function 内容来自www.paper51.com
|