基于aspx的個人博客系統畢業設計論文-資料下載頁

　　

【正文】 () = select * from 賬戶 where 賬號=39。 amp。 uid amp。 39。 = = myconn myread = () zh = (0) yx = (2) () = zh = yx () () End If End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles ()End Sub實現目標：用戶填寫新的用戶信息后把新的信息作為下次登入的用戶信息。 .aspx如下圖1－10所示：圖1－10賬號從上一頁傳遞過來，以這個傳遞過來的賬號為修改條件，通過Button1_Click事件驗證舊密碼是否正確，然后檢查新密碼兩次是否輸入一致，RegularExpressionValidator1在郵箱填寫不為空時自動檢查郵箱格式是否正確，信息全部正確則對這個賬號的信息進行更新。：Page_Load、更新按鈕Button1_click和重置按鈕Button2_click事件的VB代碼：Imports Imports Imports Dim uid As StringProtected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles uid = Session(uid) = uid End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim old, news, newqr As String old = Trim() news = Trim() newqr = Trim() If old = Then (scriptalert(39。密碼不能為空39。)。=39。39。/script) Return End If If news = Then (scriptalert(39。新密碼不能為空39。)。=39。39。/script) Return End If If news newqr Then (scriptalert(39。兩次密碼輸入不一致39。)。=39。39。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myread As SqlDataReader Dim count As Integer = (conn).ConnectionString () = select count(*) from 賬戶 where 密碼=@old and 賬號=39。 amp。 uid amp。 39。 (@old , ).Value = old = = myconn myread = () count = (0) ’取出符合條件的用戶數量 () If count 0 Then = update 賬戶 set 密碼=@news, 郵箱=@yx where 賬號=39。 amp。 uid amp。 39。 (@news, ).Value = news (@yx , ).Value = Trim() () (scriptalert(39。修改成功39。)。=39。39。/script) Else () () (scriptalert(39。操作有誤,修改失敗39。)。=39。39。/script) Return End If () () End SubProtected Sub Button2_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub實現目標：顯示訪問者所要查看的日志，并顯示對應的日志留言及提供日志評論操作。 .aspx如下圖1－11所示：圖1－11Page_Load事件通過獲取傳遞過來的日志id連接博客數據庫顯示所對應的日志內容和詳細信息，通過Button1_Click事件檢查日志評論是否為空，不為空則添加到博客數據庫，沒有登入時評論用戶默認為游客。：Page_Load、提交按鈕Button1_click和重置按鈕Button2_click事件的VB代碼：Imports Imports Imports Dim dateid, txt, bt, zh As StringDim uid As StringDim xh, lanmu As IntegerProtected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles dateid = (id) uid = Session(uid) If uid = Then = True zh = 游客 = 游客 Else zh = uid = uid = 你已登入博客網站: = False End If If dateid Then Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myreader As SqlDataReader = (conn).ConnectionString () = select * from 日志庫 where id=@dateid (@dateid, ).Value = CInt(dateid) = = myconn myreader = If () Then = myreader(標題) amp。 日志瀏覽 = myreader(標題) lanmu = CInt(myreader(欄目id)) = 發布時間: amp。 myreader(時間) = Replace(myreader(內容), Chr(13), br) End If xh = CInt(dateid) bt = CStr() () = select * from 日志欄 where id=@id (@id, ).Value = lanmu = = myconn myreader = If () Then txt = myreader(txt).ToString End If = txt () = (conn).ConnectionString = select 賬號,留言,時間 from 日志留言 where 系號=39。 amp。 xh amp。 39。 order by 時間 desc () () End If End SubProtected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles If = Then (scriptalert(39。留言不能為空39。)。=39。?id= amp。 amp。 dateid amp。 39。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand = (conn).ConnectionString () = insert into 日志留言 (賬號,留言,時間,系號,標題,所屬) values (@zh,@nr,@sj,@xh,@bt,@ss) (@zh, ).Value = zh (@nr, ).Value = (@sj, ).Value = Now (@xh, ).Value = xh (@bt, ).Value = bt (@ss, ).Value = txt = = myconn Try () = Catch ex As Exception () () (scriptalert(39。操作有誤,留言失敗39。)。=39。?id= amp。 amp。 dateid amp。 39。/script) Return End Try (?id= amp。 amp。 dateid amp。 ) () () End SubProtected Sub Button2_Click(ByVal sender As Object, ByVal e As ) Handles = End Sub博客后臺頁面 后臺登入頁面實現目標：管理員身份用戶可以直接從這個頁面登入后臺進行管理。 .aspx如下圖1－12所示：圖1－12管理員身份用戶輸入信息，進入管理Button1_click事件連接博客數據庫查詢輸入的管理員賬號和密碼是否正確，正確則進入后臺首頁。：進入管理按鈕Button1_click事件的VB代碼：Imports Imports Imports Dim uid As StringProtected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim myconn As New SqlConnection Dim mym As New SqlCommand Dim myread As SqlDataReader Dim count As Integer Dim zh, mm, group As String zh = Trim() mm = Trim() group = 管理員