【文章內(nèi)容簡(jiǎn)介】 型（ admin）。其中， name（用戶姓名）字段作為該表的主關(guān)鍵字（ primary key）。如表 所示： 表 vip表設(shè)計(jì) 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 name char(100) 用戶姓名 主關(guān)鍵字 pass char(100) 用戶密碼 not null mail char(200) 電子郵件 null sex char(50) 用戶性別 null [date] datetime(8) 注冊(cè)時(shí)間 not null admin text（ 16） 用戶類型 null 2. 用戶登錄信息表 zhuce 該表用于記錄用戶登錄的基本信息，包括用戶名（ name）、密碼（ password）及注冊(cè)時(shí)間（ [date]）。其中， name（用戶姓名）做為該表的主關(guān)鍵字。如表 所示： 表 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 name char 用戶姓名 主關(guān)鍵字 password char 用戶密碼 not null [date] datetime 注冊(cè)時(shí)間 not null 3. 歌曲基本信息表 information 該表存放歌曲的基本信息，包括歌曲 ID（ id）、歌手名字（ singer）、歌曲名（ song）、歌曲類型（ type）、新歌推薦（ class）、歌曲介紹（ introduce）、點(diǎn)擊率（ hit）、歌曲 URL（ url）。其中 id 字段作為該表的主關(guān)鍵字，標(biāo)識(shí)為“是”，標(biāo)識(shí)種子為“ 1”，標(biāo)識(shí)增量為“ 1”，惟一標(biāo)識(shí)了一個(gè)歌曲基本信息。如表 所示： 表 information表設(shè)計(jì) 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 id int（ 4） 歌曲 ID 主關(guān)鍵字 singer char（ 100） 歌手姓名 null song char（ 500） 歌曲名字 null type char（ 100） 歌曲類型 null class char（ 100） 新歌推薦 null introduce char（ 1000） 歌曲介紹 null hit int（ 4） 點(diǎn)擊率 null url char（ 3000） 歌曲 url null 4. 電影基本信息表 movie 該表存放電影的基本信息，包括主要電影 ID（ id）、演員姓名（ name）、電影名字（ moviename）、電影圖片（ moviephoto）、電影 URL（ movieurl）、電影簡(jiǎn)介（ movieinform）、電影類型（ type）、上傳時(shí)間（ [date]）。其中電影 ID 為主關(guān)鍵字。如下表所示： 表 movie表設(shè)計(jì) 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 id int（ 4） 電影 ID 主關(guān)鍵字 name char（ 1000） 演員姓名 null moviename char（ 1000） 電影名字 null moviephoto char（ 1500） 電影圖片 null moveurl char（ 2021） 電影 URL null movieinform char（ 1000） 電影簡(jiǎn)介 null type char（ 500） 電影類型 null [date] int（ 8） 上傳時(shí)間 null 5. 專集基本信息表 zhuanji 該表存放歌曲專集的基本信息，包括專集 ID（ id）、專集類型（ type）、專集名稱（ song）、點(diǎn)擊率（ hit）、專集介紹（ introduce）、專集 URL（ url）、專集圖片（ photo）。其中專集 ID為主關(guān)鍵字。如下 表所示： 表 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 id int（ 4） 專集 ID 主關(guān)鍵字 type char（ 100） 專集類型 null song char（ 700） 專集名稱 null hit char（ 100） 點(diǎn)擊率 null introduce char（ 5000） 專集介紹 null url char（ 1000） 專集 URL null photo char（ 1000） 專集圖片 null 6. 論壇數(shù)據(jù)信息表 BBS 該表存放論壇留言功能具體信息。包括論壇 ID（ id）、用戶名（ username）、留言（ message）和留言時(shí)間（ [date]）。其中論壇 ID 為主關(guān)鍵字。 表 BBS表設(shè)計(jì) 字段 名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 id int（ 4） 論壇 ID 主關(guān)鍵字 username char（ 50） 用戶名 null message varchar（ 5000） 留言 null [date] int（ 8） 留言時(shí)間 not null 網(wǎng)站主頁(yè)的實(shí)現(xiàn) 用戶注冊(cè)后登錄網(wǎng)站，便進(jìn)入主頁(yè)，即可在首頁(yè)上點(diǎn)相應(yīng)導(dǎo)航鏈接，進(jìn)行所需操作。未經(jīng)注冊(cè)的會(huì)員也能登錄主頁(yè)，但不能進(jìn)行試聽(tīng)歌曲等其他操作。 主頁(yè)是通過(guò)對(duì)其他頁(yè)面進(jìn)行鏈接實(shí)現(xiàn)的，本系統(tǒng)還實(shí)現(xiàn)各種分類功能，如：華語(yǔ)男歌手 、華語(yǔ)女歌手、國(guó)外歌曲、動(dòng)漫歌曲、音樂(lè)排行榜、新歌推薦等，還提供搜索功能，根據(jù)歌曲或歌手來(lái)實(shí)現(xiàn)搜索功能，主頁(yè)頁(yè)面如下圖所示。 圖 登錄功能的實(shí)現(xiàn)我們采用第一個(gè)表單頁(yè)面讓用戶輸入自己的會(huì)員賬號(hào)和密碼，然后發(fā)送到 頁(yè)面上查詢數(shù)據(jù)庫(kù)中保存的賬號(hào)和密碼進(jìn)行身份驗(yàn)證，因?yàn)槊恳粋€(gè)用戶登錄系統(tǒng)都會(huì)自動(dòng)分配一個(gè) session，所以我們把驗(yàn)證后的信息存儲(chǔ)到 session 里面，方便后續(xù)頁(yè)面的調(diào)用和認(rèn)證： !include file= center img src=img/ /span class=STYLE1 % username=(name) password=(pass) exec=select * from vip where( name=39。amp。usernameamp。39。 and pass=39。amp。passwordamp。39。 ) set rs=() exec,conn,1,1 if not then session(check)=checked session(name)=username else session(check)= (出錯(cuò)拉，請(qǐng)你重新登錄 ! 特別提醒 : 賬號(hào)和密碼是您登錄本系統(tǒng)的唯一認(rèn)證 ,希望您妥善保管 ! ) end if % % set conn=nothing % /span /center 圖 主頁(yè)頁(yè)面 前臺(tái)主頁(yè)面顯示了幾個(gè)大塊：一，音樂(lè)分類導(dǎo)航 二，專集列表 三，歌曲列表 四，會(huì)員登錄信息 五，音樂(lè)搜索 六，新歌推薦 七，歌曲排行榜以及合作伙伴的鏈接。 主要代碼如下： !include file= td height=25div align=center a href=./ 首頁(yè)/a/div/td ?? tddiv align=centera href=./ target=_parent用戶登錄 /a/div/td tddiv align=center % if session(name)=admin then % a href= %(管理 )% /a/div %else% span class=STYLE19 %(你是游客身份！ ) end if % 1. 會(huì)員信息代碼： tr td bordercolor=FFFFFF會(huì)員信息：歡迎您 : %() amp。 session(name)% br 你的登錄時(shí)間 :br %(now)%/td /tr 2. 音樂(lè)搜索代碼： form action= method=post 歌手 : input name=singer type=text style=width:120px / br / 歌曲 : input type=text name=songstyle=width:120px / br / input type=submit value=ok.. / /form 3. 新 歌推薦代碼： ul % exec0=select * from information where class=39。new39。 set rs0=() exec0,conn,1,1 do while not % lia href=%=rs0(url)%%=rs0(song)%%=rs0(singer)%/a/li % loop % /ul 4. 歌曲列表模塊代碼 ： % exec=select * from information where type=39。華語(yǔ)男歌手 39。 order by hit desc set rs=() exec,conn,1,1 do while not % /span /td /tr tr tdspan class=STYLE25%=rs(singer)%/span /td tdspan class=STYLE25%=rs(song)%/span /td tdspan class=STYLE25%=rs(hit)%/span /td tdspan class=STYLE9/span a href=?filename=%=rs(song)% target=_blank 試聽(tīng)/a/td tda href=?filename=%=rs(song)% target=_blankspan class=STYLE25下載 /span/a % loop % 5. 數(shù)據(jù)庫(kù)關(guān)閉并且釋放內(nèi)存代碼： % set rs=nothing set rs0=nothing set rs1=nothing set conn=nothing % 歌曲試聽(tīng)下載頁(yè)面 1. 音樂(lè)在線視聽(tīng)的設(shè)計(jì)與實(shí)現(xiàn) 圖 在線視聽(tīng) 會(huì)員根據(jù)喜好選擇歌曲，點(diǎn)擊即可在線試聽(tīng)歌曲或下載歌曲 。 在線視聽(tīng)功能采取的原理是在頁(yè)面上嵌入一個(gè) windowns 自帶的播放器，獲取上個(gè)頁(yè)面請(qǐng)求的歌曲路徑加入播放列表然后進(jìn)行播放，頁(yè)面代碼如下： !include file= % if session(check)=checked then % % song=(filename) exec=select * from information where song=39。amp。songamp。39。 set rs=() exec,conn,1,3 rs(hit)=rs(hit)+1 % table width=308 border=1 bordercolor=999999 trtd bordercolor=FFFFFF歌手： %=rs(singer)% trtd bordercolor=FFFFFF歌名： %=rs(song)% trtd bordercolor=FFFFFF類別： %=rs(type)% trtd bordercolor=FFFFFF試聽(tīng)： %=rs(hit)%次 trtd height=117 bordercolor=FFFFFF object CLASSID=CLSID:6BF52A52394A11d3B15300C04F79FAA6width=300 height=100 align=absmiddle id= param name=url value=%=rs(url)% param name=rate value=1 param name=balance value=0 param name=currentposition value=0 /object /table %else% script alert(打擾了，管理員提醒你登錄后重試！ )。 /script %end if % 2. 音樂(lè)下載頁(yè)面的設(shè)計(jì)與實(shí)現(xiàn) 圖 歌曲下載頁(yè)面 音樂(lè)下載是本系統(tǒng)的最關(guān)鍵的模塊，這個(gè)頁(yè)面必須要是本站的會(huì)員才能夠使用。他的主要實(shí)現(xiàn)的通過(guò)對(duì) asp 對(duì)象 Stream 的讀寫(xiě)操作實(shí)現(xiàn)的，為了安全性，我們禁止用戶下載本站的程序文件和相關(guān)數(shù)據(jù)庫(kù)文件，這樣就很好的阻止了許多不合法的操作。代碼如下： !include file= % if session(check)checked then% script alert(對(duì)不起，管理員 提醒你登錄 !) /script % else % % Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = (filename) if FileName = Then