ASP编程：ASP无组件上传类的使用实例
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。上传|无组件|使用实例|上传|无组件|使用实例--------upload.htm-------------<scriptlanguage="javascript">
functioncheckFile(myForm)
{
if(myForm.File1.value==)returnfalse;
myForm.submit();
}
</script>
<formmethod="POST"name="upl"action="fjupload.asp"enctype="multipart/form-data">
<inputtype="file"name="File1"ID="File1">
<inputtype="button"name="upfiles"value="上传">
</form>
------------fjupload.asp-----------------
<!--#includefile="../../inc/config.asp"-->
<!--#includefile="../../inc/upload.inc"-->
<%
founderr=false
SavePath=Server.MapPath("?????")寄存上传文件的目次
callupload_0()利用化境无组件上传类
上传程序
subupload_0()利用化境无组件上传类
setupload=newupload_file创建上传工具
dimmsg存储上传过程当中产生的毛病信息
dimfilecount存储文件总数
dimupcount存储上传的文件总数
filecount=0
upcount=0
foreachformNameinupload.file列出一切上传了的文件
setfile=upload.file(formName)天生一个文件工具
if(file.filename"")then
founderr=false
filecount=filecount+1
setfile=upload.file(formName)天生一个文件工具
randomize
ranNum=int(900*rnd)+100
last_fn=hour(now())&minute(now())&second(now())&ranNum天生一段随机数附加到文件开端，以避免文件名抵触
ext_fn=file.fileext扩大名
filename=SavePath&""&file.smallfilename&"_"&last_fn
ifext_fn""thenfilename=filename&"."&ext_fn
iffso.FileExists(filename)then
msg=msg&"
"&file.filename&"文件已存在，请变动文件名"
founderr=true
endif
假如能够上传，就实行上传
iffounderrtruethen
file.SaveToFileFileName保留文件
if(err=0)then
upcount=upcount+1
msg=msg&"
"&file.filename&"上传乐成！"
假如是rar文件举行解紧缩
if(lcase(file.fileext)="rar")then
CallUnCompess(FileName,SavePath)解紧缩
endif
else
msg=msg&"
"&file.filename&"上传失利！"
endif
endif
endif
setfile=nothing
next
setfso=nothing
setupload=nothing
假如上传乐成的文件数少于上传的文件数就弹堕落误提醒
if(
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。
页:
[1]