优化用户体验 ajax实现局部刷新提交数据

因为元素需要将将页面元素都传入到代理中

在代理中返回的数据还未写入到元素中

function getdepnofresh(){
 // 通过 form 的 id 取得 form
 var $form =$(\"form:eq(0)\");
 //var $form = $(\"form:first\"); // 很关键
 var url=\"../getdata?openagent\";
 // 得到 form 的提交路径
 //url = $form.attr('action'); 
 // 以 post 方式提交, 回调函数function 返回 data
  $.post(
   url 
   ,$form.serialize()
   ,function(data) { 

       //alert(\"Data Loaded: \" + data);  //返回数据赋值到表单上
    }  
        );
}

以下是代理取ajax传入表单的所有数据

Set curdb = session.Currentdatabase
 Set CurDoc=s.Documentcontext
 If CurDoc.HasItem(\"Request_content\") Then
  postdata=CStr(CurDoc.GetItemValue(\"Request_content\")(0))
  'MsgBox \"postdata-->\"+postdata
  
  Call F.PrintLog(CStr(postdata))
  '获取id
  id=GetParameter(\"fycompany_Show\",postdata)
  
  '获取demo
  demo=GetParameter(\"SubName\",postdata)
  'MsgBox \"SubName->\"+demo  
  
  ItemArrName = GetParameter(\"ItemArrName\",postdata)
End sub


Function GetParameter(strParamName As String, strQuery As String) As String
        Dim i As Integer
        Dim s As String
        Dim v As Variant
       
        GetParameter = \"\"
        '如果转的值每个字符不是&,则添加进来
  If Left(strQuery,1)<>\"&\" Then
   strQuery=\"&\" +strQuery
  End If
  
        i = InStr(UCase(strQuery),\"&\" & UCase(strParamName) & \"=\")
        If i <> 0 Then
                s = StrRight(Mid(strQuery, i),\"=\")
                If InStr(s, \"&\") Then
                        s = StrLeft(s, \"&\")
                End If
                v = Evaluate(\"@UrlDecode(\"\"Domino\"\"; \"\"\" & s & \"\"\")\")
                GetParameter = CStr(v(0))
        End If
End Function

dom获取前端数据，AJAX提交数据时作为参数提交过去再去解析并返回结果。

热点执行代理，当前表单等于提交过去刷新。体检确实不好。

简单的哦。使用后台代理执行，并将结果返回（xml或者json），前台使用JS获取代理返回数据就可以了。

用JS获取啊，文档里的域都是input控件。