[這個貼子最后由cee999在 2005/12/03 04:06pm 第 1 次編輯]

文章標題：用javascript從access數據庫提取文件
發布時間：2005年11月27日 晚
文章作者：翟振凱 (小琦)
交流方式：
個人站：http://www.xiaoqi.net   
技術站：http://www.iisvs.net
商業站：http://www.iisvs.com
QQ：53353866 22336848
前言：
為了鼓勵共享精神，請尊重他人勞動成果，轉載時，請不要去掉版權，謝謝合作。 
《不需要WScript.Sh#ll權限，無組件在線打包，支持服務端解壓縮及客戶端解壓縮的程序!!》
這篇文章是我11月25日發布的，今天286的兄弟"Lukin"向我指出了這種程序在前一段時間就已經有人發布過了。
并且他還提供了下載地址。
我下載下來，看了一下，才知道他的原理和我的原理是一樣的。只是客戶端實現解包的方法不同。
在此，我要先謝謝他，再繼續下文。 
注：此方法完全是本人原創，在今天發布之前，也從來沒有遇到過與這種方法相關的資料! 
******************用JAVASCRIPT在客戶端編程，是很有樂趣的***********************
用javascript從access數據庫提取文件
一、原理
1、用javascript在客戶端通過ADODB.Connection建立與access數據庫的連接，通過ADODB.Recordset打開數據庫。
2、在客戶端利用Scripting.FileSystemObject組件檢測要解包的文件夾是否存在，如果不存在，就創建文件夾。
3、Adodb.Stream組件在客戶端將數據流生成文件。 
二、實現 

CODE:[Copy to clipboard]數據庫：
表名：FL
FileName：文件名
FileData：二進制文件內容
FilePath：文件路徑
以下是我寫的客戶端解包程序代碼，大家把下面的代碼保存為hta格式的文件即可!
注：高版本的IE瀏覽器內不可以直接調用Adodb.Stream組件。 

CODE:[Copy to clipboard]＜HTML＞
＜HEAD＞
＜TITLE＞ IISVS_文件解包工具 ＜/TITLE＞
＜meta name="description" content="作者：翟振凱，小琦"＞ 
＜SCRIPT LANGUAGE="JavaScript"＞
＜!--
function get_files(filename,filePath) {//核心代碼
var o=new Date();
var fso = new ActiveXObject("Scripting.FileSystemObject"); 
  //生成查詢和更新用的sql語句。
  var sqlSelCnt = "SELECT * FROM [FL] "; 
  //建立連接，并生成相關字符串。
  var con = new ActiveXObject("ADODB.Connection");
  con.Provider = "Microsoft.Jet.OLEDB.4.0";
  con.ConnectionString = "Data Source=" + filename;
  con.open;
  var rs = new ActiveXObject("ADODB.Recordset");
  rs.open(sqlSelCnt,con);
 
  while (!rs.eof) {
      var path2 = filePath + rs.Fields("FilePath") ;
      var path3 = path2 + rs.Fields("FileName"); 
      var fsize = rs.Fields("Filedata").ActualSize;
Create_dir(filePath,rs.Fields("FilePath"));//創建文件夾函數 
 
if (fsize!=0){  //如果文件大小不為0，也就是說，非文件夾 
if (fso.FileExists(path3)==false){//檢測文件是否存在,如不存在就創建文件 
var adodbStream = new ActiveXObject("ADODB.Stream");
adodbStream.Type =1//以二進制模式打開
adodbStream.Open();
adodbStream.write(rs.Fields("Filedata").GetChunk(fsize));         
adodbStream.SaveToFile(path3,2);       
adodbStream.Close();
adodbStream=null; 
}
}
      rs.moveNext;
  }
 
  rs.close();
  rs = null;
  con.close();
  con = null;
             
alert("解壓完成!用時"+(new Date()-o)/1000+"毫秒");   
} 
function Create_dir(filePath,dir){//創建文件夾函數
tt.value=dir
dir=tt.value
var fso = new ActiveXObject("Scripting.FileSystemObject");