因为元素需要将将页面元素都传入到代理中
在代理中返回的数据还未写入到元素中
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