影片租賃系統(tǒng)—免費(fèi)計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文(存儲(chǔ)版)
【正文】 f(h,Now(),DateAdd(h,amp。_ ”(39。_ objRS(TAC_Lease_N)amp。_ ” color=redamp。?ID=amp。天 到期時(shí) ” amp。_ DateDiff(h,DateAdd(h,amp。objRS(TAC_ID_N)amp。_ objRS(TAC_ReserveTime_D),Now())amp。_ 用戶資料界面及代碼 用戶資料管理界面 用戶在此界面可以進(jìn)行對(duì)用戶個(gè)人信息的修改，實(shí)現(xiàn)功能，其代碼大致如下： If IsEmpty(Session(UserID))=True Then GetErr(7) End If ‘ 根據(jù) IsModify 判斷是執(zhí)行程序還是顯示頁(yè)面 If Request(IsModify) Then 39。 If Request() Then If IsNumeric(Request())=False Then ResultMsg( 號(hào)碼必須為數(shù)字， 請(qǐng)返回重新輸入！ ) End If End If 39。取得用戶信息 ‘ 如果用戶填了新密碼，則加密此密碼以便更新 If Request(ChangePassword) Then UserPassword=(Request(Password) End If Email=Request(Email) =Request() ProviderID=Request(Provider) ‘ 如果 ProviderID0則說(shuō)明用戶是供應(yīng)商 If ProviderID0 Then IsProvider=True Else IsProvider=False End If IsAdmin=Request(IsAdmin) IsLocked=Request(IsLocked) CerRank=Request(CerRank) 39。IsLockedamp。39。Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_PI_ID_FN=amp。,UI_Email_S=39。,UI_IsAdmin_B=amp。amp。_ Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_Email_S=39。 WHERE UI_ID_N=amp。Request(uid) strSQL,objConn,1,3 If Or Then ResultMsg(對(duì)不起，此用戶不存在或已被刪除！ ) CloseDatabase End If UserName=objRS(UI_Name_S) Email=input type=text name=Email maxlength=50 size=30 value=amp。若用戶不是管理員則判斷其修改的是否為自己的信息 If IsAdmin=False Then If Cint(Request(uid))Cint(Session(UserID)) Then GetErr(8) CloseDatabase End If End If 39。_ amp。39。_ 39。_ amp。_ ,UI_IsProvider_B=amp。IsAdminamp。amp。39。鎖定 If Request(IsLocked)true AND Request(IsLocked)false Then GetErr(1) End If 39。”為非法輸 入，請(qǐng)去掉此字符！ ) End If End If 39。_ 您的 IP是 amp。_ 還可保留預(yù)訂 amp。_ ”(39。objRS(VI_Title_S)amp。 租期： amp。a href=” amp。objRS(VI_Title_S)amp。_ objRS(TAC_StartTime_D)amp。如果租出的影片離返還時(shí)間不到 24 小時(shí)，則顯示為“要到期影片” MsgRent=MsgRentamp。objRS(VI_Title_S)amp。_ objRS(TAC_StartTime_D)amp。如果租出的影片在返還時(shí)間 24 小時(shí)以外，則顯示為“已租影片” Rent=Rentamp。通過(guò) SQL 多表查詢讀取用戶已預(yù)訂或者已租的影片代碼如下： strSQL=SELECT * FROM [Tenancy],[VideoInfo] WHERE TAC_UI_ID_FN=amp。 /th/tr /table table border=0 width=97% align=centertrtd colspan=2 “ amp。objRS(VI_Count_N)+1amp。objRS(VI_RentCount_N)amp。objRS(VI_PlayActor_S)amp。（ ID： amp。objRS(VI_ID_N)amp。_ ” width=97 % height=25% trth colspan=2 id=tabletitlelink height=25 style=fontweight:normal” amp。 AND VI_VS_ID_FN=amp。%39。_ ”39。FindMovieamp。 charset=gb2312 meta name=vs_targetSchema content= link href= rel=stylesheet type=text/css title影片租賃系統(tǒng) /title /head body !插入通用的 Html 頭模板 !include file= % FindMovie=Request(FindMovie) FindMovie=Replace(FindMovie,39。_ DateDiff(h,objRS(TAC_ReserveTime_D),Now())12 Then End If Next strSQL=SELECT * FROM [Tenancy] WHERE TAC_StartTime_D” amp。判斷用戶是否存在 39。 代碼分析： !include file= !include file= !include file= % Dim strSQL,objRS Set objRS=() 39。Emailamp。UserNameamp。amp。)0 Then ResultMsg(字符“ 39。 供應(yīng)商信息表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 PI_ID_N 供應(yīng)商 ID ● autocount Not Null PI_Name_S 名稱 varchar 50 Not Null PI_Description_S 描述 varchar 250 系統(tǒng)信息表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 SI_Owner_S 系統(tǒng)使用者 ● varchar 250 SI_Copyright_N 版權(quán)所有者 varchar 200 SI_About_S 關(guān)于 varchar 250 SI_Logo_S Logo 地址 varchar 250 SI_Content_S 聯(lián)系人 Email varchar 250 租賃信息表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 TAC_ID_N 租賃號(hào) ● auto count Not Null TAC_VI_ID_FN 租賃影片 ID ○ int Not Null TAC_UI_ID_FN 租賃用戶 ID ○ int Not Null TAC_ReserveTime_D 預(yù)定時(shí)間 datetime Not Null TAC_TimeOut_B 是否超時(shí) datetime Not Null False TAC_Return_B 是否返還 boolean Not False Null TAC_StartTime_D 起租時(shí)間 datetime TAC_Lease_N 租期 int 1 TAC_EndTime_D 結(jié)租時(shí)間 datetime TAC_UserPayment_N 用戶付款數(shù) single 0 TAC_Status_N 租賃狀態(tài) int Not Null 影片承載介質(zhì)表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 TI_ID_N 介質(zhì) ID ● autocount Not Null TI_Description_S 介質(zhì)名 varchar 100 Not Null 影片信息表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 VI_ID_N 影片 ID ● autocount Not Null VI_TI_ID_FN 影片介質(zhì) ID ○ int Not Null VI_VS_ID_FN 影片類型 ID ○ int Not Null VI_PMT_ID_FN 租價(jià)方案 ID ○ int Not Null VI_PI_ID_FN 供應(yīng)商 ID ○ int Not Null VI_Title_S 影片名 varchar 50 Not Null VI_Content_S 內(nèi)容 big varchar VI_Director_S 導(dǎo)演 varchar 100 VI_Playactor_S 演員 varchar 100 VI_Issuer_S 發(fā)行商 varchar VI_Rank_N 評(píng)價(jià) int Not Null 1 VI_RentCount_ 出租次數(shù) int Not 0 N Null VI_Count_N 瀏 覽計(jì)數(shù) int Not Null 0 VI_Status_N 影片狀態(tài) int Not Null 1 VI_AddTime_D 添加時(shí)間 datetime Not Null Now() VI_Img_S 圖片地址 varchar 150 影片類型表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 VS_ID_N 影片類型 ID ● autocount Not Null VS_Description_S 描述 varchar 50 Not Null VS_Count_N 類 型瀏覽技術(shù) int Not Null 0 VS_RentCount_N 類型租賃計(jì)數(shù) int Not Null 0 用戶信息表 字段名 描述 鍵 類型 長(zhǎng)度 空值 默認(rèn)值 UI_ID_N 用戶 ID ● autocount Not Null UI_PI_ID_FN 供應(yīng)商 ID ○ int Not Null 0 UI_Name_S 用戶名 varchar 20 Not Null UI_Password_S 密碼 varchar 100 Not Null UI_IsLock_B 用戶是否鎖定 boolean Not Null False
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1