【文章內(nèi)容簡(jiǎn)介】
和dataset,datatable 等都寫在這個(gè)類里面,頁(yè)面后端代碼共用此方法對(duì)數(shù)據(jù)庫(kù)進(jìn)行連接。 模塊的組織結(jié)構(gòu)圖圖3 模塊組織結(jié)構(gòu)圖起始頁(yè)面為相冊(cè)首頁(yè),未登陸可以瀏覽圖片,進(jìn)入顯示圖片評(píng)論頁(yè)面,用戶登陸頁(yè)面和用戶注冊(cè)頁(yè)面,只有查看圖片和評(píng)論的權(quán)限。登陸用戶可以進(jìn)入所有頁(yè)面,并擁有一些操作權(quán)限。 數(shù)據(jù)庫(kù)結(jié)構(gòu)的設(shè)計(jì)表1 userInfo(用戶信息表)名稱中文描述數(shù)據(jù)類型長(zhǎng)度NullPK默認(rèn)值userID用戶idInt4Not nullYusername用戶名Varchar50Nullpassword密碼Varchar50Nulltel電話Varchar50Null郵件Varchar50Nullrolename權(quán)限Varchar50NulluserInfo用于儲(chǔ)存用戶信息,用戶在注冊(cè)時(shí)填寫的資料都保存在此表內(nèi),主要用于用戶登陸時(shí)比對(duì)信息,確定是否本人登陸。表2 photo(圖片信息表)名稱中文描述數(shù)據(jù)類型長(zhǎng)度NullPK默認(rèn)值photo_id圖片idint4Not nullYphototitle圖片標(biāo)題varchar50Nullphotopath圖片編號(hào)varchar50Nullphotodesc圖片描述varchar100Nullcataid目錄idint4Nulluserid用戶idint4Nulltime上傳時(shí)間datetime8Nullphoto用來(lái)儲(chǔ)存圖片信息,用于查找比對(duì)圖片將正確的圖片顯示在網(wǎng)頁(yè)上和搜尋“上一張,下一張”圖片。表3 catalog(目錄信息表)名稱中文描述數(shù)據(jù)類型長(zhǎng)度NullPK默認(rèn)值catalog_id目錄idint4Not nullYcatalog_name創(chuàng)建用戶名varchar50Nulluserid創(chuàng)建用戶idint4NullTime創(chuàng)建時(shí)間datetime8Nullbroustimes瀏覽次數(shù)int4Null0Catalog儲(chǔ)存目錄的相關(guān)信息,其中broustimes默認(rèn)值設(shè)置為0,點(diǎn)擊此目錄一次,寫入數(shù)據(jù)庫(kù)一次,用來(lái)記錄此相冊(cè)目錄的瀏覽次數(shù)。表4 ment(評(píng)論信息表)名稱中文描述數(shù)據(jù)類型長(zhǎng)度NullPK默認(rèn)值id評(píng)論信息idint4Not nullYphoto_id圖片idint4Nulluserid用戶idint4Nullcontent評(píng)論內(nèi)容varchar100Nulltime發(fā)表時(shí)間datetime8Null4 網(wǎng)站詳細(xì)設(shè)計(jì) 相冊(cè)首頁(yè)的設(shè)計(jì)相冊(cè)首頁(yè)顯示所有相冊(cè)目錄,目錄可以點(diǎn)擊進(jìn)入,瀏覽目錄內(nèi)的圖片。目錄旁邊顯示瀏覽人次創(chuàng)建時(shí)間等信息,后面有一個(gè)刪除按鈕,目錄的創(chuàng)建者可登陸后刪除此目錄和目錄下的內(nèi)容。頂部的按鈕可以點(diǎn)擊挑轉(zhuǎn)到其他畫面,未登陸者只能夠進(jìn)入登陸畫面和注冊(cè)畫面。添加一個(gè)窗體,設(shè)置6個(gè)了linkbutton控件,連接到其他頁(yè)面。一個(gè)linkbutton控件退回初時(shí)狀態(tài);設(shè)置gridview控件綁定數(shù)據(jù),gridview的columns里面設(shè)置5個(gè)boundfield控件,一個(gè)templatefield控件,itemtemplate設(shè)置一個(gè)linkbuton控件用來(lái)刪除該目錄;設(shè)置兩個(gè)label控件,一個(gè)sqldatasource控件,用來(lái)綁定數(shù)據(jù)源,顯示在頁(yè)面上并和其他頁(yè)面建立連接。添加后完成的界面,運(yùn)行如圖4所示:圖4 相冊(cè)首頁(yè)首頁(yè)gridview顯示綁定的數(shù)據(jù)內(nèi)容,點(diǎn)擊刪除按鈕,普通用戶可以刪除自己創(chuàng)建的目錄,未登陸或者不是自己創(chuàng)建的目錄都不能刪除,管理員可以刪除空目錄,核心代碼如下:Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles Dim bbstr As String……………………..Dim c As String = select rolename from userinfo where username=39。 amp。 Session(username) amp。 39。(guanliyuan, c) \\調(diào)用datebaseclass類里面定義的連接數(shù)據(jù) 庫(kù)的方法BindingsDataSet查詢useinfo表中角色權(quán)限是不是管理員aastr = select userid from catalog where catalog_id= amp。 (i) amp。 (c, aastr) \\調(diào)用datebaseclass類里面定義的連接數(shù)據(jù)庫(kù)的方法BindingsDataSet查詢創(chuàng)建目錄的用戶id……………………………………… If Session(userid)=((c).Rows(0)(0).ToString) Or (guanliyuan).Rows(0)(0).ToString = 管理員 Then bbstr = select cateid from photos where cateid= amp。 (i) amp。 Dim count As Integer = (aa, bbstr)//調(diào)用datebaseclass類里面定義的連接數(shù)據(jù)庫(kù)的方法JudgeWhetherExist查詢photos表里面有沒有圖片 ……………………………… sstr = delete from catalog where catalog_id= amp。 (i) amp。 (sstr)//調(diào)用datebaseclass類里面定義的連接數(shù)據(jù)庫(kù)的方法DelData,刪除 catalog里面以catalog_id為關(guān)鍵字的內(nèi)容………………………………………………………..輸入正確用戶名和密碼,點(diǎn)擊登陸按鈕登陸入網(wǎng)站,可進(jìn)行相關(guān)權(quán)限的操作,登陸成功返回首頁(yè),密碼錯(cuò)誤或者用戶名錯(cuò)誤,提示“密碼錯(cuò)誤”或者“用戶名不存在”,不輸入用戶名點(diǎn)擊登陸按鈕提示“用戶名不能為空”。 界面設(shè)計(jì)添加一個(gè)窗體,設(shè)置6個(gè)linkbutton控件,連接到其他頁(yè)面。一個(gè)linkbutton控件退回初時(shí)狀態(tài);設(shè)置四個(gè)label控件,其中兩個(gè)用來(lái)提示用戶名和密碼輸入是否正確等信息;設(shè)置2個(gè)textbox,分別用來(lái)輸入用戶名和密碼;2個(gè)button,用來(lái)確定登陸和返回。添加完成后的界面,運(yùn)行如圖5所示:圖5 登陸頁(yè)面登陸頁(yè)面,在文本框內(nèi)輸入用戶名和密碼,密碼為暗碼格式,點(diǎn)擊“登陸”按鈕,用戶登陸成功,并返回到首頁(yè)。密碼錯(cuò)誤,用戶名錯(cuò)誤或者用戶名沒有輸入,都會(huì)在文本框后面用一個(gè)label提示,核心代碼如下:Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim str As St