Re[3]: Заполнение многострочными даными контролов из скрипта
От: dimzon Россия http://dimzon541.narod.ru
Дата: 30.06.03 16:40
Оценка: 3 (1)
Здравствуйте, _man, Вы писали:

_>Здравствуйте, dimzon, Вы писали:


D>Ну вариант первый — генерируешь на asp клиентский скрипт.


_>Однозначно не подходит — строка получается порванная:


_>
_>arrMyData(0,0)="1 строка
_>2 строка
_>3 строка"
_>


А закодировать не можешь что-ли?
Если у тебя клиентский VBS используй такую функцию:
'---------------------------------------------------------------
' ПЕРЕКОДИРУЕТ ВХОДНУЮ СТРОКУ ДЛЯ ПОДСТАНОВКИ ВЫРАЖЕНИЯ  VBS
' [in]  sIn - входная строчка
function VBEncode(sIn)
    dim sOut    'результат
    sOut= sIn
    sOut = Replace(sOut, """", """""")
    sOut = Replace(sOut, vbNewLine , """&vbNewLine&""")
    sOut = Replace(sOut, vbLf , """&vbLf&""")
    sOut = Replace(sOut, vbCr , """&vbCr&""")
    VBEncode = sOut
end function


такой код
dim arrMyData(<%=nRecordCount%>,1)
<%while not objADODBRS.EOF %>
arrMyData(0,0)="<%=VBEncode(objADODBRS.Fields("a"))%>" 
arrMyData(0,1)="<%=VBEncode(objADODBRS.Fields("b"))%>" 
<%
objADODBRS.MoveNext
wend%>
....


Если клиентский код JavaScript напиши аналог VBEncode сам

Достаточно разжевал?
... << RSDN@Home 1.0 beta 7a >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.