Способ 1: ФСО
Установите fs = CreateObject(Scripting.FileSystemObject)
NewFile=Server.MapPath(/asp/chap06/at/newfile.html)
'Создайте новый файл/newfile.html, если файл уже существует, перезапишите его
Установите a = fs.CreateTextFile(NewFile, True)
Response.Write новый файл создан!
а.закрыть
Файл=Server.MapPath(newfile.html)
Set txt=fs.OpenTextFile(File,8,True) 'Открываем файл, в конец которого можно записывать данные
data1=Это предложение написано с использованием метода WriteLine! ~~
txt.WriteLine данные1
data2=Это предложение написано с использованием метода Write! ~~
txt.Запись данных2
txt.Закрыть
Способ 2: XMLHTTP
<%
Установите xml = Server.CreateObject(Microsoft.XMLHTTP)
'Замените следующий адрес адресом файла вашей домашней страницы. Обязательно используйте абсолютный путь, начинающийся с http://. Вы не можете указать относительный путь.
xml.Открыть GET, http://www.vevb.com, False
xml.Отправить
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,gb2312)
Установить xml = Ничего
Тусклый fso, Мой файл
Установите fso = CreateObject(Scripting.FileSystemObject)
Установить MyFile = fso.CreateTextFile(server.MapPath(aa.htm), True)
MyFile.WriteLine(BodyText)
МойФайл.Закрыть
другой:
1
Следующий пример представляет собой три динамики index.asp?id=1/index.asp?id=2/index.asp?id=3/.
Page соответственно генерирует index1.htm, index2.htm, index3.htm и сохраняет их в корневом каталоге:
<%
dim strUrl, Item_Classid, id, FileName, FilePath, Do_Url, Html_Temp
Html_Temp=<UL>
Для я = от 1 до 3
Html_Temp = Html_Temp&<LI>
Item_Classid = я
ИмяФайла = Индекс&Item_Classid&.htm
FilePath = Server.MapPath(/)&/&FileName Html_Temp = Html_Temp&FilePath&</LI>
Do_Url = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Do_Url
тусклый objXmlHttp
установите objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.open GET,strUrl,false
objXmlHttp.send()
Тусклый бинфиледата
binFileData = objXmlHttp.responseBody
Тусклый объект objAdoStream
установите objAdoStream = Server.createObject(ADODB.Stream)
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath, 2
objAdoStream.Close()
Следующий
Html_Temp = Html_Temp&<UL>
%>
<%
Response.Write (Файл создан успешно: )
Ответ.Запись ( <BR> )
Response.Write Html_Temp
%>
Функция BytesToBstr(body,Cset)
тусклый объектный поток
установить objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
%>
2
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=936%>
<%
publictempelatefile, tmpdata
sub ofile()'откройте файл и поместите его содержимое в tmpdata
при ошибке продолжить дальше
tmpdata=
установите Astream=Server.CreateObject (Adodb.Stream)
Astream.type=2'Текст типа файла
Astream.Mode = 3'чтение-запись
Astream.open
Astream.CharSet = GB2312'Набор символов
Astream.LoadFromFile(tempelatefile)'Загрузить из файла
Assp=Astream.size
если номер ошибки<>0, то
хз=-18
ответ.Записать файл шаблона&<br>
ошибка.очистить
tmpdata=
еще
tmpdata = Astream.ReadText (Assp)
конец, если
конец субтитра
суб save_file()
файл()
Recfilen = server.MapPath (дтс)
Astream.Flush
Астрим.закрыть
Astream.type=2
Астрим.Режим = 3
Astream.open
Astream.CharSet = GB2312
Astream.position=0
Astream.Writetext tmpdata,1'Запись данных в поток
Astream.SaveToFile Recfilen,2'Сохранить в файл
конец субтитра
функция dts()' генерирует случайные имена файлов
если len(месяц(сейчас()))>1 тогда
мм=месяц(сейчас())
еще
мм=0&месяц(сейчас())
конец, если
если len(день(сейчас()))>1 тогда
d=день(сейчас())
еще
d=0&день(сейчас())
конец, если
если len(час(сейчас()))>1 тогда
ч=час(сейчас())
еще
ч=0&час(сейчас())
конец, если
если len(минута(сейчас()))>1, то
м = минута (сейчас())
еще
м=0&минута(сейчас())
конец, если
если len(секунда(сейчас()))>1 тогда
s=секунда(сейчас())
еще
s=0&секунда(сейчас())
конец, если
Рандомизировать
верхняя граница = 9999
нижняя граница = 1000
rds=Int((верхняя граница - нижняя граница + 1) * Rnd + нижняя граница)
dts=htm/&year(now())&mm&d&h&m&s&rds&.htm
конечная функция
title=request.Form(название)
контент = запрос.Форма (содержание)
tmpdata=replace(tmpdata,<title></title>,title)' для поддержки замены содержимого отправки
tmpdata=replace(tmpdata,<content></content>,content)
templatefile=server.MapPath(tempelate/1.htm)'файл шаблона
save_file()
%>