Ir para conteúdo
Fórum Script Brasil
  • 0

Função replace trocar Aspas simples por aspas duplas e <p> por &

Guest Carlinhos

Perguntado por Guest Carlinhos,

 Share

Pergunta

Guest Carlinhos

Guest Carlinhos

Postado
Postado

Oi pessoa sou novato em ASP e estou aprendendo no tapa, mas não sei onde e como colocar essas funções :

texto = Request.Form("test1")

texto = replace(texto, chr(10)," ")

texto = replace(texto, chr(13)," ")

texto = replace(texto, "<p>","<br />")

texto = replace(texto, "</p>","<br />")

texto = replace(texto, chr(34),"&quot;")

if corpo <> "" then

corpo = replace(corpo, chr(10)," ")

corpo = replace(corpo, chr(13)," ")

corpo = replace(corpo,"&quot;","'")

corpo = replace(corpo, chr(34),"'")

End if

------------------------------------------------------------------

Nesse código abaixo, consegui colocar o FCKeditor mas essas funções não tenho nem ideia.

<!-- #INCLUDE file="fckeditor.asp" -->

<%If session("usr_log_ok")="" Then

Response.Write "Você está Logado no sistema!"

Response.write "<a href='login.asp'>Clique aqui para se logar.</a>"

Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")

Response.End()

End If

set conexao = Server.CreateObject("ADODB.Connection")

conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/dados.mdb")&";"

conexao.open

SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")

Set RS = Conexao.Execute(SQL)

If rs.eof then

Response.write "Ocorreu um erro ao se logar no sistema!"

Else %>

<title>:: Web 3 ::</title>

</head>

<STYLE type=text/css>

BODY

{

font-family: verdana;

font-size: 12px;

color: #000000;

scrollbar-face-color: #DEE3E7;

scrollbar-highlight-color: #FFFFFF;

scrollbar-shadow-color: #DEE3E7;

scrollbar-3dlight-color: #D1D7DC;

scrollbar-arrow-color: #006699;

scrollbar-track-color: #EFEFEF;

scrollbar-darkshadow-color: #98AAB1;

}

BODY {

BACKGROUND-REPEAT: repeat-y

}

TD {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

P {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

LI {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

A {

text-decoration: none;

color: #000000;

}

A:Hover {

text-decoration: none;

color: #000000;

}

IMG {

border-color: #4D4B4D;

}

A:Visited {

text-decoration: none;

color: #4D4B4D;

}

A:Active {

text-decoration: none;

color: #4D4B4D;

}

</STYLE>

<script language="JavaScript" type="text/JavaScript">

function ValidaCadastro(form)

{

if (form.frm_login.value == "")

{

alert("Login não Informado!");

return false;

}

else if (form.frm_senha.value == "")

{

alert("Senha não informada!");

return false;

}

}

</script>

<style type="text/css">

<!--

.link2:link {

font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #FFFFFF;

text-decoration: none;

}

.link2:visited {

font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #FFFFFF;

text-decoration: none;

}

.link2:hover {

font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #FFFFFF;

text-decoration: underline;

}

-->

</style>

<body leftmargin="0" topmargin="0" bgcolor="#F6F6F6">

<table cellpadding="0" cellspacing="0">

<tr>

<td background="img2/top.gif" width="778" height="134" valign="top">

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<br>

<table cellpadding="0" cellspacing="0">

<tr>

<td width="20">&nbsp;</td>

<td><table cellpadding="0" cellspacing="0">

<tr>

<td><strong><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></strong></td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

<br><br><Center>

<form name="form1" action="addnotfoto1.asp" method="post" enctype="multipart/form-data">

<table cellpadding="0" cellspacing="0">

<tr>

<td width="628" colspan="4">

<span style="font-size:12pt;"><b><br><%end if%></b></span></font></p>

</td>

</tr>

<form name="form1" action="addnotfoto1.asp" method="post" enctype="multipart/form-data">

<tr>

<td width="60"><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Título:</b></span></font></td>

<td width="564" colspan="3"><input type="text" name="tópico" size="80"></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Manchete</b></span></font></p>

</td>

<td width="564" colspan="3">

<p><textarea name="Resumo" rows="3" cols="72"></textarea></p>

</td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Noticia</b></span></font></p>

</td>

<td width="564" colspan="3">

<p> <%Dim sBasePath

sBasePath = Request.ServerVariables("PATH_INFO")

sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )

Dim oFCKeditor

Set oFCKeditor = New FCKeditor

oFCKeditor.BasePath = sBasePath

If Request.QueryString("Skin") <> "" Then

oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/" & Server.HTMLEncode( Request.QueryString("Skin") ) + "/"

End If

oFCKeditor.Value = " "

oFCKeditor.Create "Noticia"

%>

</td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Classe</b></span></font></p>

</td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b><select size="1" name="Classe">

<option value="Esportes">Esportes</option>

<option value="Politica">Politica</option>

<option value="Economia">Economia</option>

<option value="Promocoes">Promoções</option>

<option value="Eventos">Eventos</option>

<option value="Programas">Programação</option>

<option value="Menu">Menu</option>

</select> </td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Classe1</b></span></font></p>

</td>

<td width="564" colspan="3"><font face="Tahoma"><span style="font-size:8pt;"><b><select size="1" name="Classe1">

<option value="Esportes">Esportes</option>

<option value="Politica">Politica</option>

<option value="Economia">Economia</option>

<option value="Promocoes">Promoções</option>

<option value="Eventos">Eventos</option>

<option value="Programas">Programação</option>

<option value="Menu">Menu</option>

</select> &nbsp;</b></span></font></td>

</tr>

<tr>

<td width="60">

<p><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Fonte</b></span></font></p>

</td>

<td width="564" colspan="3"><input type="text" name="Autor" size="40"></td>

</tr>

<tr>

<td width="60"><font face="Tahoma" color="navy"><span style="font-size:10pt;"><b>Foto

Pequena</b></span></font></td>

<td width="222"><input type="file" name="foto" size="24"></td>

<td width="85"><b><font face="Tahoma" color="navy"><span style="font-size:9pt;">Foto

Grande</span></font></b></td>

<td width="249"><input type="file" name="foto1" size="25"></td>

</tr>

<tr>

<td colspan="4" width="628">

<p align="center"><input type="submit" name="submit" value="Enviar notícia">

</td>

</tr>

</form>

</table>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
raphanasc

raphanasc

Postado
Postado

Me parece que você tem 2 funcoes ai:

Transforme elas em funcoes

As funcoes em asp são definidas por um nome que seria a variavel de saida ou seja

Function NomeFuncao(entrada)
entrada = "OI"
NomeFuncao = entrada 'Aqui eu estou atribuindo o a entrada como retorno
End Function
Fazendo isso ela sera com um codigo asp, coloque em qualquer lugar que a pagina conseguira ler. para utilizar é só chamar 
recebe = NomeFuncao(variavel)

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Carlinhos

Guest Carlinhos

Postado
Postado

Oi cara eu tentei fazer mas ainda não consewgui eu to começando asp agora, sou novato mesmo e não sei muito de funções se alguém puder colocar essa função replace nesse código me ajudaria muito.

Sei que aqui não se dá o peixe e sim ensina a pesca, mas minha vara de pesca quebrou.

e eu estou sem anzou.

Valeu!

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado
Oi cara eu tentei fazer mas ainda não consewgui eu to começando asp agora, sou novato mesmo e não sei muito de funções se alguém puder colocar essa função replace nesse código me ajudaria muito.

Sei que aqui não se dá o peixe e sim ensina a pesca, mas minha vara de pesca quebrou.

e eu estou sem anzou.

Valeu!

consulte o tópico de tutorias e de funções ai em cima.

vai ter essas funçõies para você treinar e praticar...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...