ASP FSO相关的一些例子

　　使用FSO读取文件内容的函数

　　function FSOFileRead(filename)

　　Dim objFSO,objCountFile,FiletempData

　　Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

　　Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)

　　FSOFileRead = objCountFile.ReadAll

　　objCountFile.Close

　　Set objCountFile=Nothing

　　Set objFSO = Nothing

　　End Function

　　使用FSO读取文件某一行的函数

　　function FSOlinedit(filename,lineNum)

　　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

　　set f = nothing

　　temparray = split(tempcnt,chr(13)&chr(10))

　　if lineNum>ubound(temparray)+1 then

　　exit function

　　chfyr.com

　　else

　　FSOlinedit = temparray(lineNum-1)

　　end if

　　awciw.com

　　end if

　　end function