ASP编程：无组件上传文件，一个函数弄定
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)：
<!--#includeFILE="upload_5xsoft.inc"-->
<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的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
页:
[1]