个人博客文档

《个人博客》说明书

学号

姓名

指导教师

目录

1 系统功能分析 (1)

2 后台数据库的设计 (1)

2.1数据库的逻辑设计 (1)

2.2 数据库的物理设计 (2)

3 系统模块划分 (3)

4 关键代码 (4)

4.1博客首页界面及主要代码 (4)

4.2后台管理登录界面及代码 (6)

4.3博客后台管理界面及代码 (6)

5 总结 (12)

1 系统功能分析

（1）通过对网上一些博客的浏览发现别人的博客做的很不错。就拿新浪博客来说吧。优点：符合人们平时的使用习惯，界面友好，除了一些基本的板块如博文目录、图片、相册专辑、视频列表、视频播放器、留言、音乐播放器等等之外，还可以换背景皮肤，各板块的布局。打造自己的个性空间。缺点：相册切换效果不够漂亮。 （2）个人博客实现的前台功能：博客日历、博文搜索、评论、网站统计、分类相册浏览。

（3）个人博客实现的后台功能：添加文章、修改文章、删除文章、浏览文章、添加照片、修改照片、删除照片、查询照片、添加评论、删除评论、管理员资料修改。

（4）使用的脚本语言javascript 、vbscript 、html 、access 数据库。

2 后台数据库的设计

2.1数据库的逻辑设计

数据库实体之间的关系如图2-1所示

图2-1

管理 照片

游客

浏览

文章 博主 评论 发表

2.2 数据库的物理设计

该数据库共有六个表：表tab_artile存放关于博文的信息，如表2-1所示；表tab_aricle_class存放关于博文类别的信息，如表2-2所示；表tab_article_commend存放关于对博文的评论信息，如表2-3所示；表tab_manager存放关于管理员的信息，如表2-4所示；表tab_photo存放关于照片的信息，如表2-5所示；表tab_photo_class 存放关于照片的类别的信息，如表2-6所示。表的详细内容如下：

表2-1 tab_artile

字段名字段类型字段长度意义备注id 自动编号长整型唯一标识主键Aclass 数字长整型所属类别ID

Atitle 文本50 文章标题

Acontent 备注文章内容

Adate 日期/时间添加时间

表2-2 tab_artitle_class

字段名字段类型字段长度意义备注id 自动编号长整型唯一标识主键（外键）Acname 文本50 文章分类名称

Acdate 日期/时间添加时间

表2-3 tab_artitle_commend

字段名字段类型字段长度意义备注

id 自动编号长整型唯一标识主键

Cid 数字长整型文章ID编号

Cname 文本50 昵称

Ccontent 文本200 评论内容

Cdate 日期/时间评论时间

表2-4 tab_manager

字段名字段类型字段长度意义备注id 自动编号长整型唯一标识主键

Mname 文本50 管理员名称

Mpasswd 文本50 密码

表2-5 tab_photo

字段名 字段类型 字段长度 意义 备注 id 自动编号 长整型 唯一标识 主键 Pclass 数字 长整型 相册分类ID Pname 文本 50 图片名称 Ppic 文本 50 图片标识 Pinfo OLE 对象 图片信息 Pdate

日期/时间

添加时间

表2.6 tab_photo_class

字段名 字段类型 字段长度 意义 备注 id 自动编号 长整型 唯一标识 主键(外键)

Pcname 文本 50 相册分类名称 Pcdate

日期/时间

添加时间

3 系统模块划分

个人博客系统与网上能够找到的系统功能区别在于：

（1）个人博客系统中的照片浏览只是平淡的打开观看，没有切换的效果；我所

浏

览 博 文

浏

览 照 片

评

论

文

章

背

景

音 乐

博

客

日

历

博

文

搜

索

网

站

统

计

文

章

管

理 相

册

管

理

修改管理员资料

个人博客

前台功能

博客管理

文

章 添 加

文

章 删 除

文

章 修 改

添

加 照

片

修

改 照 片

删

除 照

片

看到的有一个海纳博客，相册切换效果很漂亮。

（2）背景音乐只能播放一首，不能像新浪博客那样还可以自己添加网络音乐，任意切换想听的歌；

（3）个人博客所发表的文章只被能浏览和评论，不像新浪博客那样被转载和收藏。

4 关键代码

4.1博客首页界面及主要代码

图4-1

主要代码如下：

<%'获取日志数

sqlstr="select count(id) from tab_article"

Set rs=conn.Execute(sqlstr)

num1=rs.fields(0).value

Set rs=Nothing

'获取评论数

sqlstr=sql&"select count(id) from tab_article_commend"

Set rs=conn.Execute(sqlstr)

num2=rs.fields(0).value

Set rs=Nothing

'获取访问人数

Set FSObject=Server.CreateObject("Scripting.FileSystemObject")

Set TextFile=FSObject.OpenTextFile(Server.MapPath("count.txt"))

num3=TextFile.ReadLine

Set TextFile=Nothing

Set FSObject=Nothing

%>

<%

Set rs=Server.CreateObject("ADODB.Recordset")

sqlstr="select top 3 id,Cid,Ccontent from tab_article_commend order by id desc" rs.open sqlstr,conn,1,1

while not rs.eof

Set rs_commend=conn.Execute("select count(id) as num from tab_article_commend where Cid="&rs("Cid")&"")'获取评论数量

str=rs("Ccontent")

Response.Write("

href='web_blog_view.asp?id="&rs("Cid")&"&num="&rs_commend("num")&"' target='mainFrame'>"&Left(str,16)&"
")

rs.movenext

wend

rs.close

Set rs=Nothing

%>

4.2后台管理登录界面及代码

图4-2

主要代码如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%

Response.Buffer=true

Response.Expires=0

Response.CacheControl="no-cache"

%>

<%

session("verifycode")=randStr(4)

If Not Isempty(Request("login")) Then

txt_name=Str_filter(Request.Form("txt_name"))

txt_passwd=Str_filter(Request.Form("txt_passwd"))

verifycode=Str_filter(Request.Form("verifycode"))

verifycode2=Str_filter(Request.Form("verifycode2"))

If verifycode <> verifycode2 then

Response.write""

Response.End()

Else

Session("verifycode")=""

End IF

If txt_name<>"" Then

Set rs=Server.CreateObject("ADODB.Recordset")

sqlstr="select Mname,Mpasswd from tab_manager where

Mname='"&txt_name&"'"

rs.open sqlstr,conn,1,1

If rs.eof Then

Response.Write("")

Else

If rs("Mpasswd")<>txt_passwd Then

Response.Write("")

Else

Session("Mname")=rs("Mname")

Response.Redirect("index.asp")

End If

End If

Else

errstr="请输入用户名!"

End If

End If

%>

4.3博客后台管理界面及代码

图4-3（1）文章添加代码：

Sub add()

str1=Str_filter(Request.Form("文章类别"))

str3=Str_filter(Request.Form("文章主题"))

str4=Str_filter(Request.Form("文章内容"))

If str1<>""and str3<>"" and str4<>"" Then

Set rs=Server.CreateObject("ADODB.Recordset")

sqlstr="select * from tab_article"

rs.open sqlstr,conn,1,3

rs.addnew

rs("Aclass")=str1

rs("Atitle")=str3

rs("Acontent")=str4

rs.update

rs.close

Set rs=Nothing

Response.Write("")

Response.Redirect("ad_article_list.asp")

Else

Response.Write("") End If

End Sub

（2）文章删除代码：

If Not Isempty(Request("delete")) Then

id=Request.Form("id")

sqlstr="delete from tab_article_commend where Cid="&id&""

conn.Execute(sqlstr)

sqlstr="delete from tab_article where id="&id&""

conn.Execute(sqlstr)

Response.Redirect("ad_article_list.asp")

End If

（3）文章修改代码：

Sub edit()

id=Request.Form("id")

str1=Str_filter(Request.Form("文章类别"))

str3=Str_filter(Request.Form("文章主题"))

str4=Str_filter(Request.Form("文章内容"))

If str1<>"" and str3<>"" and str4<>"" Then

Set rs=Server.CreateObject("ADODB.Recordset")

sqlstr="select * from tab_article where id="&id&""

rs.open sqlstr,conn,1,3

rs("Aclass")=str1

rs("Atitle")=str3

rs("Acontent")=str4

rs.update

rs.close

Set rs=Nothing

Response.Redirect("ad_article_list.asp")

Else

Response.Write("") End If

End Sub

（4）添加照片的代码如下:

imgsize=request.TotalBytes

If imgsize/1024>3000 Then

Response.write "" response.End()

End If

imgData=request.BinaryRead(imgsize)

Hcrlf=chrB(13)&chrB(10)

Divider=leftB(imgdata,clng(instrB(imgData,Hcrlf))-1)

dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4

Dend=instrB(dstart+1,imgdata,divider)-dstart

Mydata=MidB(imgdata,dstart,dend)

Session("pic")=Mydata

'获取客户端文件路径

datastart=InstrB(imgData,Hcrlf)+59

dataend=InstrB(datastart,imgData,Hcrlf)-2

datalen=dataend-datastart+1

filepath=MidB(imgData,datastart,datalen)

filepath=toStr(filepath)

Session("filepath")=filepath

'将二进制数据转换为字符串

Function toStr(Byt)

Dim blow

toStr = ""

For i = 1 To LenB(Byt)

blow = MidB(Byt, i, 1)

If AscB(blow) > 127 Then

toStr = toStr & Chr(AscW(MidB(Byt, i + 1, 1) & blow))

i = i + 1

Else

toStr = toStr & Chr(AscB(blow))

End If

Next

End Function

（5）添加评论、删除评论、修改评论与修改照片、删除照片及照片类别，博文类别管理与博文的管理同理，这里就不在赘述了。

5 总结

（1）系统同开发中遇到的问题及解决法案：无。

（2）系统存在的问题：背景音乐只能播放一首，无法多首顺序或随机播放；网站统计不能即时刷新；验证码区分大小写。

（3）系统需完善的功能：基本的功能都有了，只需将系统存在的问题完善一下就行了。