domino代理通过Request_Content域接收extjs以post方式提交的数据
来源:互联网 发布:淘宝店铺虚拟转实物 编辑:程序博客网 时间:2024/06/02 04:02
from: http://www.cnblogs.com/hannover/archive/2010/12/03/1895876.html
// extjs通过Post方式发送数据至服务器端
var conn = new Ext.data.Connection();
conn.request({
url : '/test/ajaxdemo.nsf/agentWebIMSendMsg?openagent',
method : 'POST',
params : {
fromUserAccount : fromusername,
toUserAccount : tousername,
message : encodeURIComponent(message)
},
success : function(responseObject) {},
failure : function(responseObject) {
Ext.Msg.alert('失败', responseObject.statusText);
}
});
//domino代理:接收并处理数据
Sub Initialize
On Error Goto ErrorHandle
Dim session As New notessession
Dim curdb As NotesDatabase
Dim curdoc As notesDocument
Dim tdoc As NotesDocument
Dim strFormular As String
dim vData As As Variant
Dim sQry As String
Dim sFrom As String
Dim sTo As String
Dim sMsg As String
Set curdb = session.CurrentDatabase
Set curdoc = session.documentContext
'--使用domino内置域Request_Content接收post方式提交的数据
'--传送数据格式为:fromUserAccount=张三&toUserAccount=李四&message=hello
strFormular="@URLDecode('Domino';Request_Content)"
vData=Evaluate(strFormular,curdoc)
sQry=vData(0)
sFrom=WebGetParameter(sQry,"fromUserAccount")
sTo=WebGetParameter(sQry,"toUserAccount")
sMsg=WebGetParameter(sQry,"message")
'----------使用数据信息----------------------
... ...
Exit Sub
ErrorHandle:
Msgbox "错误发生在第"+Cstr(Erl)+"行, 错误是: "+Error
End Sub
Public Function WebGetParameter(Byval strSearch$, Byval strVar$) As String
Const WEB_ARG_SEP = "&"
On Error Goto Errors
WebGetParameter = ""
Dim tmp$, posVar%, posSep%
posVar = Instr(strSearch, strVar & "=")
If posVar = 0 Then Goto TheEnd
posVar = posVar + Len(strVar) + 1
posSep = Instr(posVar, strSearch, WEB_ARG_SEP)
If (posSep = 0) Then
WebGetParameter = Mid$(strSearch, posVar)
Else
WebGetParameter = Mid$(strSearch, posVar, posSep-posVar)
End If
TheEnd:
Exit Function
Errors:
WebGetParameter = ""
Resume TheEnd
End Function
- domino代理通过Request_Content域接收extjs以post方式提交的数据
- domino代理通过Request_Content域接收extjs以post方式提交的数据
- domino代理通过Request_Content域接收extjs以post方式提交的数据
- domino代理通过Request_Content域接收extjs以post方式提交的数据
- Java中以POST的方式发送和接收数据
- 使用javascript以post的方式向服务器提交数据
- Ajax以post方式提交数据
- Android 通过Post方式提交数据
- 以httpclient方式提交数据—post方式
- vue中post方式提交数据后台无法接收
- struts2 数据传输问题---“POST方式提交数据量过大,在后台接收不到数据”问题的解决
- window.open()时以post方式提交数据
- Ajax以Post方式提交数据,中文乱码。
- AS3中以post和get方式提交数据
- Http Client 4.0 以POST方式提交数据
- 以Post方式提交并解析json数据
- 使用libcurl以Post方式向HTTP服务器提交数据
- tp以post方式提交表单并保存数据
- 规阵元素求和
- 淘宝Android自动化测试框架 – TMTS
- Redmine on windows安装
- 浅谈代码分层:构建模块化程序
- Project Server 2010 系统最低软硬件需求
- domino代理通过Request_Content域接收extjs以post方式提交的数据
- 设置控件焦点与设置WebForm窗体默认按钮
- C# 控制台程序输出倒三角
- request.getRequestDispatcher
- linux关机命令
- 关于mysq的JDBC的学习内容
- java,wait与notify
- 【转】centos 浏览器中文乱码问题 解决方法
- 在管理工具的服务中启动mysql服务时都会在中途报错。内容为:在 本地计算机 无法启动mysql服务 错误1067:进程意外中止。