仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 445|回复: 8
打印 上一主题 下一主题

[学习教程] ASP编程:asp中经常使用的文件处置函数

[复制链接]
逍遥一派 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:43:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 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:07 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-1-26 22:39:15 来自手机 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
不帅 该用户已被删除
地板
发表于 2015-2-4 21:19:04 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
小魔女 该用户已被删除
5#
发表于 2015-2-10 12:48:16 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
金色的骷髅 该用户已被删除
6#
发表于 2015-3-1 10:39:01 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
愤怒的大鸟 该用户已被删除
7#
发表于 2015-3-10 14:52:01 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
变相怪杰 该用户已被删除
8#
发表于 2015-3-17 08:09:43 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
飘灵儿 该用户已被删除
9#
发表于 2015-3-24 03:09:04 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-10 04:40

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表