src.Request_Content(0) не работает через AJAX и еще пару вопросов.

NetWood · 12.01.2017

Всем привет! Давно я не брал в руки шашку).

Жили, не тужили, ломились напрямую к серверу агентом из WQS с перезагрузкой web страницы и все замечательно работало. Моргало, правда). Но задумалось тут полностью перейти на jQuery ajax. И началось...
1. Не работает src.Request_Content(0) при запуске из конструкции JS $.post('UpdateCart?OpenAgent'. Request_Content тупо пустой. Я конечно, запихнул args через argsArray = explode(src.Query_String(0), "&"), и сделал так $.post('UpdateCart?OpenAgent'+args, но там есть ограничение по размеру урла. Его можно подкрутить через настройку в сервере по ~~link removed~~, но как вернуть Request_Content?

2. Был старый агент на LS пускаемый по тупо-сабмиту на форме и в котором работала конструкция:
Print(script common.js)
Print(script _doSetCookie('shopcart') & Cstr(userdoc.UniversalID)
(я не смог загрузить ее полным текстом в пост из-за какого-то дебильного алерта на форуме с ахтунгом "This website is using a security service to protect itself from online attacks.")
Куки отказались писаться при запуске через AJAX вот так $.post('AddToCart?OpenAgent', Пришлось переписывать агент LS на $.post('AddToCartAJAX?OpenAgent'+args + '&SessionID=' + sessionID+'&rnds='+rndsess, и дальнейшее в котром ищу прописанное в агенте по параметрам rndsess. И дальше

Код:

$.getJSON('doValidateUNIDjson?openpage'+'&rnds='+rndsess;
                       function(resp){
                           var respunid = resp.unid;
                           if ( respunid != null) {_doSetCookie('shopcart', respunid) };

Может оно и к лучшему, но ЧЯДНТ?

3. При подсчете в JS вот такой конструкции:

Код:

var boxes = $("form[name='Cart']  input:checkbox:enabled");
isboxes.each(function(){
    chboxes = chboxes+1;
    args = args + "&" + $(this).attr('name')+'=1';
});

chboxes возвращает максимум 50. Но у меня бывает и больше чекбоксов. Это ограничение где порылось? Заткнул так

Код:

 if ( chboxes >=50 ) {
            $.msgbox('Более 50 товаров удалить сразу нельзя.',4);
                boxes.removeAttr('checked');

ку1: Сервер 8.5.2. Клиент 7.0.4. jquery-1.12.4.min.js Если что. Про xpages даже слышать не хочу.
ку2: Попутно был найден и заюзан неплохой WebSession class originally from

Ссылка скрыта от гостей

, но в нем нет метода прописывания кук в агенте LS. Может кто доделывал?

savl · 12.01.2017

NetWood сказал(а):
Может кто доделывал?

Нашел вот что, но не проверял. Думаю, Вы сможете это подкрутить к Вашему классу.

Код:

Function getCookieVal( cookie As String, thisname As String) As String
Dim prefix As String
prefix = thisname + "="
Dim begin As Integer
Dim ending As Integer
begin = Instr(cookie, "; " + prefix)
If begin = 0 Then
begin = Instr(cookie, prefix)
If begin = 0 Then
getCookieVal = ""
Exit Function
End If
Else
begin = begin +2
End If
ending = Instr(begin, cookie, ";") - 1
If ending = -1 Then
ending = Len(cookie)
End If
getCookieVal = unescape(Mid$(cookie, begin+Len(prefix), ending - begin -Len(prefix)+1))
End Function

Sub setCookie(doc As NotesDocument, compName As String, compValue As String, adjYear As Integer, adjHour As Integer)
' uses a print statement to set the cookie
' uses adjYear and adjHour to set the expiry time of the cookie.
' If the cookie is needed for the one particular session set adjHour to 1, then the cookie is active for an hour
' If you want to expire a cookie, use a negative number for either adjYear or adjHour.
Dim thistime As NotesDateTime
Dim gmttime As NotesDateTime
Dim gmtvar As Variant
Dim cooktime As String
Set thistime = New NotesDateTime("")
Call thistime.SetNow
If adjHour <> 0 Then
Call thistime.AdjustHour(adjHour)
End If
If adjYear <> 0 Then
Call thistime.AdjustYear(adjYear)
End If
Set gmttime = New NotesDateTime(Left$(thistime.GMTTime, Len(thistime.GMTTime)-4))
gmtvar = gmttime.LSLocalTime
cooktime = Format(gmtvar, "dddd")+ ", " + Format(gmtvar, "dd")+ "-" + Format(gmtvar, "mmm") + "-" + Format(gmtvar, "yyyy") +_
" " + Format(gmtvar, "hh:mm:ss") + " GMT"
compName = escape(compName)
compValue = escape(compValue)
Dim dbpath As String
dbpath = Strleft(Lcase(doc.Path_Info_Decoded(0)), ".nsf") + ".nsf"+ "/"
Print "Set-Cookie: " + compName + "=" + compValue + "; expires=" + cooktime + "; path=" + dbpath + ";"
End Sub

Function escape(strIn As String) As String
Dim strAllowed As String
Dim i As Integer
Dim strChar As String
Dim strReturn As String

strAllowed = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & "@/.*-_"
i = 1
strReturn = ""
While Not (i > Len(strIn))
strChar = Mid$(strIn, i, 1)
If Instr(1, strAllowed, strChar) > 0 Then
strReturn = strReturn & strChar
Else
strReturn = strReturn & "%" & Hex$(Asc(strChar))
End If
i = i + 1
Wend
escape = strReturn
End Function

Function unescape(strIn As String) As String
Dim i As Integer
Dim strChar As String
Dim strReturn As String

i = 1
strReturn = ""
While Not (i > Len(strIn))
strChar = Mid$(strIn, i, 1)
If Not strChar = "%" Then
strReturn = strReturn & strChar
Else
i = i + 1
strChar = "&H" & Mid$(strIn, i, 2)
strReturn = strReturn & Chr$(Val(strChar))
i = i + 1
End If
i = i + 1
Wend
unescape = strReturn
End Function

Взято тут:

Ссылка скрыта от гостей

Автор переносил свой блог, исходник его класса вот тут:

Ссылка скрыта от гостей

romych2004 · 12.01.2017

1) вторым параметром данные точно передаются?

реквест контент меньше 64кб?

Ссылка скрыта от гостей

3) какой-то странный селектор для чекбокса. А такой пробовали - input:checked?

p.s. сложно судить что у вас не так, т.к. код везде не полный

Может в файлик запихнете и приаттачите?

lmike · 12.01.2017

NetWood сказал(а):
но как вернуть Request_Content?

куда вернуть?
получить в агенте?

NetWood · 13.01.2017

lmike сказал(а):
куда вернуть?
получить в агенте?

Да, получить Request_Content в агенте. src.Request_Content(0)из аякса пустой.

romych2004 сказал(а):
1) вторым параметром данные точно передаются? реквест контент меньше 64кб?
Ссылка скрыта от гостей

Попробую REQUEST_CONTENT_000...
[doublepost=1484258867,1484249208][/doublepost]Ответ на вопрос п.3 весьма неожиданный. Server -> Internet Protocols panel -> Domino Web Engine -> Число строк на странице по умолчанию: 50. Поставил больше и $("form[name='Cart'] input:checkbox:enabled"). length стал показывать нормально. LOL. Какое отношение имеет JS исполняемый на клиенте к количеству строк сервера. Еще nginx фронтом стоит. Думал, он дуркует.

lmike · 13.01.2017

NetWood сказал(а):
Число строк на странице по умолчанию: 50. Поставил больше и $("form[name='Cart'] input:checkbox:enabled"). length стал показывать нормально.

ну если посылается запрос в БД (аякс) - будет влиять
[doublepost=1484285496,1484285225][/doublepost]

romych2004 сказал(а):
1) вторым параметром данные точно передаются? реквест контент меньше 64кб?
Ссылка скрыта от гостей

неожиданный ход индусской мысли

NetWood · 14.01.2017

Итак, проверил src.REQUEST_CONTENT_000(0) = пусто

Зову аяксом так:

Код:

$.post('UpdateCartAJAX?OpenAgent'+ args,
            {
            beforeSend: function(){$("#cart_count").fadeOut()} ,
            complete: function(){$("#cart_count").fadeIn()}
             },
              function(){
                $("#cart_count").load("doViewCartCount?ReadForm");
              }, "html");

В агенте LS src.Request_Content(0)=beforeSend=undefined&complete=undefined.
Если закоментить beforeSend и complete, то src.Request_Content(0) пустой.
[doublepost=1484347911,1484337458][/doublepost]В общем, пришел к выводу, что халява с ~~link removed~~ передаваемым по простому сабмиту с формы, на AJAX не проходит.
Данные для Request_Content надо заранее парсить со страницы и явно указывать параметром data в $.ajax.

Работает так:

Код:

testpost :="<a href='javascript:_doTestAJAXPost();' class='bodytext'>_doTestAJAXPost</a>";
@(Implode(testpost))

JavaScript:

function _doTestAJAXPost(){
    var url = '1TestAJAX?OpenAgent';
    var itext = $("input:text"); //все текстовые инпуты
    var boxes = $("input:checkbox:enabled"); //все чекбоксы
    var isboxes = $("input:checkbox:checked"); //все отмеченные чекбоксы
    var args = '';
    //check ALL input:text value
    itext.each(function(){
    args = args + "&" + $(this).attr("name") + "=" + $(this).val();
    });
    //check input:checkbox checked
    isboxes.each(function(){
    args = args + "&" + $(this).attr('name');
    });
    $.alert(args);  //свой алерт с autocountdown
    //var datastr = encodeURI(args);
    var datastr = args;
    //https://jquery-docs.ru/jQuery.ajax/
    $.ajax({
            url: url,
            type: 'post',
            data: datastr,                //Данные отправляемые на сервер = src.Request_Content(0)
            //dataType : "html",             // тип загружаемых данных
            success: function(){$.msgbox('complete _doTestPost')} // свой обработчик на функцию success
    });
}

Код:

Sub Initialize
    'Тестовый Агент проверки AJAX 1TestAJAX
    On Error Goto errHnd
    '=== WebSession class originally from http://tanny.ica.com/ICA/TKO/tkoblog.nsf/dx/websession-agent-class
    Dim web As New WebSession()
    Dim arg As Variant, arg2 As String, arguments List As String
    arg =  web.session.DocumentContext.Request_Content(0)
    Msgbox "ws.Request_Content(0)="+arg
    arg2 =  web.session.DocumentContext.Query_String(0)
    Msgbox "ws.Query_String(0)="+arg2
errHnd:
    'If error, let user know - redirect web browser to Order Error page
    Print "Error #:" + Str(Err)+ " line: "+ Cstr(Erl)
End Sub

В консоли имеем что-то такое:
14.01.2017 01:39:31 HTTP Server: Agent message: ws.Request_Content(0)=&8868C36
A7E41D17FC32578550037BA66=1&E0979BA5BAEF22C4C32578550037BAB4=2&4A7AF14E7E354D73C
32578550037BE48=3&2842350FDFDEC9DEC32578550037BA8C=&63B44202751E197CC32578550037
BD59=&287771D053AB43FBC32578550037BADB=&761092244449F8C1C32578550037BF38
14.01.2017 01:39:31 HTTP Server: Agent message: ws.Query_String(0)=OpenAgent

rinsk · 14.01.2017

используйте ф-цию серелизации .serialize()
всегда работало без проблем:

JavaScript:

        var formdata=$(document.forms[0]).serialize();
        $.post(url,formdata, function(data) {

        })

Если для некоторых полей (уменьшить оверхед) - то типа такого :

JavaScript:

function serializeFields(fieldList){
    // сериализация только нужных полей текущей формы
    // поля перечислены через запятую. Регистр - важен
    return $('form:first').find('input[name="'+fieldList.split(",").join('"],input[name="')+'"]').serialize()
}

    var formdata=serializeFields('EditDoc,Action,ID,UNID,Form,ServiceTypeKey,RealReqKey,ReqKey,StandartKey,key,eid,Signed,Status');
        $.ajax({
             type: "POST",
             url: agent,
              data:formdata
            })
             .done(function(data) {
                    $("#param-content").html(data);
              });  
}

Ловля параметров в агенте (свыше 64 к есть другой вариант)

Код:

'Передача параметров
    v=Evaluate({@Explode(@UrlDecode("Domino";Request_Content);"&")},contextdoc)
    Forall vls In v
        tmp=vls
        If Not Iselement(ValueList(Strleft(tmp,"="))) Then
            ValueList(Strleft(tmp,"="))=Strright(tmp,"=")
        Else
            ValueList(Strleft(tmp,"="))=ValueList(Strleft(tmp,"="))+"||"+Strright(tmp,"=")
        End If
    End Forall

lmike · 14.01.2017

rinsk сказал(а):
Ловля параметров в агенте (свыше 64 к есть другой вариант)

собаки могут свыше 64к?

rinsk · 14.01.2017

lmike сказал(а):
собаки могут свыше 64к?

ну я и говорю - свыше 64к и для аплоада есть другой вариант. даже несколько всяких.
например - https://github.com/extnd/SDK/blob/master/ODP/Code/ScriptLibraries/HttpRequest_1.lss
Только там несколько ошибок.

Все сервисы Codeby

Поиск

Поиск

src.Request_Content(0) не работает через AJAX и еще пару вопросов.

NetWood

savl

romych2004

lmike

нет, пердело совершенство

NetWood

lmike

нет, пердело совершенство

NetWood

rinsk

lmike

нет, пердело совершенство

rinsk