【導(dǎo)讀】第二章編程環(huán)境基礎(chǔ)知識·················································································3. 利用ADO訪問數(shù)據(jù)庫···········································································3. 第三章需求分析····························································································6

　　

【正文】 inputarea name=UserName 密碼： input type=password class=inputarea name=UserPasswordamp。nbsp input type=submit value= 登錄 class=inputarea ” amp。_ ” [a href=javascript:openWindow(39。39。,420,240)font color=black” amp。_ ” 沒有注冊？ /font/a] /form /td/tr/table Else 39。 若果登錄，則讀取用戶信息 39。通過 SQL 多表查詢讀取用戶已預(yù)訂或者已租的影片代碼如下： strSQL=SELECT * FROM [Tenancy],[VideoInfo] WHERE TAC_UI_ID_FN=amp。_ Session(UserID)amp。 AND VI_ID_N=TAC_VI_ID_FN AND (TAC_Status_N=4 OR “ amp。_ ”TAC_Status_N=3) Set objRS=() strSQL,objConn,1,3 39。讀取已預(yù)訂影片及已租影片的信息 Dim Rent,Prearrange,MsgRent,OvertimeRent If Or Then Rent=您還沒有租影片 MsgRent=您還沒有租影片 OvertimeRent=您還沒有租影片 Prearrange=您還沒有預(yù)訂影片 Else For i=1 To 39。通過 Select Case 語句將已預(yù)訂與已租影片分類 Select Case objRS(TAC_Status_N) Case 3 If DateDiff(h,Now(),DateAdd(h,amp。_ objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)))24 Then 39。如果租出的影片在返還時(shí)間 24 小時(shí)以外，則顯示為“已租影片” Rent=Rentamp。a href=javascript:openWindow” amp。_ ”(39。?ID=amp。objRS(TAC_ID_N) amp。 _ 39。,320,370) title=39。起租時(shí)間： amp。_ objRS(TAC_StartTime_D)amp。_ 租期： amp。_ objRS(TAC_Lease_N)amp。 天 到期時(shí)間：amp。DateAdd(d,objRS(TAC_Lease_N), amp。_objRS(TAC_StartTime_D))amp。_ 39。 《 amp。objRS(VI_Title_S)amp?！愤€剩 amp。_ DateDiff(h,Now(),DateAdd(h,amp。_ objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)))amp。小時(shí) /a ElseIf DateDiff(h,Now(),DateAdd(h,amp。_ objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)))=0 Then 39。如果租出的影片離返還時(shí)間不到 24 小時(shí)，則顯示為“要到期影片” MsgRent=MsgRentamp。a href=javascript:openWindow” amp。_ ”(39。?ID=amp。objRS(TAC_ID_N) amp。 _ 39。,320,370) title=39。起租時(shí)間： amp。_ objRS(TAC_StartTime_D)amp。 租期： amp。_ objRS(TAC_Lease_N)amp。天 到期時(shí) ” amp。_ ” 間： amp。DateAdd(d,objRS(TAC_Lease_N),amp。_ objRS(TAC_StartTime_D))amp。_ 《 amp。objRS(VI_Title_S)amp?！愤€剩 font” amp。_ ” color=redamp。DateDiff(h,Now(),amp。_ DateAdd(h,objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)))amp。/font小時(shí) /a Else 39。如果租出的影片已經(jīng)超過歸還期限，則顯示為“超期影片” OvertimeRent=OvertimeRentamp。a href=” amp。_ ”javascript:openWindow(39。?ID=amp。 _ objRS(TAC_ID_N) amp。 _ 39。,320,370) title=39。起租時(shí)間： amp。_ objRS(TAC_StartTime_D)amp。 租期： amp。_ objRS(TAC_Lease_N)amp。天 到期時(shí) ” amp。_ ” 間： amp。DateAdd(d,objRS(TAC_Lease_N),amp。_ objRS(TAC_StartTime_D))amp。_ 39。 《 amp。objRS(VI_Title_S)amp。》已過期 amp。_ DateDiff(h,DateAdd(h,amp。_ objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)),Now())amp。小時(shí)！ /a End If Case 4 39。顯示預(yù)訂時(shí)間 If DateDiff(h,objRS(TAC_ReserveTime_D),Now())=12 Then Prearrange=Prearrangeamp。a href=javascript:openWindow” amp。_ ”(39。?ID=amp。objRS(TAC_ID_N)amp。39。,320,370 ) amp。_ title=39。預(yù)訂時(shí)間： amp。objRS(TAC_ReserveTime_D)amp。_ 還可保留預(yù)訂 amp。 12DateDiff(h,amp。_ objRS(TAC_ReserveTime_D),Now())amp。_ 小時(shí) 39?！?amp。objRS(VI_Title_S)amp?！?/a End If End Select Next End If 顯示用戶 IP，及頁面代碼如下 ： th colspan=2 id=tabletitlelink height=25” amp。_ ” style=fontweight:normal align=left歡迎您的來訪！ amp。_ 您的 IP是 amp。(REMOTE_ADDR)amp。_ 用戶資料界面及代碼 用戶資料管理界面 用戶在此界面可以進(jìn)行對用戶個(gè)人信息的修改，實(shí)現(xiàn)功能，其代碼大致如下： If IsEmpty(Session(UserID))=True Then GetErr(7) End If ‘ 根據(jù) IsModify 判斷是執(zhí)行程序還是顯示頁面 If Request(IsModify) Then 39。判斷要更改的用戶是否存在 Set objRS=() strSQL=SELECT UI_ID_N FROM [UserInfo] WHERE UI_ID_N=amp。Request(uid) strSQL,objConn,1,3 If Or Then brbrbr ResultMsg(要修改的用戶沒有找到！ ) Set objRS=Nothing CloseDatabase End If 39。檢查輸入的合法性 39。密碼 If Request(ChangePassword) Then If Request(Password)= Then ResultMsg(如果選擇了更改密碼，則必須輸入密碼！ ) End If If Len(Request(Password))20 Then ResultMsg(密碼請不要超過 20個(gè)字符！ ) End If If InStr(Request(Password),39。)0 Then ResultMsg(字符“ 39?！睘榉欠ㄝ?入，請去掉此字符！ ) End If End If 39。Email If IsValidEmail(Request(Email))=False Then ResultMsg(Email 輸入不符合規(guī)范，請返回重新輸入！ ) End If 39。 If Request() Then If IsNumeric(Request())=False Then ResultMsg( 號碼必須為數(shù)字， 請返回重新輸入！ ) End If End If 39。當(dāng)管理員修改時(shí)判斷 If Request(ChangeBy)=admin Then 39。判斷用戶是否為管理員 strSQL=SELECT UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N=amp。_ Session(UserID) strSQL,objConn,1,3 If objRS(UI_IsAdmin_B)=False Then GetErr(8) CloseDatabase End If 39。供應(yīng)商 If IsNumeric(Request(Provider))=False Or Request(Provider)= Then GetErr(1) End If 39。管理員 If Request(IsAdmin)true AND Request(IsAdmin)false Then GetErr(1) End If 39。鎖定 If Request(IsLocked)true AND Request(IsLocked)false Then GetErr(1) End If 39。信用等級 If IsNumeric(Request(CerRank))=False Or Request(CerRank)= Then ResultMsg(信用等級不能留空！ ) End If End If 39。取得用戶信息 ‘ 如果用戶填了新密碼，則加密此密碼以便更新 If Request(ChangePassword) Then UserPassword=(Request(Password) End If Email=Request(Email) =Request() ProviderID=Request(Provider) ‘ 如果 ProviderID0則說明用戶是供應(yīng)商 If ProviderID0 Then IsProvider=True Else IsProvider=False End If IsAdmin=Request(IsAdmin) IsLocked=Request(IsLocked) CerRank=Request(CerRank) 39。根據(jù)情況建立 SQL 語句更新數(shù)據(jù) 庫 If Request(ChangeBy)=admin Then If Request(ChangePassword) Then strSQL=UPDATE [UserInfo] SET UI_PI_ID_FN=amp。ProviderIDamp。_ ,UI_Password_S=39。amp。UserPasswordamp。39。,UI_IsLocked_B=amp。IsLockedamp。_ ,UI_CerRank_N=amp。CerRankamp。,UI_IsProvider_B=amp。IsProvideramp。_ ,UI_Email_S=39。amp。Emailamp。39。,UI__S=39。amp。amp。39。,UI_IsAdmin_B=amp。IsAdminamp。_ WHERE UI_ID_N=amp。Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_PI_ID_FN=amp。ProviderIDamp。_ ,UI_IsLocked_B=amp。IsLockedamp。,UI_CerRank_N=amp。CerRankamp。_ ,UI_IsProvider_B=amp。IsProvideramp。,UI_Email_S=39。amp。Emailamp。39。,UI__S=39。amp。_ amp。39。,UI_IsAdmin_B=amp。IsAdminamp。 WHERE UI_ID_N=amp。Request(uid) End If Else If Request(ChangePassword) Then strSQL=UPDATE [UserInfo] SET UI_Password_S=39。amp。UserPasswordamp。_ 39。,UI_Email_S=39。amp。Emailamp。39。,UI__S=39。amp。amp。39。 WHERE UI_ID_N=amp。_ Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_Email_S=39。amp。Emailamp。39。,UI__S=39。amp。_ amp。39。 WHERE UI_ID_N=amp。Request(uid) End If End If (strSQL) 39。輸出結(jié)果 brbrbr ResultMsg(用戶信息更新完畢！ ) CloseDatabase Else 39。判斷輸入是否合法 If IsNumeric(Request(uid))=False Or Request(uid)= Then GetErr(1) End If 39。判斷用戶是否為管理員 Dim strSQL,objRS Dim IsAdmin strSQL=SELECT UI_ID_N,UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N=amp。_ Session(UserID) Set objRS=() strSQL,objConn,1,3 IsAdmin=objRS(UI_IsAdmin_B) 39。若用戶不是管理員則判斷其修改的是否為自己的信息 If IsAdmin=False Then If Cint(Request(uid))Cint(Session(UserID)) Then GetErr(8) CloseDatabase End If End If 39。取得用戶信息 Dim UserName,Email, Dim Provider,IsProvider,ProviderID Dim IsLocked,IsAdmin2 Dim RentCount,CerRank strSQL=SELECT * FROM [UserInfo] WHERE UI_ID_N=amp。Request(uid) strSQL,objConn,1,3 If Or Then ResultMsg(對不起，此用戶不存在或已被刪除！ ) CloseDatabase End If UserName=objRS(UI_Name_S) Email=input type=text name=Email maxlength=50 size=30 value=amp。_ objRS(UI_Email_S)amp。 =input ty