【文章內容簡介】 =False Then ((strfolderPath)) ((strfolderPath) amp。 /public) Set Fso=Nothing End if () End if 用戶信息修改 普通 用戶 登陸自己空間后，可以對登陸密碼進行修改，也可以對共享密碼進行修改，降低密碼被盜的可能性。如圖 32 所示。 圖 32用戶信息修改 Dim strUserName,strPassword,strfolderPath,conn,strUserName1,strPassword1 Set conn=() if Request(action)=Modify Then strPassword=Request(passwd) strPassword1=Request(passwd3) DBQ=amp。()amp。DRIVER={Microsoft _ Access Driver (*.mdb)} update user_info set password=39。 amp。 strPassword amp。_ 39。,gongxiangPwd=39。 amp。 strPassword1 amp。 39。 where id= amp。 Session(id) 39。 利用 update….. 更新數(shù)據(jù)庫信息 普通用戶空間 (1)登陸：普通用戶通過注冊的用戶名和密碼登陸存儲系統(tǒng)，進入自己的存儲空間 。 如圖 33 所示。 39。用戶登陸驗證 1 為注冊用戶模式 取得客戶端利用表單所傳遞的數(shù)據(jù) if (action)=Login Then dim userName,passWord,rs,conn,loginSql 39。從客戶端獲取用戶名和密碼 圖 33 普通用戶登陸 userName=Request(user_name) passWord=Request(user_password) if userName And passWord Then userName=Replace(userName,39。,) 39。根據(jù)用戶選擇的模式，把用戶輸入的用戶名和密碼與數(shù)據(jù)庫中的比較 if Request(slectmode)=1 then loginSql=Select * From user_info Where userName=39。amp。userNameamp。39。 And_ password=39。amp。passWordamp。39。 39。程序創(chuàng)建了 connection 對象的一個實例 conn。然后調用 connection 對象的 open 方法。 Set conn=() 39。創(chuàng)建 ADODB 連接 DBQ=amp。()amp。DRIVER={Microsoft amp。_ Access Driver (*.mdb)} 39。將相對路徑解析到絕對路徑，啟動打開 Access Set rs=() ‘創(chuàng)建指針集對象 loginSql,conn,1 if =1 Then 39。記錄條數(shù)記錄總數(shù) Session(ID)=rs(id) 39。將用戶的資料記錄到各自的 session 變量中 Session(UserName)=username end if () 39。將瀏覽器端導向至 網頁 (2)登陸成功 圖 34普通用戶空間 (3)進入空間后，在上傳文件前可以通過新建文件夾對所上傳的文件分類管理。 如圖 35 所示。 圖 35新建文件夾 當用戶點擊 ”新建文件夾 ”按鈕后，按鈕執(zhí)行 onclick 事件中的 funNewFolder 函數(shù)。 input type=button onClick=funNewFolder() value=39。新建文件夾 39。 function funNewFolder() dim strFolderName strFolderName= if strFolderName then () 39。提交表單 1 end if (4)點擊文件上傳把所需要的文件上傳到所屬空間 .如圖 36 所示。 圖 36 文件上傳 上傳文件代碼 : a href= onClick=Visit 39。%=DownLoadPath%39。文件上傳 /a function Visit(strPath) ?DownLoadPath=amp。strPath, end function form action=?path=%=(DownLoadPath)%_ method=post enctype=multipart/formdata ID=Form1 39。指定表單的編碼方 式為 base64 編碼使用這種編碼后服務器不再為 自動提取數(shù)據(jù)，只能用 方法讀取 原始的 post 值。 VPath=Request(Path) Path=((Request(Path)))amp。\ 39。對傳遞過來的字符串進行編碼，使他不會被瀏覽器理解為 HTML 語法 FormSize= 39。獲取送入的所有字節(jié)的數(shù)量的值給 FormSize這個變量 FormData=(FormSize) 39。根據(jù)數(shù)據(jù)長度獲得接收數(shù)據(jù) Dim CLStr,Start_At,FormEnd_At CLStr=ChrB(13)amp。ChrB(10) 39。定義變量 CLStr 的值為 ChrB(13)amp。ChrB(10) Start_At=139。設置開始位置為 1 Dim str_b For i = 1 To Len(ContentDisposition) str_b = str_b amp。 ChrB(Asc(Mid(ContentDisposition, i, 1))) 39。將 str_b 轉換成 2 進制的字符串 Next FiterStr=str_b str_Split=LeftB(FormData,InStrB(FormData,FiterStr)3) 39。從左邊在 FormData 的開始位置中取得在 FormData 中出現(xiàn) FiterStr 的第一個位置 3 的長度值 Do While Start_AtFormSize FormEnd_At=InStrB(Start_At,FormData,CLStramp。CLStr) if FormEnd_At=0 Then Exit Do End if 39。獲得 Form 數(shù)據(jù) FormInfo=MidB(FormData,Start_At,FormEnd_AtStart_At) 39。減去 form 長度得到文件開始地址 39。獲得文件數(shù)據(jù)開始位置 Start_At=FormEnd_At+4 39。調用 FormEnd_At 的值，從 FormData 中查找 2 對 CLStr出現(xiàn)的位置，將這個位置＋４獲得文件數(shù)據(jù)出現(xiàn)的第一個位置， 4 是兩對回車換行符的長度 FileSize=InStrB(Start_At,FormData,str_Split)Start_At 39。 獲得文件長度 ，查找FormData 中出現(xiàn) str_Split 的值的位置減去 Start_At 的位置獲得數(shù)據(jù)長度 dim str_c For i = 1 To Len(filename=) str_c = str_c amp。 ChrB(Asc(Mid(filename=, i, 1))) 39。將 ”filename=”轉換成二進制數(shù)據(jù)流 Next FileSpace=str_c FileName_Start_At = InStrB(FormInfo,FileSpace)+10 39。取得文件名的首位置 FileName_End_At = InStrB(FileName_Start_At,FormInfo,ChrB(34)) 39。取得文件名的末位 置 FileFullName=MidB(FormInfo,FileName_Start_At, _ FileName_End_AtFileName_Start_At) Dim BytesStream,StringReturn Set BytesStream = () 39。建立一個 數(shù)據(jù) 流對象 With BytesStream ‘關聯(lián)到 .Type = 2 39。設置流對象的類型為字符流 ，定義類型為 2。 .Open 39。打開流對象 .WriteText FileFullName 39。把文本數(shù)據(jù)裝入對象 .Position = 0 39。設置流對象的起始位置是 0,也就是開頭 ，權限默認 .Charset = GB2312 39。設置流對象的編碼方式為 GB2312 .Position = 2 39。設置流對象的起始位置是 2(過濾掉開始的一個控制字符 )，權限寫入 StringReturn = .ReadText 39。把流對象的內容保存在 StringReturn 變量中 .close 39。關閉流對象 End With Set BytesStream = Nothing 39。銷毀流對象 FileFormatArray=Split(StringReturn,\) 39。將 StringReturn 字符串以逗號分隔，所有分隔的結果放入 FileFormatArray 中 FileName=FileFormatArray(UBound(FileFormatArray)) Set TempFileInfo=New FileInfo =FileName =Start_At =FileSize =Path FileName,TempFileInfo (br) (FileNameamp。開始讀取 br) Start_At=Start_At+FileSize Loop Dim FileInfoArray,Data FileInfoArray= For i = 0 To 1 (br) (FileInfoArray(i).FileNameamp。開始上傳 br) 39。直接保存到硬盤 Set ReadStream=() 39。建立讀取的 對象 Set SaveStream=CreateObject() 39。建立保存的 對象 =3 mode=3 39。表示可讀可寫的模式 = 1 Type = 1 39。表示 2 進制的數(shù)據(jù)流類型 =3 =1 FormData 39。讀取原始數(shù)據(jù)流 =FileInfoArray(i).Position1 39。從文件開始位置 1 開始往后讀取設定指針位置 SaveStream,FileInfoArray(i).FileSize 39?？截愖x對象到寫對象，數(shù)據(jù)大小為 FileInfoArray(i).FileSize FileInfoArray(i).Pathamp。FileInfoArray(i).FileName,2 39。保存文件以文件路徑以及文件名無條件覆蓋 Set SaveStream=nothing Set ReadStream=nothing (br) (FileInfoArray(i).FileNameamp。保存完成 br) Next Set Fso=nothing Set FormDictionary = nothing Class FileInfo Public Position Public FileSize Public FileName Public Path Private Sub Class_Initialize() End Sub End Class % 圖 37文件上傳成功 (5)點擊下載可以對已上傳的文件進行下載 圖 38文件下載 文件下載代碼 a href=?FilePath=%=DownLoadPathamp。%[ 下 _載 ]/a DownLoadPath=Request(FilePath) 39。Request 對象被用于讀取客戶端傳送給服務器的值， dim strTempFilePath strTempFilePath=(FilePath) 39。取得客戶端追加在文件路徑之后的所有值組合的集合。 strFilename = (strTempFilePath) 39。解析要下載文件路徑 = True 39。啟用緩沖處理 把數(shù)據(jù)緩存起來，最后一起輸出 Set s = () 利用 () 39。直接下載文件 = 1 39。二進制流 on error re