Заполнение многострочными даными контролов из скрипта - Веб программирование

Здравствуйте, _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 >>

Как реализовать сабж если данные берутся из базы данных через asp(php) и нужно передать не напрямую в контрол а через jscript?

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

_>Как реализовать сабж если данные берутся из базы данных через asp(php) и нужно передать не напрямую в контрол а через jscript?

Ну вариант первый — генерируешь на asp клиентский скрипт.
Например такого вида:

dim arrMyData(<%=nRecordCount%>,1)
<%while not objADODBRS.EOF %>
arrMyData(0,0)="<%=objADODBRS.Fields("a")%>" 
arrMyData(0,1)="<%=objADODBRS.Fields("b")%>" 
<%
objADODBRS.MoveNext
wend%>
....

И работаешь с ним на клиенте как хочешь.

Вариант второй — генеришь на сервере XML а с клиента его читаешь используя скажем MSXML2.DOMDocument. Идеология аналогичная Web-сервисам

... << RSDN@Home 1.0 beta 7a >>

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

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

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

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

D>Вариант второй — генеришь на сервере XML а с клиента его читаешь используя скажем MSXML2.DOMDocument. Идеология аналогичная Web-сервисам
Тоже не то.

D>А закодировать не можешь что-ли?
А вот это уже ответ. Через ж.. получится, но будет работать.

Может ещё варианты есть? Я тут походу сообразил что можно и скрытые контролы использовать но первый вариант побыстрее будет.
Вообще идея была для использования фреймовых структур не хотелось перерисовывать главное окно.

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

идея:

представляешь многострочную посылку примерно так:

<table id="specpost"><tr>
<td id="__sp_1">sdhskldjf </td>
<td id="__sp_2">sdhskldjf </td>
...
<td id="__sp_N">sdhskldjf </td>
</tr></table>

далее примерно так в js:

str = "";
counter = 1;
obj=document.all["__sp_1"];
while (obj != null)
{
   str += obj.innerText + "\n";
   counter++;
   objID = "__sp_" + counter;
   obj=document.all[objID];
}
alert (str);

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

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

U>идея:

U>представляешь многострочную посылку примерно так:

U>

U><table id="specpost"><tr>
U><td id="__sp_1">sdhskldjf </td>
U><td id="__sp_2">sdhskldjf </td>
U>...
U><td id="__sp_N">sdhskldjf </td>
</tr></table>
U>

U>далее примерно так в js:

U>

U>str = "";
U>counter = 1;
U>obj=document.all["__sp_1"];
U>while (obj != null)
U>{
U>   str += obj.innerText + "\n";
U>   counter++;
U>   objID = "__sp_" + counter;
U>   obj=document.all[objID];
U>}
U>alert (str);
U>

Это работать будет, но только под IE

... << RSDN@Home 1.0 beta 7a >>

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

_>Вообще идея была для использования фреймовых структур не хотелось перерисовывать главное окно.

Нормально все получится

Я тут код буду писать на VBScript (проще мне так), если что переведешь

Итак делаем фрейм в котором генерируешь такой код


<SCRIPT LANGUAGE=VBSCript>
SUB MyProc
    Dim arrData
    Redim arrData(1024,2)
    arrData(0,0)=...
    ....
    parent.<Имя главного фрейма, в который передаешь данные>.ObtainData(arrData)
END SUB
</SCRIPT>
<BODY OnLoad="MyProc()">
Типа пустая страница
</BODY>

А в главном фрейме объявляешь функцию

Sub ObtainData(arrDataFromServer)
    ' Делаю что-то с данными
End Sub

... << RSDN@Home 1.0 beta 7a >>

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

U>

U><table id="specpost"><tr>
U><td id="__sp_1">sdhskldjf </td>
U><td id="__sp_2">sdhskldjf </td>
U>...
U><td id="__sp_N">sdhskldjf </td>
</tr></table>
U>

U>далее примерно так в js:

U>

U>str = "";
U>counter = 1;
U>obj=document.all["__sp_1"];
U>while (obj != null)
U>{
U>   str += obj.innerText + "\n";
U>   counter++;
U>   objID = "__sp_" + counter;
U>   obj=document.all[objID];
U>}
U>alert (str);
U>

D>Это работать будет, но только под IE

если подправить document.all на document.getElementById(), тогда Opera6.0, Netscape6.0 и выше

... << RSDN@Home 1.0 beta 7a >>

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

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

U>

U><table id="specpost"><tr>
U><td id="__sp_1">sdhskldjf </td>
U><td id="__sp_2">sdhskldjf </td>
U>...
U><td id="__sp_N">sdhskldjf </td>
</tr></table>
U>

U>далее примерно так в js:

U>

U>str = "";
U>counter = 1;
U>obj=document.all["__sp_1"];
U>while (obj != null)
U>{
U>   str += obj.innerText + "\n";
U>   counter++;
U>   objID = "__sp_" + counter;
U>   obj=document.all[objID];
U>}
U>alert (str);
U>

D>Это работать будет, но только под IE

A>если подправить document.all на document.getElementById(), тогда Opera6.0, Netscape6.0 и выше

Тогда не будет в IE4

... << RSDN@Home 1.0 beta 7a >>

D>Это работать будет, но только под IE

A>если подправить document.all на document.getElementById(), тогда Opera6.0, Netscape6.0 и выше

D>Тогда не будет в IE4

А под Netscape4 вообще не будет

Не будем спорить, нам требования к броузерам неизвестно

... << RSDN@Home 1.0 beta 7a >>

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

D>Это работать будет, но только под IE

A>если подправить document.all на document.getElementById(), тогда Opera6.0, Netscape6.0 и выше

D>Тогда не будет в IE4

A>А под Netscape4 вообще не будет

A>Не будем спорить, нам требования к броузерам неизвестно

... << RSDN@Home 1.0 beta 7a >>

От:	dimzon	http://dimzon541.narod.ru
Дата:	30.06.03 16:40
Оценка:	3 (1)

	От:	_man
	Дата:	30.06.03 10:35
	Оценка:

От:	dimzon	http://dimzon541.narod.ru
Дата:	30.06.03 15:55
Оценка:

	От:	_man
	Дата:	30.06.03 16:33
	Оценка:

	От:	_man
	Дата:	30.06.03 16:56
	Оценка:

	От:	uzzy
	Дата:	01.07.03 02:59
	Оценка:

	От:	andik
	Дата:	01.07.03 08:38
	Оценка:

	От:	andik
	Дата:	01.07.03 08:59
	Оценка: