关于自动下载word文档的问题(100分)

我现在在作asp程序,有一个问题，我有一些合同模板的dot文档，放在服务器上，
我用asp取出sqlserver中的数据，拼成字符串，填到word中，把结果显示给用户，
用户直接打印就可以了。
用vbscript可以直接打开，客户端的word文档，但怎样把 服务器端的word文档下载到本地，
例如：我在vbscript中先检测客户端c:/a/a.dot是否存在，如果不存在，我则从服务器上将
该文档下载下来，
我找了一下，大部分人都在谈论怎样上传到服务器，可我认为，一但客户端和服务器建立了
连接，自动将文档下载下来也是可以的。我想用delphi写一个客户端和一个服务器端的组件，
大家提个思路,谢谢

帮你UP！

给分吧!//下载相应的附件
procedure TTWebOA.DownLoadWord(sUserName,sPassword,sFileName: string);
var
filename : string;
sIP,sComputerName : String;
begin
//filename := sFileName;
filename := copy(sFileName,pos('/$FILE/',sFileName)+7,length(sFileName));

sComputerName := Copy(sFileName,Pos('http://',sFileName)+7,Length(sFileName));
ScomputerName := Copy(sComputerName,1,Pos('/',sComputerName)-1);
sip :=192.168.0.1'';

if not DirectoryExists('c:/temp') then
begin
if not CreateDir('C:/temp') then
begin
showmessage('不能创建C:/temp目录！');
wordapplication1.disconnect;
Close;
end;
end;

filename := 'C:/temp/'+filename;

NMHTTP1.InputFileMode := true;
NMHTTP1.Body := filename ;
NMHTTP1.Header := 'Head.txt';
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
NMHTTP1.Proxy := sIp;
NMHTTP1.ProxyPort := 80;
With NMHTTP1.HeaderInfo do
Begin
Cookie := '';
LocalMailAddress := '';
LocalProgram := '';
Referer := '';
UserID := sUserName;
Password := sPassword;
End;

NMHTTP1.get(sFileName);

end;

谢谢二位，英雄所见略同。
其实问题我早就解决了，我用的是HTTP控件，作了一个.ocx控件，将它放在网页中，每当用户
打开网页时，自动将控件下载到客户端，然后用户将服务器中的word文件下载下来，其实可
将任何文件下载下来，美中不足的是此处用到的是activex 技术，客户端的ie6默认是禁用
activex的，用户必须将ie6中对activex的禁用设为启用，否则用户打开网页时，ie会有提示
各位还不什么好的方案，请提出来，我现在还不想结帖，不过二位的分肯定拿定了

没人回付了吗？现在结帖了
谢谢大家

多人接受答案了。

楼主，我想学习做 OCX，但一直没资料，你能发给我吗？
liner_soft@sina.com
谢谢！