基于web畢業設計管理系統的開發-資料下載頁

　　

【正文】 bjf,num aaa=(id) set fso=() filepath=(./kaiti) 39。文件存儲的路徑 set f=(filepath) 39。調用filesystemobject對象的getfolder方法 For Each objf in 39。遍歷目標文件夾 content= 39。獲取文件名并賦值給變量content num = instr(1,content,trim(aaa),1) 39。用instr()對遍歷到的文件進行篩選 if num0 then%trtda href=/web/kaiti/%=content%%=content%/a/td%end if next% 說明:抽查功能的實現,.******************************************************************************************************源碼六:源碼中包含的文件************************Part1: ****************% 39。打開數據庫 set conn=() driver={SQL Server}。server=.。database=sheji。uid=sa。pwd=。 39。關閉數據庫 sub closeDB() if isobject(conn) then if not(conn is nothing) then set rs=nothing set conn=nothing end if end if end sub%Part2: *******************% if session(username)= then ()end if%Part3: *********************%39。39。Option Explicit 39。39。 = 999Function Bytes2bStr(vin)if lenb(vin) =0 then Bytes2bStr = exit functionend if39。39。二進制轉換為字符串 Dim BytesStream,StringReturn Set BytesStream = () = 2 vin = 0 = gb2312 = 2 StringReturn = Set BytesStream = Nothing Bytes2bStr = StringReturnEnd FunctionFunction Myrequest(fldname) 39。39。取表單數據 39。39。支持對同名表單域的讀取 dim i dim fldHead dim tmpvalue for i = 0 to loopt1 fldHead = fldInfo(i,0) if instr(lcase(fldHead),lcase(fldname))0 then 39。39。表單在數組中 39。39。判斷該表單域內容 tmpvalue = FldInfo(i,1) if instr(fldHead,filename=)1 then Tmpvalue = Bytes2bStr(tmpvalue) if myrequest then myrequest = myrequest amp。 , amp。tmpvalue else MyRequest = tmpvalue end if else myrequest = tmpvalue end if end if nextend functionfunction GetFileName(fldName) 39。39。都取原上傳文件文件名 dim i dim fldHead dim fnpos for i = 0 to loopt1 fldHead = lcase(fldInfo(i,0)) if instr(fldHead,lcase(fldName)) 0 then fnpos = instr(fldHead,filename=) if fnpos 1 then exit for fldHead = mid(fldHead,fnpos+10) 39。39。表單內容 GetFileName = mid(fldHead,1,instr(fldHead,)1) GetfileName = mid(GetFileName,instrRev(GetFileName,\)+1) end if nextend functionfunction GetContentType(fldName) 39。39。讀取上傳文件的類型 39。39。限定讀取文件域的內容 dim i dim fldHead,cpos for i = 0 to loopt 1 fldHead = lcase(fldInfo(i,0)) if instr(fldHead,lcase(fldName)) 0 and instr(fldHead,filename=) 0 then 39。39。讀取contentType cpos = instr(fldHead,contenttype: ) GetContentType = mid(fldHead,cpos+14) end if nextend functionSub SaveToFile(fd,path,fname)39。39。保存文件39。39。參數說明:39。39。fd:byte（）類型數據，文件內容39。39。path:保存路徑后面必須帶/39。39。fname:文件名 dim Fstream Set FStream = () = 3 = 1 = 0 fd (pathamp。fname),2 set fstream = nothingend sub下載需知★本站上傳的文檔資源均來自互聯網，以分享為目的，為有需要者提供學習與參考，版權為原作者所有，若侵犯到原作者的權益, 請提出指正, 及時與網站客服聯系，并提供必要的證據，如屬實，網站會在第一時間進行處理，立即刪除相應下載鏈接頁面并將文檔刪除。SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesTSelectionParbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbagraphFoLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointse11111111111111111111111111111111lectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPoctionParagraphFormatLineSpaci2222222222222222222222ngLinesToPoints2SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraphFccccccccccccccccccccccccccccccccccccccccccccccccccccccccormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLines ★本站上傳的文檔，在文檔排版上進行過整理，并未對內容進行增加或刪除，因此，本站并不保證文檔質量，因此下載之前，務必先預覽一番，因為預覽與下載的內容完全一樣，所以如果發現內容有問題，請不要下載。electionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesTSelectionParbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbagraphFoLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointse11111111111111111111111111111111lectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPoctionParagraphFormatLineSpaci2222222222222222222222ngLinesToPoints2SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraphFccccccccccccccccccccccccccccccccccccccccccccccccccccccccormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLin★下載后的word文檔均可進行復制、編輯，沒有密碼保護，PDF格式均可轉換成word，PPT文檔可直接進行修改。因上傳需要對文檔進行轉換，轉換過程中有可能不能正常閱讀或是下載后不能編輯，遇到這種問題，可以留言，留下郵箱地址，我們會把原始文檔發送到你的郵箱。electionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFor