【图】一个多次搜索+多次传值的解决方案

小弟刚学js,希望高手能够帮忙!
这是一个管理系统的中的项目参与人员选择的代码,要解决的问题是:

1.用户点击选择人员后,弹出一个新窗口,能根据姓名或单位查找某个人,然后选择想要选择的人.然后继续查找下一个人.然后选择.
2 选择好要选的人员后,把值返回到主页面的人员的表单中
3 一个表单中可能有多处字段需要填入人员.

比如现在要添加一个项目信息

其中有
项目主持人
项目组成人员
人员的信息都从人员信息库中取得.

以下是主页面的代码,由于用了ifrma.所以不能传值

文件打包上来吧:
http://www.HNTF.CN/RYXZ.rar

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]
暂时解决用ajax实现
我找到一种比较好方法了，基本思路是JS+Ajax来实现
，个人觉得这种方式解决多次搜索，多次传值比较好，里面的选择的js代码是从无忧拷贝的，如果有更好的方法，望高人指点！因为在办公系统中录入数据的时候，经常碰到这种问题，vbs解决实在很吃力。

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]
ajaxsearch.asp

<% ' ConnectDB2.asp为数据库连接文件 Dim Search_Word,XML_Result,rsSearch,sqlSearch Set rsSearch=Server.CreateObject("ADODB.RecordSet") ' 获取搜索关键字 Search_Word=Trim(Request("searchword")) ' XML文档头 XML_Result="<?xml version=""1.0"" encoding=""gb2312""?><blogsearch>" IF Search_Word<>Empty Then ' 创建查询SQL语句 sqlSearch="SELECT * FROM wuhen_t_yg WHERE ygxm LIKE '%"&Search_Word&"%' ORDER BY ygbh DESC" ' 打开记录集 rsSearch.open sqlSearch,Conn,1,1 ' 如果没有搜索结果就产生一个结果，logid为#，标志着没有搜索结果 IF rsSearch.BOF AND rsSearch.EOF Then XML_Result=XML_Result&"<result><logid>#</logid><logtitle /></result>" ' 循环输出搜索结果 Do While Not rsSearch.EOF XML_Result=XML_Result&"<result><logid>"&rsSearch("ygbh")&"</logid><logtitle><![CDATA["&rsSearch("ygxm")&"]]></logtitle><logtitle2><![CDATA["&rsSearch("dw")&"]]></logtitle2></result>"  ' 循环输出每一个结果 rsSearch.MoveNext Loop Else ' 关键字为空，则返回无搜索结果 XML_Result=XML_Result&"<result><logid>#</logid><logtitle /></result>" End IF XML_Result=XML_Result&"</blogsearch>" ' 设置MIME Type为XML文档 Response.ContentType = "application/xml" 'Response.CharSet = "utf-8" ' 输出搜索结果 Response.Write(XML_Result) %>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]