阿博哥的天空

只有在這本書中，你才能看到集結台灣十餘位老練WordPress站長們的多年功力大爆發！

(Vista、艾德、Pseric、MUKI、阿正老師、高登、阿湯、Elvis、簡睿、香腸、阿祥......等)

「全新WordPress 3.0架站專書，不只是部落格」：

2010年中，世界上最知名、最普及的部落格架設工具：WordPress，升級到了WordPress 3.0。這次的更新，除了在部落格架設功能上的增強外，更重要的意義在於讓WordPress更趨近於一個成熟的「內容發佈平台（CMS）」，形象化的說，你現在不僅可以用WordPress 3.0架設出部落格，也可以很簡單的架設出購物網站、商品網頁、影音相簿、遊戲平台、小組論壇、各種檢索資料庫，讓WordPress成為依據需求彈性建立網頁內容的利器。

Created with colorer-take5 library. Type 'vbnet'

Imports System.Web.Configuration
Imports System.Data.OleDb
Partial Public Class test2
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 

Handles Me.Load

        Dim goodList As New DataTable("googList")
        Dim newRow As DataRow

        If IsPostBack = False Then '檢查網頁是否為第一次載入

            '建立欄位名稱
            goodList.Columns.Add("商品名稱", System.Type.GetType("System.String"))
            goodList.Columns.Add("商品價格", System.Type.GetType("System.Int32"))
            goodList.Columns.Add("商品數量", System.Type.GetType("System.Int32"))

            '新增一筆預設資料
            newRow = goodList.NewRow
            newRow(0) = "(系統預設)"
            newRow(1) = 0
            newRow(2) = 0
            goodList.Rows.Add(newRow)
            GridView1.DataSource = goodList
            GridView1.DataBind()

            '將資料表(DataTable)丟入Session
            Session("goodList") = goodList

        End If

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 

Handles Button1.Click

        Dim flag As Boolean = False

        Dim gname As String
        Dim gprice As Integer

        flag = False

        Call searchGid(gname, gprice, flag)
        Call addData(gname, gprice, flag)

    End Sub

    Sub searchGid(ByRef gname, ByRef gprice, ByRef flag)
        '檢查資料庫是否有 TextBox 所輸入的商品編號
        '找到則取出 商品名稱、商品價格

        Dim dbConn As New OleDbConnection

(WebConfigurationManager.ConnectionStrings

("dbConnectionString").ConnectionString.ToString())
        Dim dbreader As OleDb.OleDbDataReader
        Dim sql As String
        Dim dbCmd As New OleDb.OleDbCommand

        Try

            dbConn.Open()

            sql = "SELECT *"
            sql = sql & " FROM goods"
            sql = sql & " WHERE gid='" & TextBox1.Text & "'"

            dbCmd = New OleDbCommand(sql, dbConn)

            dbreader = dbCmd.ExecuteReader()

            Do While dbreader.Read

                If System.Convert.ToString(dbreader("gid")) = TextBox1.Text Then

                    gname = System.Convert.ToString(dbreader("gname"))
                    gprice = System.Convert.ToString(dbreader("gprice"))

                    flag = True
                    Exit Do

                End If

            Loop

        Catch ex As Exception
            MsgBox("發生錯誤，錯誤代碼：" & ex.Message)
        Finally
            dbConn.Close()
        End Try

    End Sub

    Sub addData(ByRef gname, ByRef gprice, ByRef flag)

        Dim goodList As DataTable = Session("goodList")
        Dim newRow As DataRow
        Dim i As Double

        If flag = True Then

            flag = False

            For i = 1 To goodList.Rows.Count - 1
                '檢查欲新增的資料是否已在商品清單中
                If goodList.Rows(i).Item(0) = gname Then

                    flag = True
                    Exit For

                End If

            Next i

            If flag = False Then
                '欲新增的資料不存在則新增一筆資料
                newRow = goodList.NewRow
                newRow(0) = gname
                newRow(1) = gprice
                newRow(2) = 1
                goodList.Rows.Add(newRow)

            Else
                '欲新增的資料已存在則累加其數量
                goodList.Rows(i).Item(2) += 1

            End If

            Session("goodList") = goodList
            GridView1.DataSource = Session("goodList")
            GridView1.DataBind()

        End If

    End Sub
    
End Class

ASP.NET 4.0專題實務 I：入門實戰篇(附光碟)
作者：MIS2000 Lab. 周棟祥、吳進魯
出版社：松崗
出版日期：2010年06月24日
語言：繁體中文 ISBN：9789867309662