哪位老兄能提供非组件asp上传文件的代码？急

phaqyxiao 2001-08-17 03:29:20

我现在下载了一段代码，但运行速度很慢，急急！！

...全文

176 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ba_saner 2001-09-19

打赏
举报

可惜，只能用在win2k iis5，nt4就不行了。可惜

sundna 2001-08-20

打赏
举报

那是当然了！不过传一般的东东还是不错的！：）

phaqyxiao 2001-08-20

打赏
举报

文件超过1M的话，速度很慢。

hareqiqi 2001-08-20

打赏
举报

我要好好研究研究：）

jjdelphi 2001-08-20

打赏
举报

这就是大名鼎鼎的化境asp无组件上传

phaqyxiao 2001-08-17

打赏
举报

CityHost(市长)，能说一下这些代码怎么用。

CityHost 2001-08-17

打赏
举报

这是说明文档的代码.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFAF7" text="#000000">
 
 

<table width="65%" border="1" cellspacing="0" cellpadding="5" bordercolordark="#CCCCCC" bordercolorlight="#000000" align="center">
<tr bgcolor="#F6F6F6">
<td colspan="3" height="71" align="center" valign="middle">化境ASP无组件上传类
- upload_5xsoft 使用手册 1.0 
 
稻香老农 <a href="http://www.5xsoft.com/">http://www.5xsoft.com/</a> [ <a href="upclass.zip">下载</a>
]</td>
</tr>
</table>
 
 
 
 

<table width="22%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr align="left" valign="middle">
<td height="16" width="14%" bgcolor="#CCCCCC"> </td>
<td height="16" width="86%" bgcolor="#F6F6F6">目
录</td>
</tr>
</table>
1.<a href="#about">关于 upload_5xsoft</a> 
 
2.<a href="#note">运行平台与注意事项</a>
2.<a href="#class">类的成员与对象</a>
3.<a href="#example">使用示例</a>
<a name="about"></a> 
<table width="22%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr align="left" valign="middle">
<td height="16" width="14%" bgcolor="#CCCCCC"> </td>
<td height="16" width="86%" bgcolor="#F6F6F6">关于
upload_5xsoft</td>
</tr>
</table>
 

 一直以来,由于FileSystemObject的局限,所以ASP最大的难题就是文件上传,大多解决法就是安装 
 
第三方上传组件。可第三方组件有很多问题,有的组件要注册,有的组件要在表单中加上他的版权信息。 
 
还有的就是组件的兼容问题。 
 
在网上也流传了很多无组件上传的代码,但都是只能上传文本文件，或是只能将文件上传到数据库中。 
 
我这段时间在研究ASP,发现可以不用第三方组件上传任意类型的文件。就写了这个类,给大家一 
 
个方便,整个类放在一个文件中: upload_5xsoft.inc 在
Example 目录下还有一个完整的多文件上传示 
 
例程序,可以直接使用。 
 
申明:源代码是完全开放的,可能随意传播,但请保留其完整性,未经作者同意,不得用于商业。 
 
 

<a name="note"></a>
<table width="21%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr align="left" valign="middle">
<td height="16" width="15%" bgcolor="#CCCCCC"> </td>
<td height="16" width="85%" bgcolor="#F6F6F6">运行平台与注意事项</td>
</tr>
</table>
a)只能运行于 Windows2000+IIS 5,不支持 NT4+IIS4 或是 Win98+PWS, 只要在ASP中加上: 

就行了 
 
 
b) 在使用文件上传时, 表单 form 要加上 enctype="multipart/form-data" 即: 
 
<form name="form1" method="post"
action="" enctype="multipart/form-data"> 
<input type="text" value="abc" name="text1"> 
<input type=file name="file"> 
<input type=submit name="submit" value="提交"> 
</form> 
 
 

<a name="class"></a>
<table width="23%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr align="left" valign="middle">
<td height="16" width="13%" bgcolor="#CCCCCC"> </td>
<td height="16" width="87%" bgcolor="#F6F6F6">upload_5xsoft的对象</td>
</tr>
</table>
如定义一个上传对象 
 
<% 
set upload=new upload_5xsoft 'upload就是一个对象 
%>
<table width="96%" border="1" cellspacing="0" cellpadding="10" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr bgcolor="#F6F6F6">
<td colspan="3" height="24">upload_5xsoft 对象成员</td>
</tr>
<tr align="left" valign="top">
<td rowspan="9">file</td>
<td height="41" colspan="2">文件对象集,(是个dictionary对象) 
</td>
</tr>
<tr align="left" valign="top">
<td height="20" colspan="2">文件对象成员:</td>
</tr>
<tr align="left" valign="top">
<td height="20" width="17%">Count</td>
<td height="20" width="66%">属性,文件表单的个数</td>
</tr>
<tr align="left" valign="top">
<td height="20" width="17%">FileName</td>
<td height="20" width="66%">属性,上传文件的名字</td>
</tr>
<tr align="left" valign="top">
<td height="20" width="17%">FileSize</td>
<td height="20" width="66%">属性,上传文件的大小(为0是表示没有文件)</td>
</tr>
<tr align="left" valign="top">
<td height="20" width="17%">FilePath</td>
<td height="20" width="66%">属性,上传前文件所在的路径</td>
</tr>
<tr align="left" valign="top">
<td height="20" width="17%">FormName</td>
<td height="20" width="66%">属性,文件表单的名字</td>
</tr>
<tr align="left" valign="top">
<td height="19" width="17%">SaveAs</td>
<td height="19" width="66%">方法,储存上传后文件,有一个参数,路径要为真实路径如:</td>
</tr>
<tr align="left" valign="top">
<td height="118" width="17%">例子:</td>
<td height="118" width="66%">set file=upload.file("file1")
'file1为表单名 
 
response.write " 文件名:"&file.FileName 
 
response.write " 文件大小:"&file.FileSize 
 
response.write " 文件路径:"&file.FilePath 
 
file.saveAs Server.mappath("/1.jpg") 
 
set file=nothing</td>
</tr>
<tr align="left" valign="top">
<td height="86" rowspan="5">form</td>
<td height="20" colspan="2">表单数据集,(是个dictionary对象)用来代替 Request.Form</td>
</tr>
<tr align="left" valign="top">
<td height="20">count</td>
<td height="20">属性,表单数</td>
</tr>
<tr align="left" valign="top">
<td height="20">exists</td>
<td height="20">方法,检查是否有指定的表单名</td>
</tr>
<tr align="left" valign="top">
<td height="9" colspan="2">更多的用法可看 vbscript 的dictionary对象帮助</td>
</tr>
<tr align="left" valign="top">
<td height="108">例子:</td>
<td height="108"> 
'得到text1表单的数据,uplaod就是一开始创建的对象 
 
sText=upload.form("text1") </td>
</tr>
<tr align="left" valign="top">
<td height="86">Version</td>
<td height="108" colspan="2">属性,upload_5xsoft类的版本号,如: 
 
response.write upload.Version</td>
</tr>
</table>
 

<a name="example"></a>
<table width="23%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr align="left" valign="middle">
<td height="16" width="13%" bgcolor="#CCCCCC"> </td>
<td height="16" width="87%" bgcolor="#F6F6F6">使用示例</td>
</tr>
</table>
1.上传一个jpg文件的示例: 
 
文件1: upload.htm
<html><title>example</title> 
<body> 
<form name="form1" method="post" action="upload.asp"
enctype="multipart/form-data"> 
<input type=file name="file1"> 
<input type=submit name="submit" value="提交"> 
</form> 
</body> 
</html> 
 
文件2: upload.asp 
 
<html><title>example</title> 
<body> 
 
<% 
set upload=new upload_5xsoft 
set file=upload.file("file1") 
if file.fileSize>0 then 
file.saveAs Server.mappath("temp.jpg") 
response.write " 上传文件:"&file.FileName&"
=> temp.jpg OK!" 
response.write " 文件大小:"&file.FileSize 
set file=nothing 
end if 
set upload=nothing 
%></body> 
</html> 
 
2.列表出有文件表单(多文件上传) 
<html><title>example</title> 
<body> 
 
<% 
set upload=new upload_5xsoft 
for each formName in upload.file 
set file=upload.file(formName) 
if file.FileSize>0 then 
 file.SaveAs Server.mappath(file.FileName) 
 response.write file.FilePath&file.FileName&" ("&file.FileSize&")
=> " 
 response.write file.FileName&" 成功! " 
end if 
set file=nothing 
next 
set upload=nothing 
%> 
 
 
你还可能直接使用作者写好了的上传程序在example目录中 
 
<a href="upclass.zip">立即下载</a> 
 
若程序有问题,请写作者联系 <a href="mailto:getc@163.com">getc@163.com</a> 
<div align=right>稻香老农 2001年 4月19日</div>
</body>
</html>
<xmp style="visibility:hidden">

CityHost 2001-08-17

打赏
举报

这段代码不错
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 稻香老农制作 http://www.5xSoft.com/
'
'''''''''''''''''''''''''''''''''''''''''''''''''

dim upfile_5xSoft_Stream

Class upload_5xSoft

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="化境编程界HTTP上传程序 Version 1.0"
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
while iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,"""")
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""")
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.add mFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end if
form.Add mFormName,mFormValue
end if

iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
End Sub

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_5xSoft_Stream.EOS then Exit for
c=ascB(upfile_5xSoft_Stream.Read(1))
If c > 127 Then
if upfile_5xSoft_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function

Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
if i>upfile_5xSoft_Stream.size then exit Function
upfile_5xSoft_Stream.Position=i-1
if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_5xSoft_Stream.EOS then
inString=0
Exit for
end if
if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString<>0 then Exit Function
end if
next
End Function

Private Sub Class_Terminate
form.RemoveAll
file.RemoveAll
set form=nothing
set file=nothing
upfile_5xSoft_Stream.close
set upfile_5xSoft_Stream=nothing
End Sub

Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function

Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function

Private function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class

Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
End Sub

Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=0
end function
End Class
</SCRIPT>

最近做个上传整个文件夹的功能，这个东西看似简单，但以前没接触过，费了我好大力气。...选择了文件夹后，返回了所有文件路径和空文件夹路径，我需要采用自动生成input表单来传递上传文件信息，空文件夹采用后台创...

使用模板实现ASP代码与页面分离　每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历：ASP代码与页面HTML混淆难分，业务逻辑与显示方式绞合，使得代码难以理解、难以修改；程序编写必须在美工之后...

前端时间在论坛里回了fins的一个帖子([url]...我现在使用的版本是1.2(免费版),我的实现也大部分基于这个免费版,有哪位老兄能提供一份专业版的话更好了！ 1.2免费版中的一些功能其实是1.1专业版中...

还有就是只能看应该看的邮件，不能看到不应该看的邮件，得有适当的保密机制才可以，接着就是评论功能，这个也需要稳定好用，附件也可以选择在数据库里或者直接以文件的方式保存。我们开发人员的通病是，你让我开发...

#客户端上传文件大小控制 client_max_body_size 8m; #打开gzip压缩 #gzip on; #设定负载均衡的服务器列表 #upstream mysvr { # #weigth参数表示权值，权值越...