【文章內(nèi)容簡(jiǎn)介】 en ((strfolderPath)) ((strfolderPath) amp。 /public) Set Fso=Nothing End if () End if 用戶信息修改 普通 用戶 登陸自己空間后，可以對(duì)登陸密碼進(jìn)行修改，也可以對(duì)共享密碼進(jìn)行修改，降低密碼被盜的可能性。如圖 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ù)庫(kù)信息 普通用戶空間 (1)登陸：普通用戶通過注冊(cè)的用戶名和密碼登陸存儲(chǔ)系統(tǒng)，進(jìn)入自己的存儲(chǔ)空間 。 如圖 33 所示。 39。用戶登陸驗(yàn)證 1 為注冊(cè)用戶模式 取得客戶端利用表單所傳遞的數(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ù)庫(kù)中的比較 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 對(duì)象的一個(gè)實(shí)例 conn。然后調(diào)用 connection 對(duì)象的 open 方法。 Set conn=() 39。創(chuàng)建 ADODB 連接 DBQ=amp。()amp。DRIVER={Microsoft amp。_ Access Driver (*.mdb)} 39。將相對(duì)路徑解析到絕對(duì)路徑，啟動(dòng)打開 Access Set rs=() ‘創(chuàng)建指針集對(duì)象 loginSql,conn,1 if =1 Then 39。記錄條數(shù)記錄總數(shù) Session(ID)=rs(id) 39。將用戶的資料記錄到各自的 session 變量中 Session(UserName)=username end if () 39。將瀏覽器端導(dǎo)向至 網(wǎng)頁(yè) (2)登陸成功 圖 34普通用戶空間 (3)進(jìn)入空間后，在上傳文件前可以通過新建文件夾對(duì)所上傳的文件分類管理。 如圖 35 所示。 圖 35新建文件夾 當(dāng)用戶點(diǎn)擊 ”新建文件夾 ”按鈕后，按鈕執(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)點(diǎn)擊文件上傳把所需要的文件上傳到所屬空間 .如圖 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 編碼使用這種編碼后服務(wù)器不再為 自動(dòng)提取數(shù)據(jù)，只能用 方法讀取 原始的 post 值。 VPath=Request(Path) Path=((Request(Path)))amp。\ 39。對(duì)傳遞過來的字符串進(jìn)行編碼，使他不會(huì)被瀏覽器理解為 HTML 語(yǔ)法 FormSize= 39。獲取送入的所有字節(jié)的數(shù)量的值給 FormSize 這個(gè)變量 FormData=(FormSize) 39。根據(jù)數(shù)據(jù)長(zhǎng)度獲得接收數(shù)據(jù) Dim CLStr,Start_At,FormEnd_At CLStr=ChrB(13)amp。ChrB(10) 39。定義變量 CLStr 的值為 ChrB(13)amp。ChrB(10) Start_At=139。設(shè)置開始位置為 1 Dim str_b For i = 1 To Len(ContentDisposition) str_b = str_b amp。 ChrB(Asc(Mid(ContentDisposition, i, 1))) 39。將 str_b 轉(zhuǎn)換成 2 進(jìn)制的字符串 Next FiterStr=str_b str_Split=LeftB(FormData,InStrB(FormData,FiterStr)3) 39。從左邊在 FormData 的開始位置中取得在 FormData 中出現(xiàn) FiterStr 的第一個(gè)位置 3 的長(zhǎng)度值 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 長(zhǎng)度得到文件開始地址 39。獲得文件數(shù)據(jù)開始位置 Start_At=FormEnd_At+4 39。調(diào)用 FormEnd_At的值，從 FormData中查找 2對(duì) CLStr出現(xiàn)的位置，將這個(gè)位置＋４獲得文件數(shù)據(jù)出現(xiàn)的第一個(gè)位置， 4 是兩對(duì)回車換行符的長(zhǎng)度 FileSize=InStrB(Start_At,FormData,str_Split)Start_At 39。 獲得文件長(zhǎng)度 ，查找FormData 中出現(xiàn) str_Split 的值的位置減去 Start_At 的位置獲得數(shù)據(jù)長(zhǎng)度 dim str_c For i = 1 To Len(filename=) str_c = str_c amp。 ChrB(Asc(Mid(filename=, i, 1))) 39。將 ”filename=”轉(zhuǎn)換成二進(jìn)制數(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。建立一個(gè) 數(shù)據(jù) 流對(duì)象 With BytesStream ‘關(guān)聯(lián)到 .Type = 2 39。設(shè)置流對(duì)象的類型為字符流 ，定義類型為 2。 .Open 39。打開流對(duì)象 .WriteText FileFullName 39。把文本數(shù)據(jù)裝入對(duì)象 .Position = 0 39。設(shè)置流對(duì)象的起始位置是 0,也就是開頭 ，權(quán)限默認(rèn) .Charset = GB2312 39。設(shè)置流對(duì)象的編碼方式為 GB2312 .Position = 2 39。設(shè)置流對(duì)象的起始位置是 2(過濾掉開始的一個(gè)控制字符 )，權(quán)限寫入 StringReturn = .ReadText 39。把流對(duì)象的內(nèi)容保存在 StringReturn 變量中 .close 39。關(guān)閉流對(duì)象 End With Set BytesStream = Nothing 39。銷毀流對(duì)象 FileFormatArray=Split(StringReturn,\) 39。將 StringReturn 字符串以逗號(hào)分隔，所有分隔的結(jié)果放入 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。建立讀取的 對(duì)象 Set SaveStream=CreateObject() 39。建立保存的 對(duì)象 =3 mode=3 39。表示可讀可寫的模式 = 1 Type = 1 39。表示 2 進(jìn)制的數(shù)據(jù)流類型 =3 =1 FormData 39。讀取原始數(shù)據(jù)流 =FileInfoArray(i).Position1 39。從文件開始位置 1 開始往后讀取設(shè)定指針位置 SaveStream,FileInfoArray(i).FileSize 39。拷貝讀對(duì)象到寫對(duì)象，數(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)點(diǎn)擊下載可以對(duì)已上傳的文件進(jìn)行下載 圖 38文件下載 文件下載代碼 a href=?FilePath=%=DownLoadPathamp。%[ 下 _載 ]/a DownLoadPath=Request(FilePath) 39。Request 對(duì)象被用于讀取客戶端傳送給服務(wù) 器的值， dim strTempFilePath strTempFilePath=(FilePath) 39。取得客戶端追加在文件路徑之后的所有值組合的集合。 strFilename = (strTempFilePath) 39。解析要下載文件路徑 = True 39。啟用緩沖處理 把數(shù)據(jù)緩存起來，最后一起輸出 Set s = () 利用 () 39。直接下載文件 = 1 39。二進(jìn)制流 on error resume