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

　　小弟刚学js,希望高手能够帮忙!

　　这是一个管理系统的中的项目参与人员选择的代码,要解决的问题是:

　　1.用户点击选择人员后,弹出一个新窗口,能根据姓名或单位查找某个人,然后选择想要选择的人.然后继续查找下一个人.然后选择.

　　2 选择好要选的人员后,把值返回到主页面的人员的表单中

　　3 一个表单中可能有多处字段需要填入人员.

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

　　其中有

　　项目主持人

　　项目组成人员

　　人员的信息都从人员信息库中取得.

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

　　文件打包上来吧:

　　http://www.HNTF.CN/RYXZ.rar

</head> 
<style type="text/css"> 
 
</style> 
<body > 
<div class="menu1"  id="iframe1" > 
  <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
    <tr> 
      <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> 
        <tr> 
          <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="titlebar"> 
            <tr> 
              <td><span class="STYLE2">选择人员</span></td> 
            </tr> 
          </table> 
                <table width="98%" border="0" align="center" cellpadding="6" cellspacing="0"> 
                  <tr> 
                    <td height="34"><div class="titlebar" id=pre name=pre></div> 
                        <div align="right"> 
                          <input name="button3" type="button" class="header_btn" onClick="javascript:list_sub1();" value="继续提交"> 
                          <input name="button4" type="button" class="header_btn" onClick="javascript:list_sub();" value="选择完毕"> 
                          <input name="button5" type="button" class="header_btn" onClick="javascript:list_sub2();" value="清空"> 
                          <input name="button" type="button" class="header_btn" onClick="javascript:shout();"  value="关  闭"> 
                      </div></td> 
                  </tr> 
                </table> 
            <iframe src="http://www.hnkjc.com/project/y_1.asp" name="employee" height="200" width="100%"  border=1></iframe></td> 
        </tr> 
      </table></td> 
    </tr> 
  </table> 
</div> 
<form action='pro_add_save.asp' method=post name=frmxx id="frmxx"> 
    <p>人员 
      <input name="RY2" type="text" disabled class="input" id="RY2"> 
           
             <input type="button" name="Submit" onClick="javascript:disp(frmxx.NRYGXM);" - value="选择"> 
  </p> 
    <p>人员2   
      <input name="RY2" type="text" disabled class="input" id="RY2"> 
      <input type="button" name="Submit2" onClick="javascript:disp(frmxx.NRYGXM);" - value="选择"> 
  </p> 
  </form> 
</body> 
</html>

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

　　暂时解决用ajax实现

　　我找到一种比较好方法了，基本思路是JS+Ajax来实现

　　，个人觉得这种方式解决多次搜索，多次传值比较好，里面的选择的js代码是从无忧拷贝的，如果有更好的方法，望高人指点！因为在办公系统中录入数据的时候，经常碰到这种问题，vbs解决实在很吃力。

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">    
<html xmlns="http://www.w3.org/1999/xhtml">

<head>    
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />    
<title>无标题文档</title>    
<style type="text/css">

</style>

<tr>   
      <td> </td>   
    </tr>    
  </table> 
</form>  <div> 
  <div align="center"> 
       <input name="searchword" type="text" class="input" id="searchword" onChange="AjaxSearch();" onKeyDown="if(event.keyCode==13) AjaxSearch();" /> 
       <input type="button" class="header_btn" onClick="AjaxSearch();" value="搜索" /> 
  </div> 
</div> 
<div  style="WIDTH: 80%" id="search_result"> 
    <ul><li>请输入关键字</li></ul> 
</div> 
</body>    
</html>

　　 [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需刷新才能执行]

教程首页更多教程