<body bgcolor="#FFFFFF"> <align="center"> <p align="center"><font color="#FF0000">正在處理數據，請稍候！ <br> </font><font color="#000000"><align="center"><% str=server.mappath("/") ‘取得服務器的根目錄 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(str & "/thetext") Set fc = f.Files k=1 For Each f1 in fc file(k)=f1.name ‘得到此路徑下的所有文件名 k=k+1 next %><% ii=1%><% set fs = CreateObject("Scripting.FileSystemObject")%><% while ii<k response.write file(ii) & "<br>" set textinstance=fs.opentextfile(str & "/thetext/" & file(ii),1,false,false)‘打開文件來讀數據 while textinstance.atendofstream<> true ‘如果文件沒有結束 visitornum=textinstance.readline ‘讀進一行數據 j=0 cd=len(visitornum) for i=1 to cd if mid(visitornum,i,1)="," then ‘數據與數據之間以“，”隔開 j=j+1 else select case j‘分別取得各數據值 case 0 me1=me1+mid(visitornum,i,1) case 1 me2=me2+mid(visitornum,i,1) case 2 me3=me3+mid(visitornum,i,1) case 3 me4=me4+mid(visitornum,i,1) case 4 me5=me5+mid(visitornum,i,1) case 5 me6=me6+mid(visitornum,i,1) end select end if next response.write me1 & " " & me2 & " " & me3 & " " & me4 & " " & me5 & " " & me6 & " " & "<br>" set cn=server.createobject("adodb.connection") cn.open "water","","" set rs=server.createobject("adodb.recordset") sql="select * from watertable" rs.open sql,cn,3,3‘打開數據庫進行追加操作 if rs.eof=true then on error resume next 'rs.movelast rs.movefirst on error resume next end if rs.addnew‘增加一條記錄 rs("wvalue")=me1 rs("wdate")=me2 rs("wtime")=me3 rs("zxz")=me4 rs("jdh")=me5 rs("czh")=me6 rs.update‘更新數據 rs.close me1="" me2="" me3="" me4="" me5="" me6="" wend ii=ii+1 wend %><align="center"></font><font color="#FF0000">數據處理完畢！</font> </p> </body> </html>
<p align="center"><font color="#FF0000">正在刪除文件，請稍候！<br> </font><font color="#000000"><% dim file(50)‘定義最大文件數 str=server.mappath("/") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(str & "/thetext/") Set fc = f.Files k=1 For Each f1 in fc file(k)=f1.name response.write file(k) & "<br>" k=k+1 next %><% i=1 while i<k Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(str & "/thetext/" & file(i)) i=i+1 wend %></font><font color="#FF0000">文件刪除完畢！</font></p> </body> </html> 這兩個小程序在NT4上作者都調試通過。但有幾點要認清，一個是文本文件大小的規劃（文本文件的數量多少也是如此），如果數據量大，那么在轉換時的時間大小要調整；二是轉換文本文件到數據庫文件時的程序調試一定要嚴謹，如果程序有誤，在數據轉換過程中沒有全部轉換，而后又刪除了這個文本文件，則會有所損失。所以這兩點一定要注意，不能馬虎。
