【正文】 amp。操作有誤,留言失敗39。留言不能為空39。 .aspx如下圖1－11所示：圖1－11Page_Load事件通過獲取傳遞過來的日志id連接博客數(shù)據(jù)庫顯示所對(duì)應(yīng)的日志內(nèi)容和詳細(xì)信息，通過Button1_Click事件檢查日志評(píng)論是否為空，不為空則添加到博客數(shù)據(jù)庫，沒有登入時(shí)評(píng)論用戶默認(rèn)為游客。=39。 39。/script) Return End If If news newqr Then (scriptalert(39。)。：Page_Load 和修改信息按鈕Button1_click事件的VB代碼：Imports Imports Imports Dim uid As StringProtected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles If Not Then uid = Session(uid) If uid Then Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myread As SqlDataReader Dim zh, yx As String = (conn).ConnectionString () = select * from 賬戶 where 賬號(hào)=39。賬戶已被注冊(cè),注冊(cè)失敗39。=39。：提交按鈕Button1_click和重置按鈕Button2_click事件的VB代碼：Imports Imports Imports 圖1－7Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim zh, mm, yx, qr, group As String group = 一般用戶 zh = Trim() mm = Trim() qr = Trim() yx = Trim() If zh = Then (scriptalert(39。39。=39。：Imports Imports Imports 圖1－5Page_load和提交按鈕Button1_click、重置按鈕Button2_click事件的VB代碼：Dim uid As StringProtected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles uid = Session(uid) = uid If uid = Then = True = 游客 ’沒有登入默認(rèn)為“游客” Else = 你已登入博客網(wǎng)站: ’登入博客時(shí)的提示信息 = False End If End SubProtected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles If = Then (scriptalert(39。 %39。 href=?id=%eval(id)% target= span style=color: teal。閱讀/span /a/itemtemplate圖1－3Page_load和createchildtree過程的VB代碼：Imports Imports Imports Dim uid As StringDim group As IntegerProtected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles uid = Session(uid)　’獲取登入用戶的用戶名 If Not Then If uid Then = uid Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myreader As SqlDataReader = (conn).ConnectionString () = select count(*) from 賬戶 where 賬號(hào)=uid and 用戶組=39。sql= amp。 ip amp。 sql amp。 ip amp。 sql amp。 amp。 sql amp。 amp。/script)　’連接建庫成功時(shí)所要提示的信息并傳遞連接數(shù)據(jù)庫信息到下一頁 End Sub實(shí)現(xiàn)目標(biāo)：實(shí)行建表跟建立管理員用戶操作，按提示填寫建表信息，正確填寫按下一步完成建表安裝操作。 zh amp。/script)　’連接失敗時(shí)所要提示的信息 End Try ()　’釋放空間 ()　’釋放空間 (scriptalert(39。 mm amp。 sql amp。（安裝首頁）－1所示：圖1－1通過填寫SQL服務(wù)器地址、SQL服務(wù)器用戶、SQL用戶密碼、數(shù)據(jù)庫名，點(diǎn)擊下一步LinkButton1事件檢索填寫信息是否正確，如果正確則進(jìn)入下一頁面，如果錯(cuò)誤則提示出錯(cuò)信息，返回當(dāng)前頁面繼續(xù)填寫建庫信息。只有管理員身份登入時(shí)首頁才顯示此鏈接，提供退出后臺(tái)管理操作選擇欄目添加日志，標(biāo)題和內(nèi)容都不能為空但不能太長(zhǎng)，內(nèi)容字?jǐn)?shù)沒有限制，添加成功后可隨時(shí)進(jìn)行欄目名修改和欄目刪除操作，刪除時(shí)可查詢欄目后選擇所要?jiǎng)h除的日志，刪除一篇日志時(shí)會(huì)自動(dòng)刪除它所對(duì)應(yīng)的所有日志評(píng)論。在首頁打開登入頁面，填寫登入信息后，如果用戶存在則進(jìn)入博客首頁并為登入狀態(tài)，如果打開登入頁面之前已為登入狀態(tài)則要先登出。，用記事本方式打開這個(gè)配置文檔，找到以下語句： connectionStrings add name=Conn connectionString=Data Source=服務(wù)器IP地址。大大提高了博客信息的管理速度、效率和準(zhǔn)確性還提高統(tǒng)計(jì)效率。本博客系統(tǒng)適用于個(gè)人，主要功能是提供管理者與訪客之間的交流平臺(tái)以及管理者對(duì)信息的有效管理。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。博客提供個(gè)性化的裝飾與個(gè)人的交流方式，人們通過博客可以發(fā)表自己的言論，自己的思想，自己的心聲，與訪客形成一對(duì)多的交流方式。根據(jù)網(wǎng)上信息顯示，使用博客的用戶日益增加，對(duì)博客這樣一種網(wǎng)站管理模式適應(yīng)性比較強(qiáng)，非專業(yè)人士同樣可以根據(jù)操作說明與網(wǎng)頁窗體模式對(duì)自己的博客信息進(jìn)行管理。管理員可以前臺(tái)登入，也可以直接從后臺(tái)登入頁面登入博客系統(tǒng)進(jìn)行信息管理，主要提供給管理員的功能為日志的管理、欄目的管理、留言的管理、用戶的管理、日志評(píng)論的管理。 和 這兩個(gè)網(wǎng)頁文件刪除，以免重復(fù)安裝造成數(shù)據(jù)庫重新建立所有信息丟失的嚴(yán)重后果。當(dāng)一般用戶登入時(shí)首頁才顯示此頁面鏈接，其顯示一般用戶個(gè)人信息，可以進(jìn)入信息修改頁面。此頁面提供日志內(nèi)容更新操作，在日志管理頁面里選擇編輯鏈接時(shí)使用。) drop database amp。 zh amp。)。 ip amp。sql= amp。=39。 mm amp。=39。 mm amp。 create table 留言 (系號(hào) int identity primary key,賬號(hào) char(20) not null,內(nèi)容 char(800) not null,時(shí)間 datetime) str = str amp。Password= amp。)。mm= amp。登入后的用戶根據(jù)身份驗(yàn)證LinkButton1顯示后臺(tái)管理鏈接或個(gè)人信息管理鏈接，信息顯示頁面由此頁面的個(gè)人信息管理鏈接引導(dǎo)，只供一般用戶使用，在信息顯示頁面（）可以進(jìn)入信息修改頁面（），如果用戶登入后要繼續(xù)登入，首頁在用戶登入后有登出操作。左邊目錄樹查看日志欄目下所有的日志。 order by 時(shí)間 desc Else If str = 日志內(nèi)容 Then ’選擇搜索的條件為日志內(nèi)容 = (conn).ConnectionString = select id,標(biāo)題,時(shí)間 from 日志庫 where 內(nèi)容 like39。 order by 時(shí)間 desc Else = (conn).ConnectionString = select id,標(biāo)題,時(shí)間 from 日志庫 order by 時(shí)間 desc End If End If End SubProtected Sub createchildtree(ByVal parentnode, ByVal parentid) ’樹目錄的過程 Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myreader As SqlDataReader Dim tn As TreeNode = (conn).ConnectionString () = select * from 日志欄 where rootid=rootid (rootid, ).Value = parentid = = myconn myreader = () Do While () tn = New TreeNode = myreader(txt).ToString = ?id= amp。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand = (conn).ConnectionString () = insert into 留言 (賬號(hào),內(nèi)容,時(shí)間) values (zh,nr,sj) (zh, ).Value = (nr, ).Value = (sj, ).Value = Now = = myconn Try () Catch ex As Exception () () (scriptalert(39。你已登入,請(qǐng)先登出39。39。/script) Return End If If mm = Then (scriptalert(39。=39。－8所示：圖1－8注冊(cè)者閱讀注冊(cè)要求后選擇是否要注冊(cè)，LinkButton1_Click事件返回到博客首頁，而第二個(gè)LinkButton2_Click事件是進(jìn)入到注冊(cè)頁面。 .aspx如下圖1－10所示：圖1－10賬號(hào)從上一頁傳遞過來，以這個(gè)傳遞過來的賬號(hào)為修改條件，通過Button1_Click事件驗(yàn)證舊密碼是否正確，然后檢查新密碼兩次是否輸入一致，RegularExpressionValidator1在郵箱填寫不為空時(shí)自動(dòng)檢查郵箱格式是否正確，信息全部正確則對(duì)這個(gè)賬號(hào)的信息進(jìn)行更新。)。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myread As SqlDataReader Dim count As Integer = (conn).ConnectionString