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

只看该作者 · 发表于 2015-1-16 22:11:18

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

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

x

帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。函数|上传|无组件<%
==============================
函数名：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>
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。

只看该作者 · 发表于 2015-1-18 21:55:16

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只看该作者 · 发表于 2015-1-25 21:34:49

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

只看该作者 · 发表于 2015-2-4 04:42:41

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

只看该作者 · 发表于 2015-2-9 15:54:46

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-2-27 09:24:57

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

只看该作者 · 发表于 2015-3-9 00:49:11

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

只看该作者 · 发表于 2015-3-16 19:53:30

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

仓酷云 · 发表于 2015-3-23 02:40:31

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

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

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

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

相关帖子