[soul]

Formdan gelen bir stringi JavaScript' te kullanmak istiyorum.

mesela : document.write("<%=FormVerisi%>")

gibi.

Ancak bu işlemi yaparken JS' nin bilimum Expected hatalrından kurtulamadım.

Newline, tırnak gibi bir çok karakteri escape ile replace ettim ancak hala unuttuklarım var sanırım. Bunun için hazır bir fonksiyon yada replace edilecek karakterlerin tam bir listesi var mı ?

[soul]

Soruyu sormak için acele etmişim, tek tırnağı atladığım için kendimden utanıyorum

Lazım olur;
Kod

<% 
Dim txtarea, JsArr
JsArr = Array("\","\\",vbTab,"\t",Chr(13),"\n",Chr(10),"\n",")","\)","(","\(","}","\}","{","\{","/","\/","'","\'")
txtarea = MassClean(server.HTMLEncode(Request.form("txt")),JsArr)
Function MassClean(byVal Str, byVal Arr)
Dim i
If NOT isArray(Arr) Then Exit Function
For i = 0 to Ubound(Arr) Step 2
Str=Replace(Str,Arr(i),Arr(i+1))
Next
MassClean=Str
End Function
%>

[ssonmez]

Hani her müsibette bir hayır vardır derler ya. İyi ki ' işaretini unutmuşsunuzda, bizde bu kodla elde ettiğiniz son stringin kullanımı ile örnek verebilir misin diye sorabilmişiz. (Bir de iki dizi kullansak okunurluk artarmıydı ? )

<% 
Dim txtarea, JsArr1, JsArr2
JsArr1 = Array("\",vbTab,Chr(13),Chr(10),")","(","}","{","/","'")
JsArr2 = Array("\\","\t","\n","\n","\)","\(", "\}","\{","\/","\'")


txtarea = MassClean(server.HTMLEncode(Request.form("txt")),JsArr1,JsArr2)

Function MassClean(byVal Str, byVal Arr1,byVal Arr2 )
Dim i
If NOT( isArray(Arr1)) or NOT( isArray(Arr2)) Then Exit Function
For i = 0 to Ubound(Arr1) 
Str=Replace(Str,Arr1(i),Arr2(i))
Next
MassClean=Str
End Function
%>

[Scud]

bu da aynı işi yapan PHP deki kod. lazım olur belki :P

PHP Code:

<?=addslashes($_POST[txt])?>