Este tipo de código é usado principalmente quando não implementamos a função de design para gerar estática, mas queremos gerar temporariamente algumas páginas dinâmicas em estáticas, obter diretamente o conteúdo dinâmico e salvá-lo como estático
Copie o código do código da seguinte forma:
<!--#include file="admin_Checkuser.asp"-->
<%
chamar ConnectionDatabase()
dimstr,str_new
str=""
str_new=""
sqlx = "selecione o id do pedido Fl_Products por id desc"
definir rsx = conn.execute (sqlx)
faça enquanto não rsx.eof
str=str&rsx("id")&"|"
rsx.movenext:loop
rsx.fechar
sqlx = "selecionar id de Fl_News ordenar por id desc"
definir rsx = conn.execute (sqlx)
faça enquanto não rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext:loop
rsx.fechar
lugar=InStrRev(str,"|")
str=Esquerda(str,lugar-1)
lugar=InStrRev(str_new,"|")
str_new=Esquerda(str_new,lugar-1)
escurecer URL,cwww,agir
act=Trim(Request.QueryString("act"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm","Página inicial escrita com sucesso!"
MakeHtm cwww&"/about.asp","../about.htm","Perfil da empresa escrito com sucesso!"
MakeHtm cwww&"/contact.asp","../contact.htm","Entre em contato conosco escrito com sucesso!"
MakeHtm cwww&"/ry.asp","../ry.htm","Qualificações e honras escritas com sucesso!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","Entre em contato conosco escrito com sucesso!"
MakeHtm cwww&"/pro.asp","../pro.htm","Exibição do produto escrita com sucesso!"
MakeHtm cwww&"/news.asp","../news.htm","Gerar redação de workshop com sucesso!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","Informações de notícias escritas com sucesso!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","Rede de vendas escrita com sucesso!"
'Gerar produto
xstr=dividir(str,"|")
para i = 0 para ubound (xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Produto"&xstr(i)&"Escrito com sucesso!"
próximo
xstr=dividir(str_new,"|")
para i=1 para ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","Lista de notícias"&i&"Escrito com sucesso!"
próximo
xstr=dividir(str_new,"|")
para i = 0 para ubound (xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","Notícias"&xstr(i)&"Escreva com sucesso!"
próximo
Função BytesToBstr(corpo,Cset)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
Função MakeHtm(curl,turl,mess)
Definir xml = Server.CreateObject("Microsoft.XMLHTTP")
'Substitua o seguinte endereço pelo endereço do arquivo da sua página inicial. Certifique-se de usar o caminho absoluto no início. Você não pode escrever um caminho relativo.
xml.Open "GET", curl, Falso
xml.Enviar
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Definir xml = Nada
'substituir
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 = substituir(BodyText,"index.asp","index.htm")
BodyText=replace(BodyText,"about.asp","about.htm")
BodyText=replace(BodyText,"pro.asp","pro.htm")
BodyText = substituir(BodyText,"notícias.asp","notícias.htm")
BodyText = substituir(BodyText,"liuyan.asp","liuyan.htm")
BodyText = substituir(BodyText,"ry.asp","ry.htm")
BodyText=substituir(BodyText,"xinwen.asp","xinwen.htm")
BodyText=substituir(BodyText,"contact.asp","contact.htm")
Dim fso, MeuArquivo
Definir fso = CreateObject("Scripting.FileSystemObject")
Definir MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MeuArquivo.WriteLine(BodyText)
MeuArquivo.Fechar
resposta.Escrever bagunça
resposta.Escreva "<br>"
Função final
Função pública RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg: Definir oTempReg = Novo RegExp
Com oTempReg
.IgnoreCase = Verdadeiro
.Global = Verdadeiro
.Pattern = sPatrn
RegReplace = .Replace(sContent, sNewStr)
Terminar com
Definir oTempReg = Nada
Função final
chamar CloseDatabase()
%>
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Documento sem título</title>
<estilo>
body,td{família de fontes:Verdana, Arial, Helvetica, sans-serif;
tamanho da fonte: 10,5pt;}
</estilo>
</head>
<corpo>
</body>
</html>
de iisboy