推荐:ASP初学者常用源代码总结篇(5)_ASP教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!

推荐:ASP编程中15个非常有用的例子
1.如何用Asp判断你的网站的虚拟物理路径 答:使用Mappath方法 以下为引用的内容: <p align="center"><font size="4

19.使用FSO写文件某一行的函数

  function FSOlinewrite(filename,lineNum,Linecontent)
  if linenum < 1 then exit function
  dim fso,f,temparray,tempCnt
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),1)
  if not f.AtEndofStream then
  tempcnt = f.readall
  f.close
  temparray = split(tempcnt,chr(13)&chr(10))
  if lineNum>ubound(temparray) 1 then
  exit function
  else
  temparray(lineNum-1) = lineContent
  end if
  tempcnt = join(temparray,chr(13)&chr(10))
  set f = fso.createtextfile(server.mappath(filename),true)
  f.write tempcnt
  end if
  f.close
  set f = nothing
  end function

20.使用FSO添加文件新行的函数

  function FSOappline(filename,Linecontent)
  dim fso,f
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),8,1)
  f.write chr(13)&chr(10)&Linecontent
  f.close
  set f = nothing
  end function

21.读文件最后一行的函数

  function FSOlastline(filename)
  dim fso,f,temparray,tempcnt
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),1)
  if not f.AtEndofStream then
  tempcnt = f.readall
  f.close
  set f = nothing
  temparray = split(tempcnt,chr(13)&chr(10))
  FSOlastline = temparray(ubound(temparray))
  end if
  end function
请作者联系本站,及时附注您的姓名。联系邮箱:mb5u#vip.qq.com(把#改为@)。

分享:asp当中判断函数一览
最新的WEB源码下载,马上去看看... 商业源码热门下载www.chinaz.com <1>IsArray 函数 返回 Boolean 值指明某变量是否为数组。 语法 IsArray(varname) varname 参数可以是任意变量

共5页上一页12345下一页
来源:模板无忧//所属分类:ASP教程/更新时间:2008-08-22
相关ASP教程