仓酷云

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

[学习教程] ASP网站制作之ASP处置文件上传和删除经常用的自界说...

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

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

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

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
  
  %>
 
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!
只想知道 该用户已被删除
沙发
发表于 2015-1-19 21:48:21 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
山那边是海 该用户已被删除
板凳
发表于 2015-1-27 11:23:49 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
分手快乐 该用户已被删除
地板
发表于 2015-2-5 07:14:20 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
精灵巫婆 该用户已被删除
5#
发表于 2015-2-11 08:02:34 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
小魔女 该用户已被删除
6#
发表于 2015-3-1 23:59:14 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
谁可相欹 该用户已被删除
7#
发表于 2015-3-11 01:20:56 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
不帅 该用户已被删除
8#
发表于 2015-3-17 18:07:55 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
爱飞 该用户已被删除
9#
发表于 2015-3-24 17:08:52 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 01:45

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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