谁能写一个asp上传文件代码

来源：百度知道 编辑：UC知道 时间：2024/09/23 00:30:09
谁能写一个asp上传文件代码
运行该asp后自动将文件“d:\123456.rar”上传到服务器"\web"目录下，
代码尽量简单一点，最好一个文件实现该功能。

你去网上下载一个ASP无组件上传控件就可以实现上传功能，服务器上不需要安装任何组件。

都是带演示代码的，你稍微修改一下路径就可以直接使用了。

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_Eshare_Stream

Class upload_Eshare

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version="上传程序"
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_Eshare_Stream=CreateObject("Adodb.Stream")
upfile_Eshare_Stream.mode=3
upfile_Eshare_Stream.type=1
upfile_Eshare_Stream.open
upfile_Eshare_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)