仓酷云

标题: 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
　　
　　%>

asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

作者: 只想知道 时间: 2015-1-19 21:48
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 山那边是海 时间: 2015-1-27 11:23
不能只是将它停留在纸上谈兵的程度上。

作者: 分手快乐 时间: 2015-2-5 07:14
尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

作者: 精灵巫婆 时间: 2015-2-11 08:02
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 小魔女 时间: 2015-3-1 23:59
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 谁可相欹 时间: 2015-3-11 01:20
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

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

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

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