【正文】 bjf,num aaa=(id) set fso=() filepath=(./kaiti) 39。文件存儲的路徑 set f=(filepath) 39。調(diào)用filesystemobject對象的getfolder方法 For Each objf in 39。遍歷目標(biāo)文件夾 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% 說明:抽查功能的實現(xiàn),.******************************************************************************************************源碼六:源碼中包含的文件************************Part1: ****************% 39。打開數(shù)據(jù)庫 set conn=() driver={SQL Server}。server=.。database=sheji。uid=sa。pwd=。 39。關(guān)閉數(shù)據(jù)庫 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。二進制轉(zhuǎn)換為字符串 Dim BytesStream,StringReturn Set BytesStream = () = 2 vin = 0 = gb2312 = 2 StringReturn = Set BytesStream = Nothing Bytes2bStr = StringReturnEnd FunctionFunction Myrequest(fldname) 39。39。取表單數(shù)據(jù) 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。表單在數(shù)組中 39。39。判斷該表單域內(nèi)容 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。表單內(nèi)容 GetFileName = mid(fldHead,1,instr(fldHead,)1) GetfileName = mid(GetFileName,instrRev(GetFileName,\)+1) end if nextend functionfunction GetContentType(fldName) 39。39。讀取上傳文件的類型 39。39。限定讀取文件域的內(nèi)容 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。參數(shù)說明:39。39。fd:byte（）類型數(shù)據(jù)，文件內(nèi)容39。39。path:保存路徑后面必須帶/39。39。fname:文件名 dim Fstream Set FStream = () = 3 = 1 = 0 fd (pathamp。fname),2 set fstream = nothingend sub下載需知★本站上傳的文檔資源均來自互聯(lián)網(wǎng)，以分享為目的，為有需要者提供學(xué)習(xí)與參考，版權(quán)為原作者所有，若侵犯到原作者的權(quán)益, 請?zhí)岢鲋刚? 及時與網(wǎng)站客服聯(lián)系，并提供必要的證據(jù)，如屬實，網(wǎng)站會在第一時間進行處理，立即刪除相應(yīng)下載鏈接頁面并將文檔刪除。SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesTSelectionParbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbagraphFoLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointse11111111111111111111111111111111lectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPoctionParagraphFormatLineSpaci2222222222222222222222ngLinesToPoints2SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraphFccccccccccccccccccccccccccccccccccccccccccccccccccccccccormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLines ★本站上傳的文檔，在文檔排版上進行過整理，并未對內(nèi)容進行增加或刪除，因此，本站并不保證文檔質(zhì)量，因此下載之前，務(wù)必先預(yù)覽一番，因為預(yù)覽與下載的內(nèi)容完全一樣，所以如果發(fā)現(xiàn)內(nèi)容有問題，請不要下載。electionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesTSelectionParbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbagraphFoLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointse11111111111111111111111111111111lectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPoctionParagraphFormatLineSpaci2222222222222222222222ngLinesToPoints2SelectionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLinesToPointselectionParagraphFccccccccccccccccccccccccccccccccccccccccccccccccccccccccormatLineSpacingLinesToPointsSelectionParagraphFormatLineSpacingLin★下載后的word文檔均可進行復(fù)制、編輯，沒有密碼保護，PDF格式均可轉(zhuǎn)換成word，PPT文檔可直接進行修改。因上傳需要對文檔進行轉(zhuǎn)換，轉(zhuǎn)換過程中有可能不能正常閱讀或是下載后不能編輯，遇到這種問題，可以留言，留下郵箱地址，我們會把原始文檔發(fā)送到你的郵箱。electionParagraphFormatLineSpacingLinesToPointsSelectionParagraphFor