Компоненты FSO в ASP очень мощные. Если у вас нет этой функции, вы не знаете, кем станет ASP. На самом деле, друзья, которые хотят изучить программирование ASP, определенно будут подвергаться эксплуатации FSO. Следующий новый технологический канал предоставит вам полную коллекцию функций обработки файлов ASP FSO.
Кода -копия выглядит следующим образом:<%
'Создать функцию папки
Функция CreateFolder (strFolder) 'Параметр является относительным путем
'Первый выбор - определить, существует ли созданная папка уже
Dim StrtestFolder, Objfso
strtestfolder = server.mappath (strfolder)
Установить objfso = createObject ("scripting.filesystemobject")
'Проверьте, существует ли папка
Если не objfso.folderexists (StrtestFolder), тогда
'Если его не существует, создайте папку
objfso.createFolder (StrtestFolder)
Конец, если
Установить objfso = ничего
Конечная функция
'Удалить папку
Функция Delfolder (strfolder) 'Параметр является относительным путем
strtestfolder = server.mappath (strfolder)
Установить objfso = createObject ("scripting.filesystemobject")
'Проверьте, существует ли папка
Если objfso.folderexists (StrtestFolder), то
objfso.deleteFolder (StrtestFolder)
конец, если
Установить objfso = ничего
Конечная функция
'Создать текстовый файл
Функция CreateExtFile (FileUrl, FileContent) 'Параметр - это относительный путь и содержимое, которое нужно записать в файл
Установить objfso = server.createObject ("scripting.filesystemobject")
Set fout = objfso.createTextFile (server.mappath (fileUrl))
fout.writeline filecontent
fout.close
Установить objfso = ничего
Конечная функция
'Удалить файлы (подходящие для всех файлов)
Функция DelTextFile (FileUrl) 'Параметр является относительным путем
Установить objfso = createObject ("scripting.filesystemobject")
fileUrl = server.mappath (fileUrl)
Если objfso.filexists (fileUrl), то проверьте, существует ли файл
objfso.deletefile (server.mappath (fileurl))
конец, если
Установить objfso = ничего
Конечная функция
'Создать файлы изображений и сохранить поток данных изображения
Функция CreateImage (FileUrl, ImageContent) «Параметр» - это относительный путь и содержимое файла
Установите objstream = server.createObject ("adodb.stream") 'для создания объекта adodb.stream, ADO версия 2.5 или выше должна быть создана
objStream.Type = 1 'Open в двоичном режиме
objstream.open
objstream.write ImageContent 'Записать строки содержимого в буфер
objstream.savetofile server.mappath (fileUrl), 2 '-написанный контент для файла
objstream.close () 'Close Object
Установить objstream = ничего
Конечная функция
'Удаленно получить данные файла
Функция gethttppage (url)
'При ошибке резюме следующим
Dim http
Установить http = server.createObject ("microsoft.xmlhttp")
Http.open "Get", url, false
Http.send ()
Если http.readystate <> 4 то
Выходная функция
конец, если
gethttppage = bytestobstr (http.responsebody, "gb2312")
Установите http = ничего
Если err.number <> 0, тогда
gethttppage = "У сервера ошибка содержимого файла"
Err.clear
Конец, если
Конечная функция
Функция Bytestobstr (тело, CSET)
Dim objstream
Установить objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Тело
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readtext
objstream.close
установить objstream = ничего
Конечная функция
'Получите поток данных изображения
Функция getPic (URL)
при ошибке резюме следующим
Dim http
Установите http = server.createObject ("msxml2.xmlhttp") 'Используйте метод xmlhttp, чтобы получить содержимое изображения
Http.open "Get", url, false
Http.send ()
Если http.readystate <> 4 то
Выходная функция
конец, если
getPic = http. -responsebody
Установите http = ничего
Если err.number <> 0, тогда
getPic = "Сервер получил ошибку при получении содержимого файла"
err.clear
Конец, если
Конечная функция
'Open File (текстовая форма)
Функция OpenFile (FileUrl) 'Относительный путь файла
DIM FILENAME, FSO, HNDFILE
FILENAME = FileUrl
Filename = server.mappath (имя файла)
Установить objfso = createObject ("scripting.filesystemobject")
Если objfso.filexists (имя файла), то
Установить hndfile = objfso.opentextfile (имя файла)
Openfile = hndfile.readall
Еще
OpenFile = "ошибка чтения файла"
Конец, если
Установить hndfile = ничего
Установить objfso = ничего
Конечная функция
'Получите имя суффикса файла
function getFileExtName (имя файла)
Dim Pos
pos = instrrev (имя файла, ".")
Если POS> 0 тогда
getFileextName = mid (имя файла, pos+1)
еще
getFileExtName = ""
конец, если
конечная функция
%>
Выше приведено полная коллекция функций обработки файлов ASP FSO, представленных редактором канала Foxin Technology. Я считаю, что у всех есть определенное понимание. Foxin Technology Channel поделятся с вами большим количеством знаний, сделав вас лучше и лучше в этой отрасли.