仓酷云

标题: ASP编程：asp中经常使用的文件处置函数 [打印本页]

作者: 逍遥一派 时间: 2015-1-16 22:43
标题: ASP编程：asp中经常使用的文件处置函数
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。　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
　　
　　%>
SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。

作者: 蒙在股里 时间: 2015-1-19 21:43
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 灵魂腐蚀 时间: 2015-1-26 22:39
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 不帅 时间: 2015-2-4 21:19
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 小魔女 时间: 2015-2-10 12:48
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 金色的骷髅 时间: 2015-3-1 10:39
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 愤怒的大鸟 时间: 2015-3-10 14:52
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 变相怪杰 时间: 2015-3-17 08:09
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 飘灵儿 时间: 2015-3-24 03:09
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

欢迎光临仓酷云 (http://ckuyun.com/)