ASP编程：无组件上传文件，一个函数弄定

只看该作者 · 发表于 2015-1-16 23:08:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。函数|上传|无组件本函数是用“化境ASP无组件上传程序2.0”上传文件。
中心函数：
<%
==============================
函数名：upfile
感化:利用“化境上传组件”上传文件到服务器上
参数：　file1文件工具
savepath文件要保留的绝对路径,如"../"上一级上录，""同目次
maxsize同意上传文件的最年夜值,单元KB.为0不限巨细.
savetype同意上传文件的范例，0不限定,限定的格局.如.jpg|.bmp|.zip
前往值：前往上传信息，也可本人依据必要设定前往值
条件：setupload=newupload_5xsoft创建上传工具
setfile1=upload.file("file1")天生一个文件工具
Designer:suercool
functionupfile(file1,savepath,maxsize,savetype)
iffile1.filename=""andfile1.filesize<=0then
upfile="<scriptlanguage=javascript>alert(文件不存在!)</script>"
exitfunction
endif

ifmaxsize"0"andfile1.filesize>clng(maxsize)*1024then
upfile="<scriptlanguage=javascript>alert(文件巨细凌驾了限定，最年夜只能上传"&cstr(maxsize)&"Kb的文件！)</script>"
exitfunction
endif

dimfilename,filetype
filename=file1.filename
filetype=getfiletype(filename)

ifsavetype"0"then
dimarrtype,i,foundtype
arrtype=split(savetype,"|")
foundtype=false
fori=0toubound(arrtype)
iflcase(arrtype(i))=filetypethen
foundtype=true
exitfor
endif
next
ifnotfoundtypethen
upfile="<scriptlanguage=javascript>alert(文件格局不下确，只同意上传"&savetype&"格局的文件!)</script>"
exitfunction
endif
endif
randomize()
filepath=savepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd*9999)&filetype
file1.saveasserver.mappath(filepath)
iferr.description""then
upfile="<scriptlanguage=javascript>alert(呈现未知毛病，上传失利，请重试!)</script>"
err.clear
else
upfile="<scriptlanguage=javascript>alert(上传乐成!"+filepath+");</script>"
endif
setfile1=nothing
endfunction
===========
函数名：getfiletype
感化:失掉文件的范例
参数：　filename文件名
前往值：文件范例,无范例前往""
Designer:suercool
functiongetfiletype(filename)
dimi
fori=(len(filename)-1)to1step-1
ifmid(filename,i,1)="."then
getfiletype=lcase(mid(filename,i))
exitfunction
endif
next
getfile=""
endfunction
%>

实例(upfile3.asp)：

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

<body>
<formaction="upfile3.asp"name="frmupfile"id="frmupfle"enctype="multipart/form-data"method=post>
<inputtype=filename="file1">
<inputtype=submitvalue="上传"name=subupfile>
<inputtype=hiddenname="upfilename"value="">
<%setupload=newupload_5xsoft创建上传工具
ifupload.form("subupfile")="上传"then
setfile1=upload.file("file1")
dimre
savetype=".jpg|.htm|.bmp|"
re=upfile(file1,"","0",savetype)
response.writere
endif
%>
</form>
</body>
</html>

</p>对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。

只看该作者 · 发表于 2015-1-20 07:38:54

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-1-28 23:48:47

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

只看该作者 · 发表于 2015-2-2 13:23:08

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-2-7 21:04:31

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

只看该作者 · 发表于 2015-3-7 08:10:55

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-3-14 15:14:31

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-3-21 10:56:14

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：无组件上传文件，一个函数弄定

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子