[asp常用代码]文件上传代码

调用实例：

UploadDemo.html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

<head>

<title>Upload Demo</title>

<metaname="keywords"content="淄博本地信息网">

<metaname="author"content="淄博本地信息网">

</head>

<body>

<tablewidth="100%"cellpadding="0"cellspacing="0"border="0">

<tr>

<tdclass=tdTitle>类别图片：</td>

<td>

<tablewidth="100%"cellpadding="0"cellspacing="0"border="0">

<tr>

<tdwidth="210"><inputname="image"type="text"id="image"value="<%=image %>"style="width:200px"></td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

调用Upload.asp为显示浏览上传表单页面,代码如下:

Upload.asp

Dimuppath,filelx,formName,EditName

uppath="../"&request("uppath")&"/"'文件上传路径

filelx=request("filelx")'文件上传类型

formName=request("formName")'回传到上页面编辑框所在Form的Name

EditName=request("EditName")'回传到上页面编辑框的Name

sizeName=request("sizename")'回传到上页面编辑框的Name

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html; charset=gb2312">

<styletype="text/css">

<!--

body,form,td{

}{margin:1px 0;padding:0;}

input{

}{height:21px;}

-->

</style>

</head>

<bodybgcolor="#FFFFFF"text="#000000">

<formname="form1"method="post"action="uploadSave.asp"enctype="multipart/form-data">

<inputtype="hidden"name="filepath"value="<%=uppath%>">

<inputtype="hidden"name="filelx"value="<%=filelx%>">

<inputtype="hidden"name="EditName"value="<%=EditName%>">

<inputtype="hidden"name="sizeName"value="<%=sizeName%>">

<inputtype="hidden"name="FormName"value="<%=formName%>">

<inputtype="hidden"name="act"value="uploadfile">

<tablewidth="100%"cellspacing="0"cellpadding="3"align="center"height="22">

<tralign="center"valign="middle">

<tdalign="left">

<inputtype="file"name="file1"style="width:350px"value="">

<inputtype="submit"value="上传">

</td>

</tr>

</table>

</form>

</body>

</html>

保存上传文件的uploadSave.asp

uploadSave

<!--

*{font-size:12px;}

-->

</style>

DisableOutSite'禁从站外进入

uploadSave

SubDisableOutSite()

Dimserver_v1,server_v2

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

Ifmid(server_v1,8,len(server_v2))<>server_v2Thenresponse.Redirect("/")

Ifinstr(request.servervariables("http_referer"),"http://"&request.servervariables("host") )<1Thenresponse.Redirect("/")

End Sub

SubuploadSave

Dimupload,filepath,filelx,rename,formName

DimfileExt,ranNum,filename,todb_filename,i,upfile

Setupload=Newupload_file

Ifupload.form("act")<>"uploadfile"Then

Setupload=Nothing

ExitSub

EndIf

filepath=trim(upload.form("filepath"))

filelx=trim(upload.form("filelx"))

sizeName=trim(upload.form("sizeName"))

rename=trim(upload.form("rename"))

fileNameElement=trim(upload.form("editName"))

i=0

ForEachformName In upload.File

Setupfile=upload.File(formName)

fileExt=lcase(upfile.FileExt)'得到的文件扩展名不含有.

Ifupfile.fileSize<100Then

response.write"<span>请先选择你要上传的文件！　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

ExitSub

EndIf

'--------检查文件扩展名

If(filelx<>"swf")and(filelx<>"jpg")and(filelx<>"doc")Then

response.write"<span>该文件类型不能上传！　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

response.end

EndIf

Iffilelx="swf"Then

Iffileext<>"swf"and(fileext<>"rm")and(fileext<>"ram")and(fileext<>"wmv")and(fileext<>"asf")Then

response.write"<span>只能上传swf/rm/ram/wmv/asf文件！　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

response.end

EndIf

Iffilelx="doc"Then

Iffileext<>"doc"andfileext<>"pdf"andfileext<>"zip"andfileext<>"rar"Then

response.write"<span>只能上传doc,pdf,zip,rar格式文件！　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

response.end

EndIf

Iffilelx="jpg"Then

Iffileext<>"gif"andfileext<>"jpg"andfileext<>"png"AndfileExt<>"bmp"Then

response.write"<span>上传图片类型错误！　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

response.end

EndIf

'--------检查文件扩展名

'--------检查大小是否超过限制

DimmaxSize

SelectCasefilelx

Case"jpg","swf": maxSize=3000*1024

CaseElse: maxSize=2000*1024

EndSelect

Ifupfile.filesize>maxSizeThen

response.write"<span>文件大小超过限制　[ <a href=""javascript:history.go(-1);"">重新上传</a> ]</span>"

response.end

EndIf

'//--------检查大小是否超过限制

'--------处理重新命名上传文件的情况

Ifrename=""Then

randomize

ranNum=int(90000*rnd)+10000

filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt'程序写入的完整的路径及文件名

todb_filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt'写入数据库的文件名

Else

filename=filepath&rename'程序写入的完整的路径及文件名

todb_filename=rename'写入数据库的文件名

EndIf

'//--------处理重新命名上传文件的情况

Ifupfile.FileSize>0Then''如果 FileSize > 0 说明有文件数据

upfile.SaveToFile Server.mappath(FileName)

CallChkHackWord(FileName)

'response.write upfile.FileName&"　　上传成功!　　<br>"

'response.write "新文件名："&FileName&"<br>"

'response.write "新文件名已复制到所需的位置，可关闭窗口！"

oFrm=upload.form("FormName")

Iffilelx="swf"Then

response.write"<script>parent.document."&oFrm&".size.value='"&int(upfile.FileSize/1024)&"K'</script>"

EndIf

IfsizeName<>""Then

response.write"<script>parent.document."&oFrm&"."&sizeName&".value='"&int(upfile.FileSize/1024)&"KB'</script>"

EndIf

response.write"<script>parent.document."&oFrm&"."&fileNameElement&".value='"&todb_FileName&"'</script>"

EndIf

Setupfile=nothing

Setupload=nothing

End Sub

uploadSave.asp中使用无惧无组件上传类 :

upload_wj.asp

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

'转发时请保留此声明信息,这段声明不并会影响你的速度!

'******************* 无组件上传类 ********************************

'修改者:梁无惧

'电子邮件:yjlrb@21cn.com

'网站:http://www.25cn.com

'原作者:稻香老农

'原作者网站:http://www.5xsoft.com

'声明:此上传类是在化境编程界发布的无组件上传类的基础上修改的.

'在与化境编程界无组件上传类相比,速度快了将近50倍,当上传4M大小的文件时

'服务器只需要10秒就可以处理完,是目前最快的无组件上传程序,当前版本为0.96

'源代码公开,免费使用,对于商业用途,请与作者联系

'文件属性：例如上传文件为c:\myfile\doc.txt

'FileName 文件名字符串 "doc.txt"

'FileSize 文件大小数值 1210

'FileType 文件类型字符串 "text/plain"

'FileExt 文件扩展名字符串 "txt"

'FilePath 文件原路径字符串 "c:\myfile"

'使用时注意事项:

'由于Scripting.Dictionary区分大小写,所以在网页及ASP页的项目名都要相同的大小

'写,如果人习惯用大写或小写,为了防止出错的话,可以把

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

'改为

'(小写者)sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))

'(大写者)sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))

'**********************************************************************

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

dimoUpFileStream

Class upload_file

dimForm,File,Version

PrivateSubClass_Initialize

'定义变量

dimRequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo

dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName

dimiFindStart,iFindEnd

dimiFormStart,iFormEnd,sFormName

'代码开始

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

setForm=Server.CreateObject("Scripting.Dictionary")

setFile=Server.CreateObject("Scripting.Dictionary")

ifRequest.TotalBytes<1thenExitSub

settStream=Server.CreateObject("adodb.stream")

setoUpFileStream=Server.CreateObject("adodb.stream")

oUpFileStream.Type=1

oUpFileStream.Mode=3

oUpFileStream.Open

oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)

oUpFileStream.Position=0

RequestBinDate=oUpFileStream.Read

iFormEnd=oUpFileStream.Size

bCrLf=chrB(13)&chrB(10)

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

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

iStart=LenB (sStart)

iFormStart=iStart+2

'分解项目

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)-1

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

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

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

'如果是文件

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

setoFileInfo=newFileInfo

'取得文件属性

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)

oFileInfo.FileExt=GetFileExt(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-2

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-2

tStream.Position=0

tStream.Type=2

tStream.Charset="gb2312"

sFormvalue=tStream.ReadText

form.Add sFormName,sFormvalue

endif

tStream.Close

iFormStart=iFormStart+iStart+2

'如果到文件尾了就退出

loopuntil (iFormStart+2)=iFormEnd

RequestBinDate=""

settStream=nothing

End Sub

PrivateSubClass_Terminate

'清除变量及对像

ifnotRequest.TotalBytes<1then

oUpFileStream.Close

setoUpFileStream=nothing

endif

Form.RemoveAll

File.RemoveAll

setForm=nothing

setFile=nothing

End Sub

'取得文件路径

PrivatefunctionGetFilePath(FullPath)

IfFullPath<>""Then

GetFilePath=left(FullPath,InStrRev(FullPath,"\"))

Else

GetFilePath=""

EndIf

End function

'取得文件名

PrivatefunctionGetFileName(FullPath)

IfFullPath<>""Then

GetFileName=mid(FullPath,InStrRev(FullPath,"\")+1)

Else

GetFileName=""

EndIf

End function

'取得扩展名

PrivatefunctionGetFileExt(FullPath)

IfFullPath<>""Then

GetFileExt=mid(FullPath,InStrRev(FullPath,".")+1)

Else

GetFileExt=""

EndIf

End function

EndClass

'文件属性类

Class FileInfo

dimFormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt

PrivateSubClass_Initialize

FileName=""

FilePath=""

FileSize=0

FileStart=0

FormName=""

FileType=""

FileExt=""

End Sub

'保存文件方法

PublicfunctionSaveToFile(FullPath)

dimoFileStream,ErrorChar,i

SaveToFile=1

iftrim(fullpath)=""orright(fullpath,1)="/"thenexitfunction

setoFileStream=CreateObject("Adodb.Stream")

oFileStream.Type=1

oFileStream.Mode=3

oFileStream.Open

oUpFileStream.position=FileStart

oUpFileStream.copyto oFileStream,FileSize

oFileStream.SaveToFile FullPath,2

oFileStream.Close

setoFileStream=nothing

SaveToFile=0

end function

EndClass

转载于:https://www.cnblogs.com/s1ihome/archive/2008/11/18/1336061.html

[asp常用代码]文件上传代码相关推荐

asp.net实现ftp上传代码(解决大文件上传问题)
asp.net实现ftp上传代码(解决大文件上传问题) 参考文章: (1)asp.net实现ftp上传代码(解决大文件上传问题) (2)https://www.cnblogs.com/LYunF/ar ...
ASP.NET中常用的文件上传下载方法
ASP.NET中常用的文件上传下载方法文件的上传下载是我们在实际项目开发过程中经常需要用到的技术,这里给出几种常见的方法,本文主要内容包括: 1.如何解决文件上传大小的限制 2.以文件形式保存到服务 ...
.NET技术 ASP.NET中常用的文件上传下载方法(多文件上传)
文件的上传下载是我们在实际项目开发过程中经常需要用到的技术,这里给出几种常见的方法,本文主要内容包括: 1.如何解决文件上传大小的限制 2.以文件形式保存到服务器 3.转换成二进制字节流保存到数据库以 ...
php批量上传代码,文件批量上传_php文件上传代码（支持文件批量上传）
摘要腾兴网为您分享:php文件上传代码(支持文件批量上传),雨课堂版,洋游码头,学堂里,小度等软件知识,以及电脑硬件温度检测软件,日事清app,lol韩服语音包,绝地求生无后座力设置,金山u盘卫士, ...
php验证码大全(实例分享),php文件上传代码大全(实例分...-php验证码大全(实例分享)-php打印倒三角的实例代码_169IT.COM...
本节主要内容: php中的文件上传代码在我们平时的php编程中,涉及文件上传的内容很多,无论是简单的留言本程序,还是复杂的新闻系统,甚至是功能完备的cms系统中,都少不了文件上传的功能与代码. 本文 ...
php 上传文件模板,PHP文件上传代码用法详解
本文章是一篇适合于php入门者的文章告诉大如何编辑php文件上传代码,在编辑前我们需要了解几点,有及FILES全局变量的理解了,有需要学习php文件上传的朋友可参考本文章. php文件上传代码编写过程 ...
ThinkPHP6 API 单文件+多文件上传代码实现方式
ThinkPHP6 API 单文件+多文件上传代码实现方式开发中经常要用到接口上传单文件或多文件,做个备忘录,有需要的同学直接copy. 提交方式:form-data , 参数名 file[] T ...
[转]ASP.NET中常用的文件上传下载方法
1.如何解决文件上传大小的限制 2.以文件形式保存到服务器 3.转换成二进制字节流保存到数据库以及下载方法 4.上传Internet上的资源第一部分: 首先我们来说一下如何解决ASP.NET ...
[转载]ASP.NET Core文件上传与下载(多种上传方式)
ASP.NET Core文件上传与下载(多种上传方式) 前言前段时间项目上线,实在太忙,最近终于开始可以研究研究ASP.NET Core了. 打算写个系列,但是还没想好目录,今天先来一篇,后面在整理 ...

[asp常用代码]文件上传代码

[asp常用代码]文件上传代码相关推荐

最新文章

热门文章