3.2后台数据库实现的功能
下面将详细介绍数据库每个库文件的内容与功能：
用户个人信息（userdata）它包含了个人所有的信息，比如：新加入时间，最后登陆该论坛的时间，用户的头像，密码，邮箱，等级，密码问题及问题答案等等。
paper51.com
它的作用是用来记录和核对用户的个人资料。 内容来自www.paper51.com
系统提示(usernote) 是当你注册成功的时候系统会给你发出如：
copyright paper51.com
毕业设计论坛欢迎您的到来 http://www.paper51.com
毕业设计论坛全体管理人员欢迎您的到来
内容来自www.paper51.com
如有任何疑问请及时联系系统管理员。 http://www.paper51.com
如有任何使用上的问题请查看论坛帮助。 内容来自论文无忧网 www.paper51.com
感谢您注册本系统，让我们一起来建设这个网上家的信息。
流程图如下： 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
它的作用是用来提示新注册的用户已经注册成功并且成功登陆。
魔法表情（Magicface）提供了多种魔法表情供用户使用。示意图如下：
copyright paper51.com
其实这还只是一小部分，本论坛提供的魔法表情多达329种。这为不同的用户提供了适合自己的魔法表情。 copyright paper51.com
用户的网络个人信息（Sysonline）是说明了用户的操作系统，IP地址，浏览器，访问该论坛的时间。 示意图如下：
帖子信息（BBSMessage）包含了用户发帖的题目，具体内容，用户昵称，发帖时间。具体的示意图如下： copyright 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
方便管理员的定期查阅与管理 paper51.com
第四章 关键代码描述 copyright paper51.com
在这里把一些关键的代码列下：
4.1连接数据库源代码 内容来自论文无忧网 www.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() '运行开始时间
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")
Conn.OpenDriver
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
End Sub 内容来自论文无忧网 www.paper51.com
'If Not isObject(Conn) Then Call LinkDataBase()
%>
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()
Response.write BoardList() 内容来自www.paper51.com
Response.write UserOnline()
内容来自www.paper51.com
if Clng(Snow.ForumOption(7))=0 then'是否开放友情连接
Response.writeFriendLink() paper51.com
End if
Response.write Replace(Template.Html(6),"{$UserSkinPath}",Template.UserSkinPath) 内容来自www.paper51.com
Snow.Footer()
内容来自www.paper51.com
Function UserLoginDate()
dim TempStr,StrImg
if Snow.FoundUser then
TempStr=Template.Html(1)
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}'>"
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
End Function