asp实现上传功能的源码演示(简单易懂)

asp无组件上传图片的源码分析及下载

要实现图片的上传功能其实非常简单，只需要四个文件与一个文件夹即可实现。

第一个文件： 这个文件的源代码如下：

说明：这个文件将引用一个名为upload_的文件也就是下面要讲的第二个文件作为框架，同时这里传递一个PhotoUrlID参数给pload_这个文件的form1表单中的名为PhotoUrlID的隐藏域名，其值为1

第二个文件：Upload_，这个文件的源代码如下：

说明：这个是作为第一个文件的框架文件，注意这里的FileName的文本框是用于接受上传成功之后图片的地址

第三个文件：Upfile_，其源代码如下：

<%

const upload_type=0 '上传方法：0=无惧无组件上传类，1=FSO上传 2=lyfupload，3=aspupload，4=chinaaspupload

dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize

dim EnableUpload

dim arrUpFileType

dim ranNum

dim msg,FoundErr

dim PhotoUrlID

msg=""

FoundErr=false

EnableUpload=false

%>

<%

if EnableUploadFile="No" then

"系统未开放文件上传功能"

else

select case upload_type

case 0

call upload_0() '使用化境无组件上传类

case else

' "本系统未开放插件功能"

'

end select

end if

%>

<%

sub upload_0() '使用化境无组件上传类

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

a(104857600) '取得上传数据,限制最大上传100M

if > 0 then '如果出错

select case

case 1

"请先选择你要上传的文件！"

case 2

"你上传的文件总大小超出了最大限制（200k）"

end select

end if

PhotoUrlID=Clng(trim(("PhotoUrlID")))

if PhotoUrlID>0 then

SavePath = "UploadFiles" '存放上传文件的目录

else

SavePath = "UploadFiles" '存放上传文件的目录

end if

if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)

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

set ofile=(formName) '生成一个文件对象

oFileSize=ze

if oFileSize<100 then

msg="请先选择你要上传的文件！"

FoundErr=True

else

select case PhotoUrlID

case 0

if oFileSize>(MaxFileSize*1024) then

msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"

FoundErr=true

end if

case 1

if oFileSize>(10000*1024) then

msg="文件大小超过了限制，最大只能上传10M的文件！"

FoundErr=true

end if

end select

end if

fileExt=lcase(t)

arrUpFileType=split("gif|jpg|bmp|png|swf|doc|rar|xls","|")'如需添加其它类型的文档请for i=0 to ubound(arrUpFileType)

if fileEXT=trim(arrUpFileType(i)) then

EnableUpload=true

exit for

end if

在这里添加文档后缀名

next

if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then

EnableUpload=false

end if

if EnableUpload=false then

msg="这种文件类型不允许上传！nn只允许上传这几种文件类型：" &

FoundErr=true

end if

strJS="" & vbcrlf

strJS

set file=nothing

next

set upload=nothing

end sub

%>

第四个文件upfile_,源代码如下

<%

Dim oUpFileStream

'----------------------------------------------------------------------

'文件上传类

Class UpFile_Class

Dim Form,File,Version,Err

Private Sub Class_Initialize

Version = "无惧上传类 Version V1.2"

Err = -1

End Sub

Private Sub Class_Terminate

'清除变量及对像

If Err < 0 Then

All

Set Form = Nothing

&

&

All

Set File = Nothing

Set oUpFileStream = Nothing

End If

End Sub

Public Sub GetData (MaxSize)

'定义变量

Dim RequestBinData,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo

Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName

Dim iFindStart,iFindEnd

Dim iFormStart,iFormEnd,sFormName

'代码开始

If ytes < 1 Then '如果没有数据上传

Err = 1

Exit Sub

End If

If MaxSize > 0 Then '如果限制大小

If ytes > MaxSize Then

Err = 2 '如果上传的数据超出限制

Exit Sub

End If

End If

Set Form = Object ("nary")

eMode = 1

Set File = Object ("nary")

eMode = 1

Set tStream = Object ("")

Set oUpFileStream = Object ("")

= 1

= 3

Read (ytes)

on = 0

RequestBinData =

iFormEnd =

bCrLf = ChrB (13) & ChrB (10)

'取得每个项目之间的分隔符

sSpace = MidB (RequestBinData,1, InStrB (1,RequestBinData,bCrLf)-1)

iStart = LenB (sSpace)

iFormStart = iStart+2

'分解项目

Do

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

= 1

= 3

on = iFormStart

tStream,iInfoEnd-iFormStart

on = 0

= 2

t = "gb2312"

sInfo = xt

'取得表单项目名称

iFormStart = InStrB (iInfoEnd,RequestBinData,sSpace)-1

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_Class

'取得文件属性

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

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

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

me = Mid (sFileName,InStrRev (sFileName, "")+1)

th = Left (sFileName,InStrRev (sFileName, ""))

t = Mid (sFileName,InStrRev (sFileName, ".")+1)

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

iFindEnd = InStr (iFindStart,sInfo,vbCr)

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

art = iInfoEnd

ze = iFormStart -iInfoEnd -2

me = sFormName

sFormName,oFileInfo

else

'如果是表单项目

= 1

= 3

on = iInfoEnd

tStream,iFormStart-iInfoEnd-2

on = 0

= 2

t = "gb2312"

sFormValue = xt

If (sFormName) Then

Form (sFormName) = Form (sFormName) & ", " & sFormValue

else

sFormName,sFormValue

End If

End If

iFormStart = iFormStart+iStart+2

'如果到文件尾了就退出

Loop Until (iFormStart+2) >= iFormEnd

RequestBinData = ""

Set tStream = Nothing

End Sub

End Class

'------------------------------------------------------------------------------

'文件属性类

Class FileInfo_Class

Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt

'保存文件方法

Public Function SaveToFile (Path)

if lcase((right(Path,3))<>lcase(FileExt)) then '经典的上传漏洞^_^

("")

end if

On Error Resume Next

Dim oFileStream

Set oFileStream = CreateObject ("")

= 1

= 3

on = FileStart

oFileStream,FileSize

File Path,2

Set oFileStream = Nothing

End Function

'取得文件数据

Public Function FileData

on = FileStart

FileData = (FileSize)

End Function

End Class

%>

除了上面四个文件夹之外还需要一个名为UploadFiles的文件夹，注意以上的四个文件与文件夹都是放在网站根目录下，也就是同极目录下的，如果目录不同级，请修改路径，同时本程序不仅可以包括jpg,png,gif等类型的图片，还可以上传word、EXECL、记事本、RAR压缩包等，当然上传对大小是有限的，只限定在200K以内，如果超过200K将会出错.