Этот вид кода чаще всего используется, когда мы не реализовали функцию проектирования для генерации статики, но хотим временно сгенерировать некоторые динамические страницы в статические. Мы можем напрямую получить динамический контент и сохранить его как статический.
Скопируйте код кода следующим образом:
<!--#include file="admin_Checkuser.asp"-->
<%
вызвать ConnectionDatabase()
дим ул,str_new
стр=""
str_new=""
sqlx="выберите идентификатор из заказа Fl_Products по идентификатору"
установите rsx=conn.execute(sqlx)
делай пока не rsx.eof
str=str&rsx("id")&"|"
rsx.movenext :цикл
rsx.close
sqlx="выбрать идентификатор из Fl_News в порядке id"
установите rsx=conn.execute(sqlx)
делай пока не rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext :цикл
rsx.close
место=InStrRev(str,"|")
ул = Влево (ул, место-1)
место=InStrRev(str_new,"|")
str_new = Влево (str_new, место-1)
тусклый URL, cwww, действуй
act=Trim(Request.QueryString("действовать"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm", "Домашняя страница успешно написана!"
MakeHtm cwww&"/about.asp","../about.htm","Профиль компании успешно написан!"
MakeHtm cwww&"/contact.asp","../contact.htm","Свяжитесь с нами написано успешно!"
MakeHtm cwww&"/ry.asp","../ry.htm","Квалификации и награды успешно написаны!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","Свяжитесь с нами и напишите успешно!"
MakeHtm cwww&"/pro.asp","../pro.htm","Отображение продукта успешно записано!"
MakeHtm cwww&"/news.asp","../news.htm","Успешно создайте текст семинара!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","Информация о новостях успешно написана!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","Сеть продаж написана успешно!"
'Создать продукт
xstr=split(str,"|")
для i=0 до ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"Записано успешно!"
следующий
xstr=split(str_new,"|")
для i=1 до ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","Список новостей"&i&"Написано успешно!"
следующий
xstr=split(str_new,"|")
для i=0 до ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"Пишите успешно!"
следующий
Функция BytesToBstr(body,Cset)
тусклый объектный поток
set 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 = ничего
Конечная функция
Функция MakeHtm(curl,turl,беспорядок)
Установите xml = Server.CreateObject("Microsoft.XMLHTTP")
'Замените следующий адрес адресом файла вашей домашней страницы. Обязательно используйте абсолютный путь в начале. Вы не можете указать относительный путь.
xml.Открыть «GET», завиток, ложь
xml.Отправить
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Установить xml = Ничего
'заменять
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText = заменить (BodyText, «index.asp», «index.htm»)
BodyText = replace(BodyText, «about.asp», «about.htm»)
BodyText = replace(BodyText, «pro.asp», «pro.htm»)
BodyText = replace(BodyText, «news.asp», «news.htm»)
BodyText = replace(BodyText, «liuyan.asp», «liuyan.htm»)
BodyText = replace(BodyText, «ry.asp», «ry.htm»)
BodyText = заменить (BodyText, «xinwen.asp», «xinwen.htm»)
BodyText = заменить (BodyText, «contact.asp», «contact.htm»)
Тусклый fso, Мой файл
Установите fso = CreateObject("Scripting.FileSystemObject")
Установить MyFile = fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(BodyText)
МойФайл.Закрыть
ответ.Пишите беспорядок
ответ.Напишите "<br>"
Конечная функция
Открытая функция RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg: Установить oTempReg = Новое регулярное выражение.
С oTempReg
.IgnoreCase = Истина
.Global=Истина
.Шаблон = sPatrn
RegReplace = .Replace(sContent, sNewStr)
Конец с
Установить oTempReg = Ничего
Конечная функция
вызвать CloseDatabase()
%>
<html>
<голова>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Документ без названия</title>
<стиль>
body,td{семейство шрифтов: Verdana, Arial, Helvetica, без засечек;
размер шрифта: 10,5 пт;}
</стиль>
</голова>
<тело>
</тело>
</html>
из iisboy