关于文件上传，请帮忙

[xudongyong]

我想实现的功能是这样的！
如 <input type=button name=click value=save onclick="PutFile("c:/test.doc","http://10.201.11.154/test.doc")">

功能是把本地的 c:/test.doc 上传到 服务器 http://10.201.11.154/test.doc
请问有没有高手可以告诉怎么实现该函数 PutFile(Fn,UrlFn)
或是写个什么样的组件能够实现？（最好不要用FTP协议）
急！！！！！！

[yangzixp]

10.201.11.154是不是就是本web服务器？

[tzgpxl]

<!--#include file="upload_5xSoft.inc"-->
'upload_5xsoft.inc是老农写的一个程序，大把的是，在这里搜都可以搜到。
调用如下：
dim upload,file,formName,formPath,iCount,newname
set upload=new upload_5xSoft ''建立上传对象

filename=upload.form("file")'你选择上传的文件本地路径
formPath= "../doc/"
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据

newname=year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)&file.FileName
file.SaveAs Server.mappath(formPath&newname) ''保存文件
end if
next
set file=nothing
set upload=nothing ''删除此对象

[xudongyong]

yangzixp(扬子) 154是web服务器，
楼上的，可能没有理解我的意思，
我要实现的是直接就上传上去，而不是通过页面的提交，把form中file类型的文件路径传递过来的！这样做其实是让用户选择了一个文件然后上传，
我是需要程序控制上传的文件，不能让用户选择！
帮帮！！！！！！！！！！！！

[xudongyong]

或者有高手知道这样给
<input type=file name=a1> 赋个初值吗？我用了 value="c:\test.doc"不好用啊！