管理者管理商品

5 價格 文字 20

6 簡介 文字 20

7 編輯 文字連結 8

8 刪除 文字連結 8

表 3.15 管理者管理商品網頁 說明：

者在 management.aspx 中選取商品總攬管理進入

動商品的 管理

viewpro.aspx 網頁管理商品資料，透過編輯和刪除可以變 資料。

3.3.8 管理者管理商品

3 片名 文字 20

4 價格 文字 10

5 類型 下拉選單 4

6 簡介 文字框架 9*40

7 送出 按鈕 20*19

表 3.16 管理者管理新增商品網頁 說明：

者在 management.aspx 中選取新增商品，進入 addpro2.aspx 管理

網頁，在此網頁中可以填寫新的商品資料，填寫完畢按下送出即可。

3.3.9 管理者管理訂單

7 總價 文字 20

第四章系統製作

系統製作是系 要花費許多時

1 會員功能

會員制度，訪客必須先行註冊成為本網站的會員才能 統開發過程中相當重要要的部分，需

間和精力，是把一個概念想法轉變成一個實體出來。

4.

本網站採用

使用本網站的相關會員服務。

1.註冊

圖 4.1 首頁 圖 4.1 首頁按加入會員之後出現圖 4.2

圖 4.2 加入會員

圖 4.2 中填寫加入會員的資料之後按下送出出現圖 4.3

圖 4.3 加入會員成功

PROCESS：圖 4.2 中按下送出鈕之後所做的處理，以

Connection-Command-DataReader 存取資料庫 DB 中的資料表 member

Private Sub Send_Click(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles Send.Click

Dim con11 As New OleDb.OleDbConnection con11.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("DB.mdb") con11.Open()

Dim SQLStr11 As String

SQLStr11 = "select * from member where ID='" &

MyID.Text & "'"

Dim cmd11

As New OleDb.OleDbCommand(SQLStr11, con11)

Dim rd11 As OleDb.OleDbDataReader

rd11 = cmd11.ExecuteReader If rd11.Read Then

Response.Write("帳號已重複，請重新輸入...") Response.End()

End If

Dim con As New OleDb.OleDbConnection con.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("DB.mdb")

con.Open()

Dim SQLStr As String SQLStr = "insert into

member(MyName,MyNumber,Address,AreaNum,sex,ID,pass,email,My birthday,MyTel,MyMobil) values(?,?,?,?,?,?,?,?,?,?,?)"

Dim cmd As New OleDb.OleDbCommand(SQLStr, con)

cmd.Parameters.Add("@MyName", OleDb.OleDbType.Char, 20)

cmd.Parameters.Add("@MyNumber", OleDb.OleDbType.Char, 10)

cmd.Parameters.Add("@Address", OleDb.OleDbType.Char, 50)

cmd.Parameters.Add("@AreaNum", OleDb.OleDbType.Char, 5)

cmd.Parameters.Add("@sex", OleDb.OleDbType.Char, 2) cmd.Parameters.Add("@ID", OleDb.OleDbType.Char, 15) cmd.Parameters.Add("@pass", OleDb.OleDbType.Char,

15)

cmd.Parameters.Add("@email", OleDb.OleDbType.Char, 30)

cmd.Parameters.Add("@Mybirthday", OleDb.OleDbType.Date)

cmd.Parameters.Add("@MyTel", OleDb.OleDbType.Char, 15)

cmd.Parameters.Add("@MyMobil", OleDb.OleDbType.Char, 15)

cmd.Parameters("@MyName").Value = MyName.Text cmd.Parameters("@MyNumber").Value = MyNumber.Text cmd.Parameters("@Address").Value() = Address.Text cmd.Parameters("@AreaNum").Value() = AreaNum.Text If boy.Checked Then

cmd.Parameters("@sex").Value() = "男"

ElseIf girl.Checked Then

cmd.Parameters("@sex").Value = "女"

End If

cmd.Parameters("@ID").Value() = MyID.Text cmd.Parameters("@pass").Value() = MyPass.Text cmd.Parameters("@email").Value() = email.Text cmd.Parameters("@Mybirthday").Value() =

birYear.SelectedItem.Value & "/" & birMon.SelectedItem.Value

& "/" & birDay.SelectedItem.Value

cmd.Parameters("@Mytel").Value() = Mytel.Text cmd.Parameters("@Mymobil").Value() = MyMobil.Text

cmd.ExecuteNonQuery() con.Close()

Response.Write("註冊成功，請至會員登入區登入" &

"<BR>")

Response.Write("<a href=login.aspx>我要登入</a>") Response.End()

End Sub

End Class

圖 4.4 填寫會員資料錯誤訊息

Process：使用 RequiredFieldValidator 驗證欄位是否有填入資料。

<asp: RequiredFieldValidator id=＂ RequiredFieldValidator1

“ runat = “server＂ ErrorMessage=＂請輸入姓名＂

ControlToValidata=＂MyName＂>< asp: RequiredFieldValidator>

2.登入

圖 4.1 首頁 圖 4.1 按下登入出現圖 4.5 會員登入

圖 4.5 會員登入 圖 4.5 按下確定送出後出現圖 4.6 會員專區

圖 4.6 會員專區 Process`:

Private Sub Send_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Send.Click

Dim con As New OleDb.OleDbConnection con.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("DB.mdb") con.Open()

Dim SQLStr As String

SQLStr = "select * from member where ID='" & MyID.Text

& "' and pass='" & pass.Text & "'"

Dim cmd As New OleDb.OleDbCommand(SQLStr, con) Dim rd As OleDb.OleDbDataReader

rd = cmd.ExecuteReader

If rd.Read Then

Session("status") = "OK"

Session("mynumber") = rd("MyNumber") Response.Cookies("cusnum").Value = rd("MyNumber")

con.Close()

Response.Redirect("memMain.aspx") Else

con.Close()

Response.Write("帳號或密碼不對，請重新輸入") End If

End Sub

3.修改

圖 4.6 會員專區 圖 4.6 按下修改資料後出現圖 4.7 會員修改

圖 4.7 會員修改

圖 4.7 會員修改按下編輯鈕之後出現圖 4.8 會員修改之修改資料

圖 4.8 會員修改之修改資料

圖 4.8 將要修改的欄位修改之後按下更新，出現圖 4.9 會員修改之修 改完成。

圖 4.9 會員修改之修改完成

Process:因為 DataGrid 本身不具備將資料寫入資料庫的功能，所以 搭配 SQL 的指令使其具有修改資料的功能，按下編輯鈕之後，出現更

Private Sub Page_Load(ByVal sender

As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not IsPostBack Then BindList()

End Sub

Private

Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As

System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.EditCommand

myDataGrid.EditItemIndex = e.Item.ItemIndex BindList()

End Sub

Private Sub myDataGrid_CancelCommand(ByVal source As

Object, ByVal e As

System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.CancelCommand

myDataGrid.EditItemIndex = -1 BindList()

End Sub

Private Sub myDataGrid_UpdateCommand(ByVal source As

Object, ByVal e As

CType(e.Item.Cells(6).Controls(0), TextBox).Text

"',sex='" & sex & "' ,MyTel='" & MyTel & "',ID='" & ID &

"' ,pass='" & pass & "',MyNumber='" & MyNumber & "',MyMobil='"

& MyMobil & "',MyBirthday='" & MyBirthday & "',email='" & email

& "',AreaNum='" & AreaNum & "',Address='" & MyAddress & "' Where

" & myDataGrid.DataKeyField & "='" &

myDataGrid.DataKeys(e.Item.ItemIndex) & "'"

Dim objConn As New OleDb.OleDbConnection objConn.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" &

Server.MapPath("DB.mdb") objConn.Open()

Dim objCmd

As New OleDb.OleDbCommand(strSQL, objConn)

objCmd.ExecuteNonQuery()

myDataGrid.EditItemIndex = -1 aa = "OK"

BindList()

End Sub

'strSQL 為 SQL 敘述，FileName 為資料庫檔名，TableName 為 資料表名稱。

Function CreateDataSet(ByVal strSQL As String, ByVal

FileName As String, ByVal TableName As String) As DataSet Dim ConnString As String =

"Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" &

Server.MapPath(FileName)

Dim objCmd As New OleDb.OleDbDataAdapter(strSQL, ConnString)

Dim DS As New DataSet

objCmd.Fill(DS, TableName) CreateDataSet = DS

End Function

Sub BindList()

myDataGrid.DataSource = CreateDataSet("Select * From member where MyNumber = '" & Session("mynumber") & "'",

"DB.mdb", "member")

myDataGrid.DataBind() End Sub

Private Sub myDataGrid_PageIndexChanged(ByVal source As

Object, ByVal e As

System.Web.UI.WebControls.DataGridPageChangedEventArgs)

Handles myDataGrid.PageIndexChanged

myDataGrid.CurrentPageIndex = e.NewPageIndex BindList()

End Sub

End Class

4.購物

圖 4.6 會員專區 圖 4.6 按下瀏覽商品之後出現圖 4.10 購物區

圖 4.10 購物區

圖 4.10 點選其中的其中一個選項之後，出現圖 4.11 商品細目

4.11 商品細目

Process:從圖 4.6 進入圖 4.10 的和圖 4.10 進入圖 4.11 的時候，會 先把類別讀進來，在依所選的類別進入圖 4.11

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'在這裡放置使用者程式碼以初始化網頁

Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim Database = "Data Source=" &

Rd = Cmd.ExecuteReader() Dim I As Integer

While Rd.Read()

Category.Items.Add(Rd.Item("類別名稱")) Category.Items(I).Value = Rd.Item("類別編號

")

I += 1 End While Conn.Close()

End If End Sub

Private Sub Button1_Click(ByVal sender

As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Msg.Text = ""

If Session("IsCookieOpen") <> "Set in Page_Load"

Then

Msg.Text = "欲進入購物, 請先開啟瀏覽器的 Cookie,

" & _

"然後關閉瀏覽器, 再重新啟動瀏覽器!"

Exit Sub End If

Dim Sel = Category.SelectedItem If Not Sel Is Nothing Then

Response.Redirect("Buy.aspx?類別名稱=" &

Sel.Text & _

"&類別編號=" & Sel.Value) End If

End Sub

圖 4.11 商品細目

圖 4.11 選擇所要的商品在選購物帶便可以了，出現圖 4.12 商品清單

，結束購物時點選送出商品即可。

圖 4.12 商品清單 Process:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase.Load

'在這裡放置使用者程式碼以初始化網頁

Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim Database = "Data Source=" &

Server.MapPath("DB.mdb")

Dim 類別名稱 As String, 類別編號 As Integer 類別名稱 = Request("類別名稱")

類別編號 = Request("類別編號")

If 類別編號 = 0 Or 類別名稱 = "" Then Response.Redirect("Main.aspx") End If

If Not IsPostBack Then

Dim Conn As OleDb.OleDbConnection, Adpt As OleDb.OleDbDataAdapter

Dim Ds As DataSet, SQL As String, I As Integer

Conn =

New OleDb.OleDbConnection(Provider & ";" &

Database)

Conn.Open()

Private Sub Button1_Click(ByVal sender

As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Hash As Hashtable, I As Integer

If Session("購物袋") Is Nothing Then Hash = New Hashtable

Else

Hash = Session("購物袋") End If

For I = 0 To MyGrid.Items.Count - 1 Dim cb As CheckBox =

MyGrid.Items(I).FindControl("BuyIt") Dim lb As Label =

MyGrid.Items(I).FindControl("ProductID") Dim tb As TextBox =

MyGrid.Items(I).FindControl("Quantity")

If cb.Checked And Val(tb.Text) > 0 Then If Not Hash.ContainsKey(lb.Text) Then Hash.Add(lb.Text, CInt(Val(tb.Text))) Else

Hash(lb.Text) += CInt(Val(tb.Text)) End If

End If Next

Session("購物袋") = Hash

Response.Redirect("List.aspx") End Sub

圖 4.12 商品清單

圖 4.12 點選退回商品便出現圖 4.13 商品清單之退回商品

圖 4.13 商品清單之退回商品 Process

Public 總價格 As Long Public k, j As Integer Public aa()() As Array

Private

Sub Page_Load(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles MyBase.Load

Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim Database = "Data Source=" &

Server.MapPath("DB.mdb")

Msg.Text = ""

購物袋清單() End If

End Sub

Sub 購物袋清單()

Dim Hash As Hashtable

If Session("購物袋") Is Nothing Then Hash = New Hashtable

Else

Hash = Session("購物袋") End If

If Hash.Count = 0

Then Msg.Text = "現在購物袋是空的!"

Dim ArrKey(Hash.Count - 1) As String Dim ArrVal(Hash.Count - 1) As Integer Dim Products As String

Hash.Keys.CopyTo(ArrKey, 0) Hash.Values.CopyTo(ArrVal, 0)

Products = "('" & Join(ArrKey, "','") & "')"

Dim Conn As OleDb.OleDbConnection, Adpt As OleDb.OleDbDataAdapter

Dim Ds As DataSet, SQL As String

Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim Database = "Data Source=" &

Server.MapPath("DB.mdb")

Conn = New OleDb.OleDbConnection(Provider & ";" &

Database)

Conn.Open()

SQL = "Select * From 商品 Where 編號 In " & Products Adpt = New OleDb.OleDbDataAdapter(SQL, Conn)

Ds = New DataSet

Adpt.Fill(Ds, "商品")

Dim Table1 As DataTable = Ds.Tables("商品") Table1.Columns.Add(New DataColumn("數量",

GetType(Integer)))

Dim Keys() As DataColumn = {Table1.Columns("編號")}

Table1.PrimaryKey = Keys Dim X As String

For Each X In Hash.Keys

Table1.Rows.Find(X).Item("數量") = Hash.Item(X) Next

Table1.Columns.Add(New DataColumn("總價",

GetType(Long), _

"價格*數量")) Dim I As Integer

For I = 0 To Table1.Rows.Count - 1

總價格 += Table1.Rows(I).Item("總價") j = j + 1

Next

MyGrid.DataSource = Table1.DefaultView MyGrid.DataBind()

Dim delStr As String

delStr = "delete from protmp"

Dim delcmd As New OleDb.OleDbCommand(delStr, Conn) delcmd.ExecuteNonQuery()

'Response.Write(Table1.Rows(0).Item(0) & "<BR>") 'Response.Write(Table1.Rows(0).Item(1) & "<BR>") 'Response.Write(Table1.Rows(0).Item(2) & "<BR>") 'Response.Write(Table1.Rows(0).Item(3) & "<BR>") 'Response.Write(Table1.Rows(0).Item(4) & "<BR>") 'Response.Write(Table1.Rows(0).Item(5) & "<BR>") 'Response.Write(Table1.Rows(0).Item("總價") &

"<BR>")

'Response.Write(Table1.Rows(0).Item("數量"))

For k = 0 To j - 1

Dim SQLStr As String

SQLStr = "insert into protmp(商品編號,名稱,數量, 單價,總額) values(?,?,?,?,?)"

Dim cmd As New OleDb.OleDbCommand(SQLStr, Conn)

cmd.Parameters.Add("@商品編號", OleDb.OleDbType.Char, 50)

cmd.Parameters.Add("@名稱", OleDb.OleDbType.Char, 50)

cmd.Parameters.Add("@數量", OleDb.OleDbType.Char, 50)

cmd.Parameters.Add("@單價", OleDb.OleDbType.Char, 50)

cmd.Parameters.Add("@總額", OleDb.OleDbType.Char, 50)

cmd.Parameters("@數量").Value = Table1.Rows(k).Item("數量")

cmd.Parameters("@商品編號").Value = Table1.Rows(k).Item(1)

cmd.Parameters("@名稱").Value = Table1.Rows(k).Item(2)

cmd.Parameters("@單價").Value = Table1.Rows(k).Item(4)

cmd.Parameters("@總額").Value = Table1.Rows(k).Item("總價")

cmd.ExecuteNonQuery()

Next

Conn.Close() End Sub

Sub Remove_From_Bag(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)

Dim Hash As Hashtable

If Session("購物袋") Is Nothing Then Hash = New Hashtable

Else

Hash = Session("購物袋")

End If

If

Hash.ContainsKey(MyGrid.DataKeys(e.Item.ItemIndex)) Then Hash.Remove(MyGrid.DataKeys(e.Item.ItemIndex)) End If

Session("購物袋") = Hash 購物袋清單()

End Sub

Private Sub Button1_Click(ByVal sender

As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim con As New OleDb.OleDbConnection con.ConnectionString =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("DB.mdb") con.Open()

Dim cmd As New OleDb.OleDbDataAdapter("select * from proorder order by 訂單編號 desc", con)

Dim ds As New DataSet cmd.Fill(ds, "proorder")

Dim MyTable As New DataTable MyTable = ds.Tables("proorder")

'取得訂單編號

Dim ordernum, tmp As String

tmp = Right(MyTable.Rows(MyTable.Rows.Count - 1).Item("訂單編號"), 5)

'ordernum = Left(MyTable.Rows(0).Item("訂單編號"), 3)

& Right(Str(Val(Right(MyTable.Rows(0).Item("訂單編號"), 5) + 1)), 5)

ordernum = "pro" & tmp

'取出protmp中的所有資料

Dim procmd As New OleDb.OleDbDataAdapter("select * from protmp", con)

Dim prods As New DataSet procmd.Fill(ds, "protmp")

Dim proMyTable As New DataTable MyTable = ds.Tables("protmp")

Dim aa As Object

aa = Request.Cookies("cusnum").Value

Dim i, j As Integer j = 0

For i = 0 To MyTable.Rows.Count - 1

j += 1

'將訂單內容寫入proorder() Dim writeStr As String

writeStr = "insert into proorder(訂單編號,客戶編 號,商品編號,商品名稱,數量,單價,總額,處理)

values(?,?,?,?,?,?,?,?)"

Dim ordercmd

As New OleDb.OleDbCommand(writeStr,

con)

ordercmd.Parameters.Add("@訂單編號", OleDb.OleDbType.Char, 50)

ordercmd.Parameters.Add("@客戶編號", OleDb.OleDbType.Char, 50)

ordercmd.Parameters.Add("@商品編號", OleDb.OleDbType.Char, 50)

ordercmd.Parameters.Add("@商品名稱", OleDb.OleDbType.Char, 50)

ordercmd.Parameters.Add("@數量",

MyTable.Rows(i).Item("單價")

ordercmd.Parameters("@總額").Value = MyTable.Rows(i).Item("總額")

ordercmd.Parameters("@處理").Value = "是"

ordercmd.ExecuteNonQuery() Next

Response.Write("謝謝您的訂購，服務人員會儘快和您連絡

")

Response.End()

End Sub

5.留言

圖 4.14 留言區

圖 4.14 點選我要留言之後出現圖 4.15 留言區留言

圖 4.15 留言區留言 Process

Sub OpenDataBase_And_BindToDataGrid()

Dim Conn As OleDb.OleDbConnection

Dim Adpt As OleDb.OleDbDataAdapter Dim Ds As DataSet

Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim Database = "Data Source=" &

Server.MapPath("../DB.mdb")

Conn = New OleDb.OleDbConnection(Provider & ";" &

Database)

Conn.Open()

Dim SQL = "Select Top 50 * From GuestBook Order By 時 間 Desc"

Adpt = New OleDb.OleDbDataAdapter(SQL, Conn)

Ds = New DataSet

Adpt.Fill(Ds, "GuestBook")

Dim Table1 As DataTable = Ds.Tables("GuestBook") Table1.Columns.Add(New DataColumn("HTML",

GetType(String)))

Dim I As Integer

For I = 0 To Table1.Rows.Count - 1 Table1.Rows(I).Item("HTML") = MakeHTML(Table1.Rows(I))

Next

MyGrid.DataSource = Table1.DefaultView MyGrid.DataBind()

Conn.Close() End Sub

Function MakeHTML(ByVal row As DataRow) As String Dim 心情 = row.Item("心情")

Dim 姓名 = "<B>姓名: </B>" &

Server.HtmlEncode(row.Item("姓名")) Dim 主旨 = "<B>主旨: </B>" &

Server.HtmlEncode(row.Item("主旨"))

Dim 留言 = "<pre><Font Size=+1>" &

Server.HtmlEncode(row.Item("留言")) & "</Font></pre>"

Dim 時間 = "<B>時間: </B>" &

Server.HtmlEncode(row.Item("時間"))

Dim 信箱 = Server.HtmlEncode(row.Item("信箱"))

信箱 = "<B>信箱: </B><a href='mailto: " & 信箱 & "'>"

& 信箱 & "</a>"

Dim HTML As String

Return HTML End Function

Private Sub Button1_Click(ByVal sender

As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Redirect("Gform.aspx") End Sub

Sub ChangePage(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)

MyGrid.CurrentPageIndex = e.NewPageIndex OpenDataBase_And_BindToDataGrid()

End Sub

圖 4.15 留言區留言

圖 4.15 按下送出留言之後， 出現圖 4.16 留言區留言成功。

圖 4.16 留言區留言成功 Process

Sub SendMsg(sender As Object, e As EventArgs) If IsValid Then WriteDataToDatabase() Response.Redirect("Gbook.aspx") End If End Sub Sub WriteDataToDatabase() Dim Conn As OleDbConnection Dim Cmd As OleDbCommand Dim Provider =

"Provider=Microsoft.Jet.OLEDB.4.0" Dim Database = "Data Source=" & Server.MapPath( "../DB.mdb" ) Conn = New

OleDbConnection( Provider & ";" & DataBase ) Conn.Open() Dim SQL As String SQL = "INSERT INTO GuestBook (姓名, 信箱, 主旨,

Conn ) Cmd.Parameters.Add( New OleDbParameter("@姓名", OleDbType.Char, 255)) Cmd.Parameters.Add( New

OleDbParameter("@信箱", OleDbType.Char, 255)) Cmd.Parameters.Add( New OleDbParameter("@主旨", OleDbType.VarChar)) Cmd.Parameters.Add( New OleDbParameter("@留言", OleDbType.VarChar)) Cmd.Parameters.Add( New OleDbParameter("@心情",

OleDbType.Char, 255)) Cmd.Parameters(0).Value = Name.Text Cmd.Parameters(1).Value = Email.Text Cmd.Parameters(2).Value

= Subject.Text Cmd.Parameters(3).Value = Body.Text Cmd.Parameters(4).Value = Icon.SelectedItem.Text Cmd.ExecuteNonQuery() Conn.Close() End Sub

4.2 網站管理者 1.管理者登入

圖 4.17 管理者登入 圖 4.17 輸入密碼之後便進入圖 4.18 管理者專區

Process

Private Sub Button1_Click(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles Button1.Click If pass.Text = "test" Then

Session("admin") = "yes"

Response.Redirect("management.aspx") Else

Response.Write("密碼錯誤，請重新輸入") Response.End()

End If End Sub

2.管理者管理會員

圖 4.18 管理者專區

圖 4.18 點選會員總攬之後，出現圖 4.19 管理者管理會員

圖 4.19 管理者管理會員

圖 4.19 點選編輯，出現圖 4.20 管理者管理會員之修改，將所要修改

的資料欄修改；圖 4.19 點選刪除便得到圖 4.22 管理者管理會員之刪 除完成。

圖 4.20 管理者管理會員之修改

圖 4.20 修改完之後便得到圖 4.21 管理者管理會員之修改完成

4.21 管理者管理會員之修改完成

圖 4.22 管理者管理會員之刪除完成

Process：使用 DataGrid 來顯示資料且利用 SQL 指令來做修改

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not IsPostBack Then BindList() End Sub

Private

Sub myDataGrid_EditCommand(ByVal source As Object, ByVal e As

System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.EditCommand

myDataGrid.EditItemIndex = e.Item.ItemIndex BindList()

End Sub

Private Sub myDataGrid_CancelCommand(ByVal source As

Private Sub myDataGrid_UpdateCommand(ByVal source As

Object, ByVal e As

Dim ID

As String = CType(e.Item.Cells(4).Controls(0),

"',sex='" & sex & "' ,MyTel='" & MyTel & "',ID='" & ID &

"' ,pass='" & pass & "',MyNumber='" & MyNumber & "',MyMobil='"

& MyMobil & "',MyBirthday='" & MyBirthday & "',email='" & email

& "',AreaNum='" & AreaNum & "',Address='" & MyAddress & "' Where

& "',AreaNum='" & AreaNum & "',Address='" & MyAddress & "' Where

在文檔中 二手影音光碟交易網站 (頁 35-0)