Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

pimenta

quanto ao código

Recommended Posts

Eu estou estudando um código de blog. Até agora não sei o que isso faz?

 

SQL = "Select top 50 * From posts order by id desc"

Set RS = ConnDB.Execute(SQL)

Function to_html(s_string)

to_html = Replace(s_string, vbcrlf, "<br>")

to_html = Replace(to_html, " ", "")

to_html = Replace(to_html, Chr(9),"  ")

End Function %>

 

Para que serve isso?

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Exibe somente os os ultimos 50 registros do banco em ordem decrescente!E ta fazendo um replace, substituindo valores que está no banco para exibir na tela!

Compartilhar este post


Link para o post
Compartilhar em outros sites

mkboy, deculpe-me pois não fui bem claro...Eu não entendia o que esta em vermelhovocê disse que ele faz replace. Mas quando retiro o código em vemelho nada muda... pelo menos não vejo nenhuma alteração... e isso me deichou confuso

Compartilhar este post


Link para o post
Compartilhar em outros sites

heheto_html = Replace(s_string, vbcrlf, "<br>") esta mudando o ENTER (vbcrlf) por quebra de linha (<br>)to_html = Replace(to_html, " ", "") esta mudando espaço ( ) por vazio ("")to_html = Replace(to_html, Chr(9),"  ")esta mudando a tecla tab (chr(9)) por 2 espaços (  )tendeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.