網頁中存了一些圖檔.圖檔很大所以看圖要等很久 我想在asp網頁開啟時用dll把大圖存成小圖再把小 圖顯示出來.遇到一些問題想請教各位大大    delphi的大略內容如下:

procedure Tj2b.j2b(fdir, fname: OleVariant);
var ax: integer;
  kw: integer;
  kh: integer;
  bmp: TBitmap;
  jpeg: TJpegImage;
  rect: TRect;
begin
  if directoryexists(fdir   'temp\') = false then
    createdir(fdir   'temp\');
  if fileexists(fdir   'temp\'   fname   '.bmp') = false then
  begin
    bmp := TBitmap.Create;
    jpeg := TJpegImage.Create;
    jpeg.LoadFromFile(fdir   fname   '.jpg');
    if jpeg.Width > jpeg.Height then
    begin
      ax := (jpeg.Width div 120)   1;
    end
    else
    begin
      ax := (jpeg.Height div 120)   1;
    end;
    kw := jpeg.Width div ax;
    kh := jpeg.height div ax;
    rect.Left := 0;
    rect.Top := 0;
    rect.Right := kw - 1;
    rect.Bottom := kh - 1;
    bmp.Width := kw;
    bmp.Height := kh;
    bmp.Canvas.StretchDraw(rect, jpeg);
    bmp.SaveToFile(fdir   'temp\'   fname   '.bmp');
    jpeg.Free;
    bmp.Free;
  end;
end;

asp的內容如下: set kkk=server.CreateObject("project2.j2b") kkk.j2b "c:\","126" set kkk=nothing PS:c:\下有一檔126.jpg.希望網頁開啟時它會另存一 個小檔c:\temp\126.bmp asp回應的訊息如下: 伺服器物件 錯誤 'ASP 0178 : 80070005' Server.CreateObject 存取錯誤 /kk.asp, 列3 當檢查使用權限時 Server.CreateObject 的呼叫失敗。拒絕存取此物件。 不知是程式錯誤還是伺服器設定錯誤?(我用xp)謝謝 發表人 - kagaya 於 2003/04/18 09:40:54

------
KUSO 無處不在