【正文】 .aspx如下圖1－12所示：圖1－12管理員身份用戶輸入信息，進入管理Button1_click事件連接博客數(shù)據(jù)庫查詢輸入的管理員賬號和密碼是否正確，正確則進入后臺首頁。 dateid amp。/script) Return End Try (?id= amp。 dateid amp。?id= amp。)。/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。 dateid amp。?id= amp。)。 order by 時間 desc () () End If End SubProtected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles If = Then (scriptalert(39。 xh 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。：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。/script) Return End If () () End SubProtected Sub Button2_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub實現(xiàn)目標：顯示訪問者所要查看的日志，并顯示對應的日志留言及提供日志評論操作。=39。操作有誤,修改失敗39。39。)。 (news, ).Value = news (yx , ).Value = Trim() () (scriptalert(39。 uid amp。 (old , ).Value = old = = myconn myread = () count = (0) ’取出符合條件的用戶數(shù)量 () If count 0 Then = update 賬戶 set 密碼=news, 郵箱=yx where 賬號=39。 uid amp。/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。=39。兩次密碼輸入不一致39。39。)。/script) Return End If If news = Then (scriptalert(39。=39。密碼不能為空39。 .aspx如下圖1－10所示：圖1－10賬號從上一頁傳遞過來，以這個傳遞過來的賬號為修改條件，通過Button1_Click事件驗證舊密碼是否正確，然后檢查新密碼兩次是否輸入一致，RegularExpressionValidator1在郵箱填寫不為空時自動檢查郵箱格式是否正確，信息全部正確則對這個賬號的信息進行更新。 39。 amp。－9所示：圖1－9頁面顯示用戶的所有信息，Page_Load事件讀取相看信息的一般用戶的用戶信息，Button1_Click事件傳遞用戶名并進入修改信息頁面。－8所示：圖1－8注冊者閱讀注冊要求后選擇是否要注冊，LinkButton1_Click事件返回到博客首頁，而第二個LinkButton2_Click事件是進入到注冊頁面。39。)。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand = (conn).ConnectionString () = insert into 賬戶 (賬號,密碼,郵箱,用戶組) values (zh,mm,yx,group) (zh, ).Value = zh (mm, ).Value = mm (yx, ).Value = yx (group, ).Value = group = = myconn Try () Session(uid) = zh Catch ex As Exception () () (scriptalert(39。=39。兩次密碼不一致39。39。)。/script) Return End If If mm = Then (scriptalert(39。=39。賬號不能為空39。－7所示：訪問者填寫好注冊信息后，通過Button1_click事件驗證輸入的用戶名是否重復、密碼是否一致，RegularExpressionValidator1檢驗郵箱不為空時格式是否正確。39。)。/script) End If End If End SubProtected 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 As String zh = Trim() mm = Trim() = (conn).ConnectionString () = select count(*) from 賬戶 where 賬號=zh and 密碼=mm (zh, ).Value = zh (mm, ).Value = mm = = myconn myread = () count = (0) () If count 0 Then Session(uid) = zh () Else () () (scriptalert(39。=39。你已登入,請先登出39。－6所示：圖1－6登入頁面只有用戶名跟密碼的輸入框，輸入信息后按登入按鈕觸發(fā)Button1_Click事件，檢查輸入的用戶名和密碼，查找博客數(shù)據(jù)庫里是否存在此用戶，如果存在，則跳轉到博客首頁，Page_Load事件查看實行登入操作的訪問者是否登入，如果已登入則提示先登出。39。)。/script) Return End If Dim myconn As New SqlConnection Dim mym As New SqlCommand = (conn).ConnectionString () = insert into 留言 (賬號,內容,時間) values (zh,nr,sj) (zh, ).Value = (nr, ).Value =