15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Private Sub AddLink( doc As NotesDocument )
On Error GoTo errh
Dim tmpdoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim tmpRtitem As NotesRichTextItem
Dim tmp As Variant
Dim tmpLink As Variant
Dim dxl As String
If doc.Hasitem( "tmp_rtitem" ) Then
Call doc.Removeitem( "tmp_rtitem" )
Call doc.Save( True, False, True )
End If
If doc.Hasitem( "$Revisions" ) Then
Call doc.Removeitem( "$Revisions" )
Call doc.Save( True, False, True )
End If
doc.xml = ""
Set tmpdoc = Me.curDb.Createdocument()
tmpdoc.Form = "Kill"
Set rtitem = tmpdoc.Createrichtextitem( "tmp_rtitem" )
Set tmpRtitem = tmpdoc.Createrichtextitem( "tmp_rtitem1" )
Call Me.exporter.Setinput( doc )
Call Me.exporter.Setoutput( rtitem )
Call Me.exporter.Process()
tmpRtitem.values = rtitem.values
doc.xml = tmpRtitem.Values
Call doc.Save(true, false, true)
Call Me.importer.Setinput( tmpRtitem )
Call Me.importer.SetOutput( Me.curDb )
Call Me.importer.Process
Delete Rtitem
Delete tmpRtitem
Delete tmpdoc
Set tmpdoc = Me.curDb.GetDocumentByID( Me.importer.GetFirstImportedNoteId )
Set rtitem = tmpdoc.GetFirstItem("Body")
If tmpdoc.Hasitem( "tmp_rtitem" ) Then
Call tmpdoc.Removeitem( "tmp_rtitem" )
End If
Call rtitem.Copyitemtodocument( doc, "Body")
Call tmpdoc.Remove( True )
If doc.Hasitem( "tmp_rtitem" ) Then
Call doc.Removeitem( "tmp_rtitem" )
End If
Exit Sub
errh:
MsgBox Me.importer.log
Exit Sub
End Sub
Может проблема в каких-то своеобразных символах либо в метке, либо в слове?Да самое обидно - ошибка возникает и при замене метки на какое-нить слово
Не принципиально - если всё сделать правильно, создаётся несколько одноимённых полей, которые при отображении клиент собирает в единый html и показывает правильно. Есть опыт :blink:HTML item не может быть больше 64к
Обучение наступательной кибербезопасности в игровой форме. Начать игру!