В этой статье сообщается несколько методов для ASP, чтобы генерировать HTML. Друзья, которые это нужно, могут относиться к деталям контента ниже.
Метод 1: FSO
Установить fs = createObject ("scripting.filesystemobject")
Newfile = server.mappath ("/asp/cap06/at/newfile.html")
'Создайте новый файл/newfile.html, если файл уже существует, перезаписывайте его
Установите a = fs.createtextfile (newfile, true)
Response.write "Новый файл был создан!"
A.Close
File = server.mappath ("newfile.html")
Установите txt = fs.opentextfile (file, 8, true) 'Открыть для файла, который может записать данные в конце
data1 = "Это предложение написано с использованием метода записи! ~~"
txt.writeline Data1
data2 = "Это предложение записано с использованием метода записи! ~~"
txt.write Data2
txt.close
Метод 2: xmlhttp
Set xml = server.createObject ("microsoft.xmlhttp")
'Замените следующий адрес на адрес файла вашей домашней страницы. Обязательно используйте абсолютный путь, начиная с http: //, и вы не можете написать относительный путь.
xml.open "Get", "http://www.phpup.com", false
Xml.send
BodyText = XML.ResponseBody
BodyText = byTestobstr (BodyText, "GB2312")
Установить XML = ничего
Dim fso, Myfile
Установить fso = createObject ("scripting.filesystemobject")
Установить myfile = fso.createTextFile (server.mappath ("aa.htm"), true)
Myfile.writeline (bodytext)
Myfile.close
другой:
1
Следующими примерами являются три динамики: index.asp? Id = 1/index.asp? Id = 2/index.asp? Id = 3/
Страницы генерируют ndex1.htm, index2.htm, index3.htm соответственно и расположены в корневом каталоге:
dim strurl, item_classid, id, имя файла, filepath, do_url, html_temp
Html_temp = "
Для i = 1 до 3
Html_temp = html_temp & "
Item_classid = i
Filename = "index" & item_classid & ". Htm"
Filepath = server.mappath ("/") & "/" & filename html_temp = html_temp & filepath & "
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
Dim objxmlhttp
Установить objxmlhttp = server.createObject ("microsoft.xmlhttp")
objxmlhttp.open "Get", Strurl, false
objxmlhttp.send ()
Dim binfiledata
binfiledata = objxmlhttp.responsebody
Dim objadostream
Установить objadoStream = server.createObject ("adodb.stream")
objadoStream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadostream.savetofile filepath, 2
objadostream.close ()
Следующий
Html_temp = html_temp & "
%>
Response.write ("Успешно сгенерированный файл:")
Response.write ("
")
Response.write html_temp
%>
Функция 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 = ничего
Конечная функция
%>
2
Общественный шаблон, tmpdata
Sub Of Ofile () 'Откройте файл и поместите содержимое файла в tmpdata
при ошибке резюме следующим
tmpdata = ""
Установить assstream = server.createObject ("adodb.stream")
Assstream.type = 2'file Type Text
Assstream.mode = 3 'Читать и написать
Assstream.open
Assstream.charset = "gb2312" '' набор символов
Assstream.loadfromfile (tempelatefile) 'загрузка из файла
Assp = astream.size
Если err.number0, тогда
xz = -18
response.write templatefile & "
"
err.clear
tmpdata = ""
еще
tmpdata = astream.readtext (assp)
конец, если
Конец суб
sub save_file ()
Ofile ()
Recfilen = server.mappath (dts)
Assstream.flush
Assstream.close
Assstream.type = 2
Assstream.mode = 3
Assstream.open
Assstream.charset = "gb2312"
Assstream.position = 0
Assstream.writetext tmpdata, 1'write data to Stream
Assstream.savetofile Recfilen, 2'save to file
Конец суб
function dts () 'генерирует случайное имя файла
Если Len (месяц (теперь ()))> 1 тогда
мм = месяц (теперь ())
еще
MM = "0" & Month (теперь ())
конец, если
Если Лен (день (теперь ()))> 1 тогда
d = день (теперь ())
еще
d = "0" & day (теперь ())
конец, если
Если Len (hour (own ()))> 1 тогда
h = час (теперь ())
еще
h = "0" & cour (теперь ())
конец, если
Если Лен (минута (теперь ()))> 1, тогда
m = минута (теперь ())
еще
m = "0" & minute (теперь ())
конец, если
Если Len (Second (ony ()))> 1, то
s = второе (теперь ())
еще
s = "0" & second (own ())
конец, если
Рандомизировать
Верхняя часть = 9999
Нижний обмен = 1000
rds = int ((верхняя часть - нижняя часть + 1) * rnd + нижний)
dts = "htm/" & year (теперь ()) & MM & D & H & M & S & RDS & ". HTM"
конечная функция
title = request.form ("title")
content = request.form ("content")
tmpdata = заменить (tmpdata, "
tmpdata = заменить (tmpdata, "
Templatefile = server.mappath ("Tempelate/1.htm") 'Файл шаблона
save_file ()
%>
Вышеуказанное представляет собой несколько методов генерации HTML по ASP. Я считаю, что вы узнали об этом. Для получения более связанного контента, пожалуйста, продолжайте обращать внимание на канал технологии Wuxin.