ajax在lotus上的应用

最近在为公司的邮件系统做一个web管理页面。涉及到人员调动的时候，需要完成一个 选人地址本。

由于在names.nsf 中扩充了外部人员的表单信息，lotus自带的web地址本不是很适用。也不好用

于是准备着手做一个 带组织架构的地址本。

在组织架构的展现，以及部门人员展现的时候。希望通过ajax实现异步取数据。查找了一些资料。基本功能已完成。

点击部门的方法（Jquery）：

//ajax获取二级部门和人员信息
function getUserAjax(){
$.get("AG_GetUserByAjax?openAgent" ,{"dept":"总经部"},function(data){
//添加下级部门信息*-------*
//显示该部门人员信息*-------*
});

代理获取参数：

Sub Initialize
	On Error GoTo errhandle
	
	Dim ss As New NotesSession
	Dim doc As NotesDocument
	Set doc = ss.Documentcontext
	Dim Query_Str  As String
	Dim dept As string
	Query_Str  = doc.Query_String_Decoded(0) '获取ajax的参数
	dept = GetUrlPrament(Query_Str,"dept")  '获取具体参数数据
	Print "Content-Type:text/html;charset=utf-8"
	Print "返回json数据"
	Exit sub
errhandle:
	MsgBox "AG_AutoGetNo错误:"+Error()+"（第"+Cstr(Erl())+"行）"
End Sub

function GetUrlPrament(Query_Str_p As string,itemname As string) As String
	Dim i As Integer
	Dim j As Integer
	Dim Query_Str As String
	Query_Str = Query_Str_p
	i = Int(InStr(Query_Str,itemname+"="))
	If i = 0 Then
		'寻找的itemname不存在
		GetUrlPrament = ""
		Exit function
	End If
	i = i+Len(itemname)+1
	Query_Str = Mid(Query_Str,i)
	j = Int(InStr(Query_Str,"&"))
	If j > 0 Then
		Query_Str = Left(Query_Str,j-1)
	End If
	GetUrlPrament = Query_Str
End function

具体返回的数据，就根据参数查询视图获取数据组成json返回。