【正文】 (~\App_Data\)（） Dim sqlcmd = select subject from newpost where postid= amp。,0,0) Dim cmd As New OleDbCommand = sqlcmd 電影票售票管理系統(tǒng) 37 = con () () = 新帖發(fā)表成功！ () () End Sub End Class 圖 415回復(fù)評(píng)論 回復(fù)評(píng)論運(yùn)行代碼如下： Imports Imports Partial Class reply Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles Dim postid As Integer postid = Request(id) Dim con As New OleDbConnection = Provider=。 (REMOTE_ADDR) amp。 ,39。, amp。 Now() amp。,39。 amp。,39。 amp。 (~\App_Data\) Dim sqlcmd = insert into newpost(subject,message,postdate,userid,ip,replies,views) values(39。 Session(curuserid) End Sub Protected Sub reset_Click(ByVal sender As Object, ByVal e As ) Handles = = End Sub Protected Sub post_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。 ({0:c}, ftotal * dec)) () () (提交定單成功 !) End Sub (5)對(duì)影片的評(píng)價(jià)以及回復(fù)的效果圖如 41 415 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 36 圖 414發(fā)表評(píng)論 發(fā)表評(píng)論的代碼運(yùn)行如下： Imports Imports Partial Class forum Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles = Session(curname) amp。 ({0:c}, ftotal)) (打折 : amp。 price amp。 ) (***************************************************) (商品名稱 數(shù) 量 單 價(jià) 總 價(jià) ) OrderList = Session(orderList) qtyList = Session(qtyList) For i = 0 To 1 productId = OrderList(i) product = GetProduct(productId) name = ({0,9:G}, product(name)) qty = ({0,10:G}, qtyList(i)) price = ({0,9:c}, product(price)) total = ({0:c}, qtyList(i) * product(price)) ftotal += qtyList(i) * product(price) (name amp。 ) (訂票日期 : amp。 ) (聯(lián)系地址 : amp。 (\電影票售票 \App_Data\售票 .mdb) Dim myconnection As New OleDbConnection(myconnectionstring) Dim product As New DataSet() () Dim adapter1 As OleDbDataAdapter adapter1 = New OleDbDataAdapter(select * from 信息表 where productid = amp。 productid, myconnection) (product, 信息表 ) getproduct = (0).Rows(0) () End Function Protected Sub categorylist_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles Dim i As ListItem i = = = False End Sub Protected Sub DataList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles = True End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles If (Not IsPostBack) Then = ().Text End If End Sub Protected Sub addcart_Click(ByVal sender As Object, ByVal e As ) Handles Dim productid As Integer Dim orderlist As ArrayList Dim qtylist As ArrayList 電影票售票管理系統(tǒng) 33 orderlist = Session(orderlist) qtylist = Session(qtylist) productid = () If (productid) = 1 Then (productid) (1) Else Dim num As Integer = (productid) qtylist(num) = CInt(qtylist(num)) + 1 End If Session(orderlist) = orderlist Session(qtylist) = qtylist updateshoppingcart() End Sub Protected Sub recalculate_Click(ByVal sender As Object, ByVal e As ) Handles Dim qty As TextBox Dim item As DataGridItem Dim i As Integer For i = 0 To Session(orderlist).count 1 qty = CType((i).FindControl(textbox2), TextBox) Session(qtylist)(i) = Next updateshoppingcart() End Sub Protected Sub clearcart_Click(ByVal sender As Object, ByVal e As ) Handles Session(orderlist) = New ArrayList() Session(qtylist) = New ArrayList() updateshoppingcart() End Sub End Class (4)提交信息點(diǎn)擊結(jié)賬 ，提交效果 如圖 413 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 34 圖 413提交點(diǎn)擊結(jié)賬 其提交購(gòu)物單的運(yùn)行代碼如下： Imports Imports Imports Partial Class check Inherits Function GetProduct(ByVal productID As Integer) As DataRow Dim myconnectionstring As String = provider=。data source= amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。data source= amp。 客戶 操作模塊實(shí)現(xiàn)過程 用戶 操作模塊實(shí)現(xiàn)的具體功能有對(duì)個(gè)人基本信息、 影片的查詢 、 對(duì)影片的發(fā)表評(píng)論 信息、 回復(fù) 信息 、提交資料購(gòu)物 和 設(shè)置 密碼等。下面大概說下用戶的操作，下一節(jié)做詳解。 script) Else Session(username) = Session(password) = End If Else () End If Else = 密碼不正確 = True = End If Else = 沒有這個(gè)用戶！或者用戶類型不正確！ = True End If () () End Sub 可以管理用戶信息 ，如圖 44 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 24 圖 44管理用戶界面 其他類似此，點(diǎn)擊管理鏈接，就可直接對(duì)電影信息，評(píng)論信息，回復(fù)信息進(jìn)行刪除修改更新等操作，既方便又便捷。)。 amp。Javascript39。/ amp。 請(qǐng)輸入用戶名39。alert(39。 Dim cmd As New OleDbCommand = sqlcmd = con Dim dr As OleDbDataReader dr = () If () = True Then If (1) = Then Session(curuserid) = (0) Session(curname) = If = 用戶 Then If = Then (script language=39。 amp。 and gllb=39。 Trim() amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。以 用戶 信息管理為例，介紹具體的實(shí)現(xiàn)步驟： （ 1）管理