国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

    ArticlesList.aspx.vb的后臺邏輯代碼如下：

'---code begin---
Imports System.Web
Imports System.Data
Public Class ArticlesList
    Inherits System.Web.UI.Page
#Region " Web 窗體設(shè)計器生成的代碼 "
     '此處省略了設(shè)計器生成的無關(guān)代碼，以節(jié)省篇幅
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此處放置初始化頁的用戶代碼
        If Not Page.IsPostBack Then
            viewstate("pagenow") = 0
            Dim akinds As String = Request.Params("akind")
            Dim seekid As String = Request.Params("seekid")
            Dim infor As String = Request.Params("infor")
            Dim moreid As String = Request.Params("moreid")
            If moreid = "" Then
                If akinds = "" Or seekid = "" Or infor = "" Then
                    Response.Redirect("default.aspx")
                Else
                    If akinds = "-1" Then
                        mysql = " where  " + seekid + " like '%" + infor + "%'"
                    Else
                        mysql = " where akinds=" + akinds + "  and " + seekid + " like '%" + infor + "%' "
                    End If
                End If
            Else
                mysql = " where akinds=" + Request.Params("moreid")
            End If
            getdatainfor()
            getdata()
        End If
End Sub
    '獲取符合條件的記錄條數(shù)
    Sub getdatainfor()
        mycon.Open()
        Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("select count(*) from articles  " & mysql, mycon)
        viewstate("pagecount") = mycmd.ExecuteScalar
        mycon.Close()
        If viewstate("pagecount") = 0 Then
            Response.Write("<script>alert('\n對不起,沒有查找到符合條件的文章\n');</script>")
            Exit Sub
        End If
End Sub
    '獲取記錄信息
    Sub getdata()
        Dim mycmd As OleDb.OleDbDataAdapter
        Dim dt As DataSet = New DataSet
        mycmd = New OleDb.OleDbDataAdapter(" select * from articles" & mysql & " order by id desc ", mycon)
        '每頁顯示6篇文章記錄
        mycmd.Fill(dt, viewstate("pagenow"), 6, "plist")
        DataList1.DataSource = dt.Tables("plist").DefaultView
        DataList1.DataBind()
        Label1.Text = "共有[<font color=red> " & viewstate("pagecount") & "</font>]篇文章"
        Label1.Text += ",當前為第[<font color=red>" & (viewstate("pagenow") + 1)
        Label1.Text += "</font>]頁/共[<font color=red>" & (viewstate("pagecount") \ 6 + 1) & "</font>]頁"
        mycon.Close()
End Sub
    '上一頁, 即:頁碼減1
Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        If viewstate("pagenow") > 0 Then
            viewstate("pagenow") -= 1
            getdatainfor()
            getdata()
        End If
End Sub
    '下一頁, 即:頁碼加1
Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        If viewstate("pagenow") < viewstate("pagecount") \ 6 Then
            viewstate("pagenow") += 1
            getdatainfor()
            getdata()
        End If
End Sub
    '第一頁,即:頁碼為0
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        If viewstate("pagenow") <> 0 Then
            viewstate("pagenow") = 0
            getdatainfor()
            getdata()
        End If
End Sub
    '最后一頁
Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
        If viewstate("pagenow") < viewstate("pagecount") \ 6 Then
            viewstate("pagenow") = viewstate("pagecount") \ 6
            getdatainfor()
            getdata()
        End If
End Sub
End Class
'---code end ----

    編譯運行后，結(jié)果如圖14.12所示

　　14.3.5 TheArticle.aspx和Tealker.ascx的設(shè)計與編碼

　　TheArticle.aspx是顯示文章具體內(nèi)容的頁面，根據(jù)傳入的文章ID，從數(shù)據(jù)庫中檢索出文章，并把內(nèi)容顯示出來。并利用Tealker.ascx把有關(guān)該文章的評論顯示到頁面中，同時為瀏覽者提供一個發(fā)表評論的入口。

　　TheArticle.aspx的HTML代碼如下：

　　TheArticle.aspx.vb的邏輯代碼如下：

'---code begin---
Public Class TheArticle
    Inherits System.Web.UI.Page
#Region " Web 窗體設(shè)計器生成的代碼 "
      '此處省略了設(shè)計器生成的無關(guān)代碼，以節(jié)省篇幅
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此處放置初始化頁的用戶代碼
        If Request.Params("aid") <> "" Then
            mysql = "select * from articles where id=" + Request.Params("aid")
            mycon.Open()
            Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(mysql, mycon)
            Dim myreader As OleDb.OleDbDataReader
            myreader = mycmd.ExecuteReader
            Do While myreader.Read
                '顯示文章標題
                Label1.Text = myreader("title")
                '顯示文章屬性
                Label2.Text = "-----作者:" & myreader("writer") & "   文章出自:" & myreader("fw") & "   發(fā)布時間:" & myreader("sdate")
                Label2.Text += "   查看次數(shù):" & myreader("views")
                '顯示關(guān)鍵字
                Label4.Text = "關(guān)鍵字 [" & myreader("keyword") & "]"
                '顯示文章內(nèi)容
                Label3.Text = myreader("content")
                '動態(tài)網(wǎng)頁標題
                Mytitle.InnerText = myreader("title") & "-----叮咚文章管理系統(tǒng)"
            Loop
            myreader.Close()
            updateviews(Request.Params("aid"))
        End If
End Sub
    '更新文章瀏覽次數(shù)
    Sub updateviews(ByVal aid As String)
        mysql = "update articles set views=views+1 where id=" + aid
        Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(mysql, mycon)
        mycmd.ExecuteNonQuery()
        mycon.Close()
End Sub
End Class
'--code end--

　　Tealker.ascx的HTML代碼如下：

　　Tealker.ascx.vb的邏輯代碼如下：

'---code begin--
Imports System.Web.Configuration
Public Class tealker
    Inherits System.Web.UI.UserControl
#Region " Web 窗體設(shè)計器生成的代碼 "
      '此處省略了設(shè)計器生成的無關(guān)代碼，以節(jié)省篇幅
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此處放置初始化頁的用戶代碼
        aid = Request.Params("aid")
        If aid <> "" Then
            getdata()
        End If
  
End Sub
    ' 顯示文章評論信息
    Sub getdata()
        Dim constr As String = ConfigurationSettings.AppSettings("constr") & Server.MapPath(".") & ConfigurationSettings.AppSettings("dbs")
        Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(constr)
        If Not Page.IsPostBack Then
            mysql = "select * from talks where articleid=" + Request.Params("aid") + " order by tdate asc"
            Dim mycmd As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(mysql, mycon)
            Dim dt As DataSet = New DataSet
            mycmd.Fill(dt)
            Repeater1.DataSource = dt.Tables(0)
            Repeater1.DataBind()
        End If
End Sub
    '提交文章評論內(nèi)容
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim constr As String = ConfigurationSettings.AppSettings("constr") & Server.MapPath(".") & ConfigurationSettings.AppSettings("dbs")
        Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(constr)
       If Page.IsValid Then
            mysql = "insert into talks(articleid,talker,email,content) values(" + Request.Params("aid") + ",'" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text.Replace(Chr(10), "<br>") + "')"
            mycon.Open()
            Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(mysql, mycon)
            mycmd.ExecuteNonQuery()
            Response.Write("<script>alert('恭喜您,評論成功!');</script>")
            mycon.Close()
            Response.Redirect("Thearticle.aspx?aid=" & Request.Params("aid"))
            getdata()
        End If
End Sub
End Class
'--code end--

　　保存編譯后，運行結(jié)果如圖14.13、14.14所示

　　14.4 本章小結(jié)

　　這個實例功能相對簡單，結(jié)構(gòu)也很清晰，目的是對前面所學知識的總結(jié)和練習。主要是練習了服務器端控件以及數(shù)據(jù)庫技術(shù)方面的知識，希望讀者用心體會其中的用法。

　　為了是讀者能夠關(guān)注與文章管理系統(tǒng)本身的結(jié)構(gòu)和各個功能模塊之間的聯(lián)系，本實例在編寫的過程中省略了一些細節(jié)問題，比如頁面間傳遞參數(shù)，如果在實際應用中不加驗證，就會有被攻擊的危險。但是這完全不影響作為分析學習本系統(tǒng)的目的，如果讀者要將本系統(tǒng)改造成實際應用系統(tǒng)的時候一樣要注意。

　　在實例系統(tǒng)，我們沒有考慮到對普通用戶的管理和多管理員情況的管理，但是在實際引用中往往會提供用戶注冊，然后注冊會員會享有特別的服務。這里，我們把這個功能的實現(xiàn)作為一個作業(yè)，留給讀者來思考怎么做，然后編碼實現(xiàn)它。

　　通過本章的學習，讀者已經(jīng)可以從整體上把握一個管理信息系統(tǒng)的設(shè)計。本章實例嚴格按照管理系統(tǒng)的設(shè)計步驟， 從分析到實施，如果讀者能從這個方面來學習這個實例，對以后編寫大型的管理系統(tǒng)很有幫助。