**************************************************** *
'Имя функции: FSOFileRead
'Функция: используйте FSO для чтения функции содержимого файла.
'Параметр: имя_файла ---- имя файла
'Возвращаемое значение: содержимое файла
'********************************************** *
функция FSOFileRead (имя файла)
Тусклый objFSO, objCountFile, FiletempData
Установите objFSO = Server.CreateObject(Scripting.FileSystemObject)
Установите objCountFile = objFSO.OpenTextFile(Server.MapPath(имя файла),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Установить objCountFile=Ничего
Установить objFSO = Ничего
Конечная функция
'********************************************** *
'Имя функции: FSOlinedit
'Функция: используйте FSO для чтения определенной строки файловой функции
'Параметр: имя_файла ---- имя файла
'lineNum ---- номер строки
'Возвращаемое значение: содержимое строки в файле
'********************************************** *
функция FSOlinedit(имя файла,lineNum)
если linenum < 1, то выходим из функции
dim fso,f,temparray,tempcnt
установите fso = server.CreateObject(scripting.filesystemobject)
если не fso.fileExists(server.mappath(имя файла)) то выйдите из функции
set f = fso.opentextfile(server.mappath(имя файла),1)
если не f.AtEndofStream, то
tempcnt = f.readall
е.закрыть
установить f = ничего
temparray = Split(tempcnt,chr(13)&chr(10))
если lineNum>ubound(temparray)+1, то
функция выхода
еще
FSOlinedit = temparray(lineNum-1)
конец, если
конец, если
конечная функция
'**********************************************
'Имя функции: FSOlinewrite
'Функция: используйте FSO для записи определенной строки файловой функции
'Параметр: имя_файла ---- имя файла
'lineNum ---- номер строки
' Linecontent ---- содержимое
'Возвращаемое значение: нет
'********************************************** *
функция FSOlinewrite(имя файла,lineNum,Linecontent)
если linenum < 1, то выходим из функции
dim fso, f, temparray, tempCnt
установите fso = server.CreateObject(scripting.filesystemobject)
если не fso.fileExists(server.mappath(имя файла)) то выйдите из функции
set f = fso.opentextfile(server.mappath(имя файла),1)
если не f.AtEndofStream, то
tempcnt = f.readall
е.закрыть
temparray = Split(tempcnt,chr(13)&chr(10))
если lineNum>ubound(temparray)+1, то
функция выхода
еще
temparray(lineNum-1) = lineContent
конец, если
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(имя файла),true)
f.writetempcnt
конец, если
е.закрыть
установить f = ничего
конечная функция