【導(dǎo)讀】流的新平臺(tái)，其主要特點(diǎn)是：頻繁更新、簡(jiǎn)單明了、個(gè)性化。本文對(duì)博客系統(tǒng)進(jìn)行了詳細(xì)的需求分析，建立了合理的基本表，將系統(tǒng)分為。多個(gè)功能模塊來實(shí)現(xiàn)。該系統(tǒng)為用戶提供了在網(wǎng)上展現(xiàn)自己的平臺(tái)，主要功能有。用戶注冊(cè)、登錄、用戶博客管理、瀏覽日志和評(píng)論等功能。該系統(tǒng)具有易于維護(hù)，可擴(kuò)展性好等特點(diǎn)。關(guān)鍵詞：博客；；DreamWeaverMX2020；SQLServer2020；VisualStudio

　　

【正文】 前登錄用戶的分類。 具體實(shí)現(xiàn)如下所示： If Not IsPostBack Then For i = 1 To 8 Dim srcstr As String srcstr = myimage\emot\face + + .gif//添加表情 Dim a As New = srcstr = img src=39。 + srcstr + 39。 (a) Next () = select * from category dr = While Dim a As New Dim a As New = (2) = (0) (a) End While ()[17] = mycon = select * from userclass where user_id = 39。 amp。 Session(username) amp。 39。 dr = () While Dim a As New = (3) = (0) (a) End While () () End If (2) 發(fā)表日志： 發(fā)表日志主要是在 log 基本表中添加一條日志記錄，包括日志 ID，標(biāo)題，內(nèi)容，發(fā)表人 ID，所屬系統(tǒng)分類 ID，所屬用戶分類 ID，發(fā)表時(shí)間，表情，是否隱藏，是否需要密碼。 日志的 ID 需要遍歷 log 基本表的日志 ID，把最大的 ID 號(hào)加 1，做為新日志的 ID，而不是只統(tǒng)計(jì)當(dāng)前的日志總數(shù)，因?yàn)槿罩究赡鼙粍h掉。發(fā)表日志的時(shí)候需要判斷標(biāo)題、內(nèi)容、系統(tǒng)分類是否為空，若為空則給出 提示，不為空則對(duì)基本表進(jìn)行插入操作，插入前需要將標(biāo)題、內(nèi)容、表情進(jìn)行特殊字符的變換。具體實(shí)現(xiàn)代碼如下： If (Session(username) = ) Then () End If If = Then 39。日志標(biāo)題 (script language=vbscriptalert日志標(biāo)題不能為空 /script) ElseIf = Then 39。日志內(nèi)容 (script language=vbscriptalert日志內(nèi)容不能為空 /script) ElseIf = 請(qǐng)選擇分類 Then 39。日志內(nèi)容 (script language=vbscriptalert請(qǐng)選擇系統(tǒng)分類/script) Else = mycon = select log_id from log Dim log_num As Integer log_num = 1 dr = While If ((0) log_num) Then log_num = (0) End If End While log_num = log_num + 1 () Dim display_num As Integer Dim subjectstr As String = Dim contentstr As String = Dim imagesrc As String = //特殊字符轉(zhuǎn)換 imagesrc = (amp。, amp。) ?? contentstr = (, ) contentstr = (Chr(32), ) category_id = CInt() If ( = 1) Then class_id = 0 Else class_id = CInt() End If sql = insert into log values( amp。 log_num amp。 ,39。 amp。 subjectstr amp。 39。,39。 amp。 contentstr amp。 39。,39。 amp。 Now amp。 39。,39。 amp。 Session(username) amp。 39。, amp。 category_id amp。 , amp。 class_id amp。 ,39。 amp。 amp。 39。,0,39。 amp。 amp。 39。,39。 amp。 imagesrc amp。 39。) = sql () = update category set log_num=log_num+1 where category_id= amp。 category_id () If (class_id 0) Then = update userclass set log_num=log_num+1 where class_id= amp。 class_id () End If () () (?username= amp。 Session(username)) End If 圖 34 發(fā)表日志 頁(yè)面 第 節(jié) 注冊(cè) 注冊(cè)時(shí)用戶需要輸入各種信息，信息中分必填項(xiàng)和可填項(xiàng)，必填項(xiàng)是用戶名、密碼和郵箱，若沒有填入則需要給出提示，密碼需要進(jìn)行確認(rèn)，若確認(rèn)密碼和原始輸入密碼不同，需要給出提示，若都符合條件則在數(shù)據(jù)庫(kù)中搜索此用戶名是否已經(jīng)注冊(cè)過，若已經(jīng)注冊(cè)過 也需要給出提示，若未注冊(cè)過則在 users 基本表中插入用戶的信息。流程圖如下： 圖 35 用戶注冊(cè)流程圖 具體實(shí)現(xiàn)如下： If = Then () 圖 36 用戶名為空提示 ElseIf = Then () ElseIf = Then N Y Y N Y N N 開始 輸入注冊(cè)信息 用戶名是否為空？ 密碼輸入正確？ 查詢數(shù)據(jù)庫(kù) 用戶名是否合法 注冊(cè)成功 郵箱是否空？ (script language=vbscriptalert請(qǐng)?zhí)顚懽约旱泥]箱，以便我們和您聯(lián)系 /script) ElseIf Then (script language=vbscriptalert請(qǐng)重新確認(rèn)密碼/script) Else = mycon = select user_id from users where user_id=39。 amp。 amp。 39。 dr = If Then (script language=vbscriptalert此用戶名已經(jīng)注冊(cè)過！/script) () Else ss = Now sql = insert into users values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Now amp。 39。,39。 amp。 amp。 39。) = sql () () (script language=vbscriptalert服務(wù)器已經(jīng)接受了您的資料，您已經(jīng)注冊(cè)成功 /script) () () End If End If 第 節(jié) 瀏覽某用戶的博客首頁(yè)： 用戶的博客首頁(yè)有以下功能： (1) 顯示用戶信息 用戶博客首頁(yè)的 url 上帶有 username 的參數(shù)，表示的是當(dāng)前博客的用戶名，通過 (username)語句獲取用戶名，在 users 表中讀取該用戶的相關(guān)信息如博客名、建立時(shí)間、日志數(shù)等并顯示出來。 (2) 顯示用戶日志 在數(shù)據(jù)庫(kù)中用用戶名對(duì)基本表 log 進(jìn)行篩選，讀取出來的所有日志記錄存儲(chǔ)在數(shù)據(jù)集中，將用戶名與當(dāng)前登錄的用戶相比較，若當(dāng)前登錄用戶和當(dāng)前博客首頁(yè)的用戶名一樣，說明是用戶瀏覽自己的博客，可以瀏覽所有日志，若不是則需要對(duì)數(shù)據(jù)集進(jìn)行一定的修改，若該日志是隱藏的，則將其內(nèi)容設(shè)為“此處隱藏一篇日志”，若該日志是需要密碼訪問的，則將日志內(nèi)容修改為“此日志需要密碼訪問”，修改 后用 datalist 控件綁定輸出。 Datalist 控件需要自己設(shè)定模版，這是在 html 中實(shí)現(xiàn)的，通過不同的模版可以有不同的顯示方式。(,title)語句可以將數(shù)據(jù)集中的某一列顯示出來，title是列名，表示將數(shù)據(jù)集中 title這一列的內(nèi)容顯示出來。 用戶的博客首頁(yè)還能提供這個(gè)用戶的分類鏈接，這可以通過在 userclass 中讀取該用戶的所有分類名并顯示出來。 (3) 顯示用戶分類 通過用戶名在 userclass 基本表中將該用戶的所有分類及其 日志數(shù)顯示出來并提供相關(guān)鏈接。 具體實(shí)現(xiàn)： = mycon = select * from userclass where user_id = 39。 amp。 (username) amp。39。 dr = While dim classshow as string classshow = ?username= amp。 (username) amp。 amp。classid= amp。 (3) % (4) 顯示登陸框 查詢當(dāng)前會(huì)話狀態(tài)，若有用戶登錄則提供該用戶的管理首頁(yè)鏈接，若無用戶登錄則提供登錄框。這是在 html 中動(dòng)態(tài)實(shí)現(xiàn)的。 個(gè)人博客首頁(yè)如圖 所示： 圖 37 個(gè)人博客首頁(yè)圖 第 節(jié) 瀏覽某篇日志 瀏覽日志的 url 有兩個(gè)參數(shù)，用戶名和所瀏覽日志的 ID，用戶名可以從 users基本表中獲取用戶信息， ID 用于在 log 表中獲 取日志相關(guān)信息，這個(gè)頁(yè)面與 的原理相似，這里不再具體介紹。 第 節(jié) 用戶分類 管理 (1) 動(dòng)態(tài)加載用戶類： 通過 session(username)得到當(dāng)前登錄的用戶名，再通過用戶名在 users 基本表中把屬于該用戶的類名順序顯示出來。 (2) 添加用戶類： 在頁(yè)面的上面還有一個(gè) textbox 和一個(gè)添加按鈕，用來添加用戶的類，點(diǎn)擊添加按鈕時(shí)調(diào)用響應(yīng)的函數(shù)，首先判斷該用戶是否已經(jīng)有該類名，若沒有則向userclass 基本表中添加此條記錄，新類名的 id 是該表中最大的類 id 加 1。 圖 38 日志分類管理圖 (3) 刪除用戶類： 刪除的鏈接是 href=?action=delamp。class=(0)’，刪除時(shí)需要從 userclass 基本表中將其刪除并且將 log 表中屬于此類名的日志 classid 屬性置為 0。 (4) 修改用戶類：