18.使用FSO读取文件某一行的函数
FSOlinedit(filename,lineNum)
if linenum < 1 then exit
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("ing.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit
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))
if lineNum>ubound(temparray)+1 then
exit
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end
19.使用FSO写文件某一行的函数
FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("ing.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit
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
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
20.使用FSO添加文件新行的函数
FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("ing.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end
21.读文件最后一行的函数
FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("ing.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit
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
利用FSO取得BMP，