【正文】
=input type=t。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。若用戶不是管理員則判斷其修改的是否為自己的信息 If IsAdmin=False Then If Cint(Request(uid))Cint(Session(UserID)) Then GetErr(8) CloseDatabase End If End If 39。判斷用戶是否為管理員 Dim strSQL,objRS Dim IsAdmin strSQL=SELECT UI_ID_N,UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N=amp。輸出結果 brbrbr ResultMsg(用戶信息更新完畢! ) CloseDatabase Else 39。 WHERE UI_ID_N=amp。_ amp。,UI__S=39。Emailamp。_ Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_Email_S=39。39。amp。39。amp。_ 39。amp。 WHERE UI_ID_N=amp。,UI_IsAdmin_B=amp。_ amp。,UI__S=39。Emailamp。,UI_Email_S=39。_ ,UI_IsProvider_B=amp。,UI_CerRank_N=amp。_ ,UI_IsLocked_B=amp。Request(uid) Else strSQL=UPDATE [UserInfo] SET UI_PI_ID_FN=amp。IsAdminamp。39。amp。39。amp。IsProvideramp。CerRankamp。IsLockedamp。39。amp。ProviderIDamp。取得用戶信息 ‘ 如果用戶填了新密碼,則加密此密碼以便更新 If Request(ChangePassword) Then UserPassword=(Request(Password) End If Email=Request(Email) =Request() ProviderID=Request(Provider) ‘ 如果 ProviderID0則說明用戶是供應商 If ProviderID0 Then IsProvider=True Else IsProvider=False End If IsAdmin=Request(IsAdmin) IsLocked=Request(IsLocked) CerRank=Request(CerRank) 39。鎖定 If Request(IsLocked)true AND Request(IsLocked)false Then GetErr(1) End If 39。供應商 If IsNumeric(Request(Provider))=False Or Request(Provider)= Then GetErr(1) End If 39。判斷用戶是否為管理員 strSQL=SELECT UI_IsAdmin_B FROM [UserInfo] WHERE UI_ID_N=amp。 If Request() Then If IsNumeric(Request())=False Then ResultMsg( 號碼必須為數(shù)字, 請返回重新輸入! ) End If End If 39?!睘榉欠ㄝ?入,請去掉此字符! ) End If End If 39。密碼 If Request(ChangePassword) Then If Request(Password)= Then ResultMsg(如果選擇了更改密碼,則必須輸入密碼! ) End If If Len(Request(Password))20 Then ResultMsg(密碼請不要超過 20個字符! ) End If If InStr(Request(Password),39。Request(uid) strSQL,objConn,1,3 If Or Then brbrbr ResultMsg(要修改的用戶沒有找到! ) Set objRS=Nothing CloseDatabase End If 39。_ 用戶資料界面及代碼 用戶資料管理界面 用戶在此界面可以進行對用戶個人信息的修改,實現(xiàn)功能,其代碼大致如下: If IsEmpty(Session(UserID))=True Then GetErr(7) End If ‘ 根據(jù) IsModify 判斷是執(zhí)行程序還是顯示頁面 If Request(IsModify) Then 39。_ 您的 IP是 amp?!?/a End If End Select Next End If 顯示用戶 IP,及頁面代碼如下 : th colspan=2 id=tabletitlelink height=25” amp?!?amp。_ objRS(TAC_ReserveTime_D),Now())amp。_ 還可保留預訂 amp。預訂時間: amp。,320,370 ) amp。objRS(TAC_ID_N)amp。_ ”(39。顯示預訂時間 If DateDiff(h,objRS(TAC_ReserveTime_D),Now())=12 Then Prearrange=Prearrangeamp。_ objRS(TAC_StartTime_D)),Now())amp。_ DateDiff(h,DateAdd(h,amp。objRS(VI_Title_S)amp。_ 39。DateAdd(d,objRS(TAC_Lease_N),amp。天 到期時 ” amp。 租期: amp。起租時間: amp。 _ 39。?ID=amp。a href=” amp。/font小時 /a Else 39。_ DateAdd(h,objRS(TAC_Lease_N)*24,amp。_ ” color=redamp。objRS(VI_Title_S)amp。_ objRS(TAC_StartTime_D))amp。_ ” 間: amp。_ objRS(TAC_Lease_N)amp。_ objRS(TAC_StartTime_D)amp。,320,370) title=39。objRS(TAC_ID_N) amp。_ ”(39。如果租出的影片離返還時間不到 24 小時,則顯示為“要到期影片” MsgRent=MsgRentamp。_ objRS(TAC_Lease_N)*24,amp。_ objRS(TAC_StartTime_D)))amp。_ DateDiff(h,Now(),DateAdd(h,amp。objRS(VI_Title_S)amp。_ 39。DateAdd(d,objRS(TAC_Lease_N), amp。_ objRS(TAC_Lease_N)amp。_ objRS(TAC_StartTime_D)amp。,320,370) title=39。objRS(TAC_ID_N) amp。_ ”(39。如果租出的影片在返還時間 24 小時以外,則顯示為“已租影片” Rent=Rentamp。_ objRS(TAC_Lease_N)*24,amp。讀取已預訂影片及已租影片的信息 Dim Rent,Prearrange,MsgRent,OvertimeRent If Or Then Rent=您還沒有租影片 MsgRent=您還沒有租影片 OvertimeRent=您還沒有租影片 Prearrange=您還沒有預訂影片 Else For i=1 To 39。 AND VI_ID_N=TAC_VI_ID_FN AND (TAC_Status_N=4 OR “ amp。通過 SQL 多表查詢讀取用戶已預訂或者已租的影片代碼如下: strSQL=SELECT * FROM [Tenancy],[VideoInfo] WHERE TAC_UI_ID_FN=amp。_ ” 沒有注冊? /font/a] /form /td/tr/table Else 39。39。nbsp input type=submit value= 登錄 class=inputarea ” amp。 /th/tr /table table border=0 width=97% align=centertrtd colspan=2 “ amp。_ 您的 IP 是 amp。_ ” cellpadding=3 width=97% form action= trth colspan=2 id=tabletitlelink height=25” amp。objRS(VI_ID_N) (strSQL) /table % !插入通用的 Html 末尾 !include file= /body /html 用戶信息界面及代碼分析 用戶信息界面 用戶可以在此界面進行用戶信息的查看,已租影片,要到期的影片的查看,用戶的管理的功能,因此,代碼的設計如下: 用戶要進行以上功能的時候,首先應該判斷用戶是否為注冊用戶,次判斷的代碼如下: If IsEmpty(Session(UserID))=True Then 39。objRS(VI_Count_N)+1amp。_ AND VI_PMT_ID_FN=PMT_ID_N Set objRS=() strSQL,objConn,1,3 39。 charset=gb2312 meta name=vs_targetSchema content= link href= rel=stylesheet type=text/css title影片租賃系統(tǒng) /title /head body !插入通用的 Html 頭模板 !include file= % If IsNumeric(Request(id))=False Then GetErr(11) End If strSQL=SELECT * FROM [VideoInfo],[Payment] WHERE VI_ID_N=amp。利用 Select Case 判斷影片的狀態(tài) Select Case objRS(VI_Status_N) Case 1 待租 Case 2 i未發(fā)行 /i Case 3 b已出租 /b Case 4 font color=red被預定 /font End Select /td/tr 39。objRS(VI_RentCo