Recomendado: Como usar o ASP para remover três pontuações mais altas e três pontuações mais baixas Pergunta: Como usar o ASP para remover as três pontuações mais altas e três pontuações mais baixas? Solução: 1. Classifique a matriz inteira e exclua os três valores máximos e três valores mínimos nas duas extremidades (propostas por outro internautas!) 2. Selecione os três maiores números e três menores números, e
Todo mundo sabe que as páginas da Web estática HTML têm maior probabilidade de ser indexada pelos mecanismos de pesquisa. das páginas da web? Eu acho que todo mundo sabe disso também.
Para isso, decidi alterar os métodos anteriores de construção de sites e web design.
Método de substituição de etiqueta: esta é a definição que eu pessoalmente entendo.
O método de substituição de tags é colocar as tags definidas no modelo da web projetado e substituí -las pelas coisas que você precisa exibir. como
Arquivo de modelo 1
Salvamos este modelo na tabela de banco de dados tentável
<html>
<head>
<title> {$ sitename} </title>
</head>
<Body>
{$ Arc_list $}
</body>
<html>
No modelo acima, eu coloquei duas tags {$ sitename} nome do site e {$ arc_list $} lista de artigos e depois observe o código a seguir
<%
Dim RS, Sitename, Arc_list, FSO, MyFile, FilePath, html
Sitename = minha primeira página HTML gerada dinamicamente
Filepath = server.mappath (/html/index.html)
set rs = server.createObject (adodb.recordset)
Rs.Encenslect [Temp] de Tentable, Conn, 1,1
html = rs (temp) 'Leia o modelo de página da web
rs.close
html = substituir (html, {$ sitename}, sitename) 'substituir {$ sitename} tag com um sitename personalizado
html = html & substituir (html, {$ arc_list $}, get_arclist ()) 'substitua a tag {$ arc_list $} com a função Get_arClist () personalizada
Defina rs = nada
Conn.Close
Definir conn = nada
set fso = createObject (*** ing.filesystemObject) 'Crie um objeto de sistema de arquivos
Definir myFile = fso.createTextFile (filepath, true) 'Criar arquivo
MyFile.WriteLine (HTML) 'Write HTM Code to File
Myfile.close 'FILHE FILE
Definir myfile = nada 'libere o objeto de arquivo
Definir FSO = nada 'Libere o objeto do arquivo do sistema
Response.Write <*** Linguagem = 'Java ***'> Window.alert ('Geração de arquivos foi bem -sucedida'); </ ***>
Response.end ()
Função get_arclist ()
Dim STR, STR1
str1 =
str = <ul> {list} </ul>
Rs.Penselect Title, URL do arco
Embora não seja Rs.eof
str1 = str1 & <li> <a href = & rs (url) &> & rs (título) & </a> </li>
rs.movenext
Wend
rs.close
str = substituir (str, {list}, str1)
get_arclist = str
%>
Função final
O método acima é muito simples? . . Haha, você está trabalhando em uma empresa de construção de sites
Compartilhar: Use ASP para cumprir a função da tradução do artigo on -line Às vezes, eu quero fornecer suporte para várias linguagens para nossas páginas da web. . Lan.htm