- Aug 18 Wed 2010 02:10
存放個人連結
- Aug 09 Tue 2011 17:25
站長親授!WordPress 3.0部落格架站十堂課
只有在這本書中,你才能看到集結台灣十餘位老練WordPress站長們的多年功力大爆發!
(Vista、艾德、Pseric、MUKI、阿正老師、高登、阿湯、Elvis、簡睿、香腸、阿祥......等)
「全新WordPress 3.0架站專書,不只是部落格」:
2010年中,世界上最知名、最普及的部落格架設工具:WordPress,升級到了WordPress 3.0。這次的更新,除了在部落格架設功能上的增強外,更重要的意義在於讓WordPress更趨近於一個成熟的「內容發佈平台(CMS)」,形象化的說,你現在不僅可以用WordPress 3.0架設出部落格,也可以很簡單的架設出購物網站、商品網頁、影音相簿、遊戲平台、小組論壇、各種檢索資料庫,讓WordPress成為依據需求彈性建立網頁內容的利器。
- Dec 19 Sun 2010 17:44
植物大戰僵屍 生存模式 Endless關卡 最強植物陣型
- Oct 19 Tue 2010 00:21
程式碼片段(Session、DataTable、DataRow、Columns)
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
- Oct 17 Sun 2010 22:07
DataRow 新增資料列有問題......
Partial Public Class test2
Inherits System.Web.UI.Page
Dim goodList As New DataTable("googlist")
Dim newRow As DataRow