推荐:ASP初学者常用源代码总结篇(5)_ASP教程
推荐: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.读文件最后一行的函数:
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
分享:asp当中判断函数一览最新的WEB源码下载,马上去看看... 商业源码热门下载www.chinaz.com <1>IsArray 函数 返回 Boolean 值指明某变量是否为数组。 语法 IsArray(varname) varname 参数可以是任意变量
- 相关链接:
- 教程说明:
ASP教程-推荐:ASP初学者常用源代码总结篇(5)。