ASP Funcion Javascript Variable con Comillas Dobles.

[ozk4r]

Hola favor vuestro apoyo:

Estoy llamando a una función en JVS enviando una variable desde ASP (content) el problema es que la variable content contiene comillas dobles las cuales impiden que se complete correctamente el script ASP y da errores. Si existiera alguna alternativa para correr esta función y meter dentro de ella la variable ASP que obtengo favor agradecer me la dieran. La idea de esto es para tener un TextArea con formato similar a este del foro.


<script languaje="Javascript">
<!--
area = new HyperTextArea("content", '<%= content%>', 520, 200,"");
//-->
</script>

[AlZuwaga]

No te entendí muy bien, pero intentá reemplazar:

<%= content%>

por:

<%= replace(content, """", "&quote;")%>

[ozk4r]

No funcionó a ver si ahora me explico mejor.

Estoy ocupando HyperTextArea que es una funcion en Javascript con la cual puedes crear textarea pero con la opción para otorgarle formato (WYSIWYG).

Bueno la verdad es que cuando no le asigno ningún valor al campo ningún problema, sino que este se presenta cuando le asigno el resultado de un recordset.

la llamada de la función se realiza de la siguiente manera:

<script languaje="Javascript">
<!--
area = new HyperTextArea("content", 'Parrafo', 520, 200,"");
//-->
</script>

bueno yo estoy reemplazando el texto parrafo por una variable la cual tiene almacenada el parrafo con formato que yo guardé anteriormente.

La idea es poder mostrar lo guardado para poder editarlo. pero no me aparece el cuadro.

adjunto codigo de la página.

<!--#Include File="header.asp"-->
<!--#Include File="conn_open.asp"-->
<script language="JavaScript" type="text/javascript" src="js/HyperTextArea.js"></script>
<%
'check to ensure user is admin. if not, redirect to error
'if MySecLev<5 then Response.Redirect "error_notadmin.asp"
%>
<div id="content">
<h2>Editar Articulo </h2>

<%
Dim MyArtID
MyArtId=Request.QueryString("ArtID")

Dim Title
Dim Keywords
Dim DateEntered
Dim Content
Dim Category1
Dim Category2
Dim Category3
Dim OS1
Dim OS2
Dim OS3

strSQL = "SELECT * " & _
"FROM tblKBMain WHERE ArtID=" & MyArtID
objConn.Open
Set rstResults=objConn.Execute(strsql)

Title=rstResults("Title")
Keywords=rstResults("Keywords")
DateEntered=rstResults("DateEntered")
Content=rstResults("Content")
Category1=rstResults("Category1")
Category2=rstResults("Category2")
Category3=rstResults("Category3")
OS1=rstResults("OS1")
OS2=rstResults("OS2")
OS3=rstResults("OS3")

objCOnn.Close
%><Form Action="admin_article_edit_save.asp" method=post id=form3 name=form3>
<p>
Title:<br />
<input type="text" name="Title" value="<% =Title %>" size="50" maxlength="254"><br />
Keywords:<br />
<input type="text" name="Keywords" value="<% =Keywords %>" size="50" maxlength="254"><br />
Date Entered:<br />
<input type="text" name="DateEntered" value="<% =DateEntered %>" size="20" maxlength="50"><br />
<table>
<tr>
<td>Categorias</td>
<td>-</td>
</tr>
<tr>
<td>
<select name="Category1">
<%
strSQL = "SELECT * FROM tblKBCategory ORDER BY Category"
objConn.Open
Set rstResults=objConn.Execute(strsql)
do while not rstResults.EOF
if rstResults("CatID")=Category1 then
%><option selected value="<% =rstResults("CatID") %>"><% =rstResults("Category") %></option>
<%
else
%><option value="<% =rstResults("CatID") %>"><% =rstResults("Category") %></option>
<%
end if
rstResults.Movenext
Loop
%></select></td>
<td>
<select name="OS1">
<%
strSQL = "SELECT * FROM tblKBOS ORDER BY OSInfo"
Set rstResults=objConn.Execute(strsql)
do while not rstResults.EOF
if rstResults("OSID")=OS1 then
%><option selected value="<% =rstResults("OSID") %>"><% =rstResults("OSInfo") %></option>
<%
else
%><option value="<% =rstResults("OSID") %>"><% =rstResults("OSInfo") %></option>
<%
end if
rstResults.Movenext
Loop
objConn.Close
%></select></td>
</tr>
</table>
<br />
<%
'*******************************
' added 2007/05/02
' edit of content to view correctly
'*******************************
Content=replace(Content,"<br>",vbcrlf)
Content= replace(content, """", "&quote;")
%>
Contenido:<br />

<script languaje="Javascript">
<!--
area = new HyperTextArea("content", '<%= content%>', 520, 200,"");
//-->
</script>
<br /><br />
<input type="hidden" value="<% =MyArtID %>" id=MyArtID name=MyArtID>
<input class="button" type="submit" value="Guardar" id=submit1 name=submit1 />
</p>
</form>
</div>
<!--#Include File="navmenu.asp"-->
<!--#Include File="footer.asp"-->

[u_goldman]

Prueba reemplazando los apostrofes por su equivalente en HTML:

Código:

area = new HyperTextArea("content", '<%= Replace(content, "'", "& #39;")%>', 520, 200,"");

Saludos

Edit: En el segundo termino de la funcion, tuve que separar el ampersand (&) del "palm sign" (#) pero va todo junto.

[AlZuwaga]

Te decía que no entendí muy bien por esta cita:

el problema es que la variable content contiene comillas dobles las cuales impiden que se complete correctamente el script ASP y da errores.

Que se complete el script ASP o JS?

Si es problemas de comillas dobles dentro de la variable content, con el replace anterior debería bastar. Aunque es muy probable que te esté jodiendo también los apóstrofes. Fijate así:


<%= content%>

por:

<%= replace(content, "'", "&quote;")%>


Ta.bién podrías ir "jugando" con los caracteres que te pueden hacer caer el script de la siguiente manera:

Código:

area = new HyperTextArea("content", ''", etc', 520, 200,"");

e ir eliminando 1 a 1 hasta dar con un script funcional (para saber qué caracteres debés eliminar del contenido de la variable content)


Edit: se me adelantó u_g