ASP教程之asp 中经常使用的文件处置函数
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。函数asp中处置文件上传和删除经常用的自界说函数<%
一切自界说的VBS函数
functionDeleteFile(Filename)删除文件
ifFilename""then
Setfso=server.CreateObject("Scripting.FileSystemObject")
iffso.FileExists(Filename)then
fso.DeleteFileFilename
endif
setfso=nothing
endif
endfunction
functionCreateDIR(byvalLocalPath)创建目次的程序，假如有多级目次，则一级一级的创立
onerrorresumenext
LocalPath=replace(LocalPath,"","/")
setFileObject=server.createobject("Scripting.FileSystemObject")
patharr=split(LocalPath,"/")
path_level=ubound(patharr)
fori=0topath_level
ifi=0thenpathtmp=patharr(0)&"/"elsepathtmp=pathtmp&patharr(i)&"/"
cpath=left(pathtmp,len(pathtmp)-1)
ifnotFileObject.FolderExists(cpath)thenFileObject.CreateFoldercpath
next
setFileObject=nothing
iferr.number0then
CreateDIR=false
err.Clear
else
CreateDIR=true
endif
endfunction
functionSaveRandFileName(byvalszFilename)依据原文件名天生新的随机文件名
randomize
ranNum=int(90000*rnd)+10000
ifmonth(now)<10thenc_month="0"&month(now)elsec_month=month(now)
ifday(now)<10thenc_day="0"&day(now)elsec_day=day(now)
ifhour(now)<10thenc_hour="0"&hour(now)elsec_hour=hour(now)
ifminute(now)<10thenc_minute="0"&minute(now)elsec_minute=minute(now)
ifsecond(now)<10thenc_second="0"&second(now)elsec_second=minute(now)
fileExt_a=split(szFilename,".")
fileExt=lcase(fileExt_a(ubound(fileExt_a)))
SaveRandFileName=replace(replace(replace(now,":",""),"-",""),"","")&int(10*rnd)&"."&fileExt
GenerateRandomFileName=year(now)&c_month&c_day&c_hour&c_minute&c_second&"_"&ranNum&"."&fileExt
endfunction
functionjaron_replacer(strContent,start_string,end_string,replace_string)
CMS交换函数：源字符串，前部分，后部分，交换成的字符
前往被交换后的字符串
jaron_replacer=replace(strContent,mid(strContent,instr(strContent,start_string),instr(strContent,end_string)+len(end_string)-1),replace_string)
endfunction
functionreplaceplus(strContent,start_string,end_string,replace_string)
文档中，将一切入手下手，停止之间的一切字符删除
onerrorresumenext
MARKCOUNTS=ubound(split(strContent,start_string))
PRESTRING=strContent
fori=0toMARKCOUNTS
STARTMARK=instr(1,PRESTRING,start_string,1)
ifSTARTMARK=0thenexitfor
COMPMARK=instr(1,PRESTRING,end_string,1)+len(end_string)
VerString=mid(PRESTRING,STARTMARK,COMPMARK-STARTMARK)
PRESTRING=replace(PRESTRING,VerString,replace_string)
next
replaceplus=PRESTRING
iferr.number0thenerr.Clear
endfunction
%>
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。
页:
[1]