N年前的代码。。。
页面上域值得变动会改变流程上人员的审批,所以页面域变更 , 页面就唰唰唰。。体验太low
故 想用ajax来实现局部刷新的效果,现在有几个问题需要问下
1:之前的写法是button的 @Command(agentname) 提交数据,代理里面session来取得当前db 和当前文档doc 那么我想问 如果换掉ajax post代理,当前文档的信息如何获取
2:其次 一个button里面若写了三个代理方法的调用,难道post我需要来三个? 不知道大神们有什么好的办法优化么?
因为元素需要将将页面元素都传入到代理中
在代理中返回的数据还未写入到元素中
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