ASP上传文件

最新推荐文章于 2025-05-23 16:56:05 发布

原创最新推荐文章于 2025-05-23 16:56:05 发布 · 5.5k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#asp #upload #function #file #服务器 #class

ASP 专栏收录该内容

24 篇文章

订阅专栏

最简asp上传文件实例

附件:

shangchuan.rar(13K, 下载次数:490)

如果你想把自己机器的图片或者文件放到服务器上该怎么办呢？

可选有三种办法1、ftp上传，2、用u盘拷贝到服务器上，3、如果服务器支持asp上传功能，用网页浏览器将文件上传到服务器上。

今天我们讲解如何利用asp的上传功能将本地的文件上传到服务器上。

测试地址：http://www.eyetao.com/lession/shangchuan/index.asp

源代码在附件里

最简系统包括下面三个文件

upload.htm --上传口文件，选择本地文件

uploadimg.asp --上传程序控制文件

upload_5xsoft.inc --无组件上传类，此文件初学者不用学习，只要会用就可以了

****************************

upload.htm内容

*********

<html>

<head>

</head>

<body>

<tr>

</tr>

<tr>

</tr>

</form>

</table>

</body>

</html>

****************************

uploadimg.asp内容

*********

dim upload,file,filepath

filepath="UPLOAD/"

set upload=new upload_5xSoft ''建立上传对象

for each formName in upload.file ''列出所有上传了的文件

set file=upload.file(formName) ''生成一个文件对象

if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据

fname = file.filename

file.SaveAs Server.mappath(filepath&fname) ''保存文件

end if

set file=nothing

set upload=nothing ''删除此对象

********************************

upload_5xsoft.inc内容 --此文件内容不属于本演练程序内容，本演练应用此类的方法

*********

dim oUpFileStream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize

dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo

dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName

dim iFindStart,iFindEnd

dim iFormStart,iFormEnd,sFormName

Version="无组件上传类 Version 0.93"

set Form=Server.CreateObject("Scripting.Dictionary")

set File=Server.CreateObject("Scripting.Dictionary")

if Request.TotalBytes<1 then Exit Sub

set tStream = Server.CreateObject("adodb.stream")

set oUpFileStream = Server.CreateObject("adodb.stream")

oUpFileStream.Type = 1

oUpFileStream.Mode =3

oUpFileStream.Open

oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)

Response.Write "<font size=""2"">页面执行时间："&FormatNumber((Timer() -time1)*1000,3)&"毫秒</font><br>"

oUpFileStream.Position=0

RequestBinDate =oUpFileStream.Read

iFormStart = 1

iFormEnd = LenB(RequestBinDate)

bCrLf = chrB(13) & chrB(10)

sStart = MidB(RequestBinDate,1, InStrB(iFormStart,RequestBinDate,bCrLf)-1)

iStart = LenB (sStart)

iFormStart=iFormStart+iStart+1

while (iFormStart + 10) < iFormEnd

iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3

tStream.Type = 1

tStream.Mode =3

tStream.Open

oUpFileStream.Position = iFormStart

oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart

tStream.Position = 0

tStream.Type = 2

tStream.Charset ="gb2312"

sInfo = tStream.ReadText

'取得表单项目名称

iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)

iFindStart = InStr(22,sInfo,"name=""",1)+6

iFindEnd = InStr(iFindStart,sInfo,"""",1)

sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

'如果是文件

if InStr (45,sInfo,"filename=""",1) > 0 then

set oFileInfo=new FileInfo

'取得文件名

iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10

iFindEnd = InStr(iFindStart,sInfo,"""",1)

sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

oFileInfo.FileName=getFileName(sFileName)

oFileInfo.FilePath=getFilePath(sFileName)

'取得文件类型

iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14

iFindEnd = InStr(iFindStart,sInfo,vbCr)

oFileInfo.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)

oFileInfo.FileStart =iInfoEnd

oFileInfo.FileSize = iFormStart -iInfoEnd -3

oFileInfo.FormName=sFormName

file.add sFormName,oFileInfo

else

'如果是表单项目

tStream.Close

tStream.Type =1

tStream.Mode =3

tStream.Open

oUpFileStream.Position = iInfoEnd

oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-3

tStream.Position = 0

tStream.Type = 2

tStream.Charset ="gb2312"

sFormvalue = tStream.ReadText

form.Add sFormName,sFormvalue

end if

tStream.Close

iFormStart=iFormStart+iStart+1

wend

RequestBinDate=""

set tStream =nothing

End Sub

Private Sub Class_Terminate

if not Request.TotalBytes<1 then

form.RemoveAll

file.RemoveAll

set form=nothing

set file=nothing

oUpFileStream.Close

set oUpFileStream =nothing

end if

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

End Class

Class FileInfo

dim FormName,FileName,FilePath,FileSize,FileType,FileStart

Private Sub Class_Initialize

FileName = ""

FilePath = ""

FileSize = 0

FileStart= 0

FormName = ""

FileType = ""

End Sub

Public function SaveAs(FullPath)

dim oFileStream,ErrorChar,i

SaveAs=1

if trim(fullpath)="" or right(fullpath,1)="/" then exit function

set oFileStream=CreateObject("Adodb.Stream")

oFileStream.Type=1

oFileStream.Mode=3

oFileStream.Open

oUpFileStream.position=FileStart

oUpFileStream.copyto oFileStream,FileSize

oFileStream.SaveToFile FullPath,2

oFileStream.Close

set oFileStream=nothing

SaveAs=0

end function

End Class

</SCRIPT>

************************

此文所诉的内容是上传文件的最简化程式，和附件里的内容有所不同，附件的源代码加入了一些检测函数和获取普通表单的方法upload.form()，不过核心完全一样，请朋友们自己分析一下，学会本演练，asp一般的上传功能就基本掌握了