我要投稿

这么简单：Domino上的智能问答Web应用

发布日期：2025-08-11 13:04:58 浏览次数： 1899

作者：协作者

微信搜一搜，关注“协作者”

上一篇我们讲过一步部署DominoIQ智能问答的Notes应用，这一篇我们来讲一步部署基于DominoIQ的智能问答Web应用

前提还是一样，要在Domino本地部署AI大语言模型《Domino 14.5 Drop3: 重点是AI！》，或进行AI大语言模型远程调用《强大简单：Domino IQ任务远程调用OpenAI ChatGPT接口》。

当然，你完全不用自己开发，可以考虑在智能问答Notes应用中，直接询问如何开发一个简易的AI问答Web应用，尽量说得详细些，这样AI就帮你写了，我这里用了豆包，直接把代码写好，并且可以预览，如下图：

接着，将这些HTML都拷贝到Notes应用中——你可以新建一个空白的Notes应用，里面新建一个页面或表单，把这些HTML代码拷贝进去，也可以采用以前我们介绍的dvdemo.nsf，详见《真的我哭死：Domino数据可视化可以这么简单》，拷贝完成后，选择文本菜单中的内置HTML，效果如下图

建议把Ajax中调用后台Domino代理程序的地方，建议改为可计算文本，并写下公式自动计算后台代理路经：

为了避免表单被按钮提交，你可以阻止表单或按钮提交，我们在表单的Onsubmit写入了return false；，如下图：

我们再新建一个代理，名称就叫做returnAiAnswer，属性设置为定时运行，从不运行，主要要写代码来调用Domino IQ进行智能问答，如下图：

Lotusscript代码我也共享在这里：

       Dim ns As New NotesSessionDim doc As NotesDocumentDim question As StringDim llmreq As NotesLLMRequestDim llmres As NotesLLMResponseDim szServer As String Dim szCommand As String Dim szQuery As StringDim jsonNav As NotesJSONNavigatorDim el As NotesJSONElementDim result As stringSet doc=ns.Documentcontext	question=doc.request_content(0)Set jsonNav = ns.Createjsonnavigator(question)Set el = jsonNav.GetElementByName ("question")Set llmreq  = ns.CreateLLMRequest()	szServer=ns.Currentdatabase.Server	szCommand="Question"	szQuery=questionSet llmres = llmreq.Completion (szServer, szCommand, szQuery)If (llmres Is Nothing) Then		result=|{"answer":"error return"}|Else 		result=|{"answer":"|+llmres.Content+|"}|End IfMsgBox resultPrint {'Content-Type': 'application/json',}Print result

这些代码你也可以通过各种AI来写，会非常快。

保存关闭后，我们在浏览器中预览一下效果，并进行提问：