页面导航：首页 → 网络编程 → JavaScript → 应用技巧 → 正文内容

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

发布：dxy 发布日期：2007-1-20 字体：[增加减小] 类型：转载

小弟刚学js,希望高手能够帮忙!
这是一个管理系统的中的项目参与人员选择的代码,要解决的问题是:
1.用户点击选择人员后,弹出一个新窗口,能根据姓名或单位查找某个人,然后选择想要选择的人.然后继续查找下一个人.然后选择.
2 选择好要选的人员后,把值返回到主页面的人员的表单中
3 一个表单中可能有多处字段需要填入人员.

比如现在要添加一个项目信息
其中有
项目主持人
项目组成人员
人员的信息都从人员信息库中取得.

以下是主页面的代码,由于用了ifrma.所以不能传值
文件打包上来吧:
http://www.HNTF.CN/RYXZ.rar

点击运行可以看到效果:

function disp(obj) {

ctlToPlaceValue = obj 
     
    document.all.iframe1.style.display="block"; 
    } 
    function shout() { 
    document.all.iframe1.style.display="none"; 
    } 
    t=document.frmxx.NRYGXM 
    function list_sub(){ 
    //获得IFRAME1中被选中员工的ID值 
    var list_value_str,list_array; 
    var n = 0; 
    list_array = document.employee.document.all.item("employee_id"); 
     
        for (var i=0; i<list_array.length; i++){ 
         
            if(document.employee.document.all.item("employee_id",i).checked){ 
                var value_str; 
                 value_str = document.employee.document.all.item("employee_id",i).id; 
                n = n + 1; 
                 
                if(n == 1){ 
                list_value_str = value_str; 
                }else{ 
                list_value_str = list_value_str + "," + value_str; 
                } 
                 
                 
            }//end if 
             
         
        }//end for 
         
        //document.write(list_value_str); 
        //document.employee2.document.form1.text_value.value=list_value_str;

t.value=list_value_str;

document.getElementById("pre").innerHTML=document.getElementById("pre").innerHTML+list_value_str; 
         
     
        //document.write(list_value_str); 
        //document.employee2.document.form1.text_value.value=list_value_str; 
     
    } 
     
     
     
            function list_sub2(){

list_value_str = ""; 
         
        
        document.getElementById("pre").innerHTML=""; 
         
     
        //document.write(list_value_str); 
        //document.employee2.document.form1.text_value.value=list_value_str; 
     
    } 
</script>

</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"> 
    人员 
      <input name="RY2" type="text" disabled class="input" id="RY2"> 
           
             <input type="button" name="Submit" onClick="javascript:disp(frmxx.NRYGXM);" - value="选择"> 
   
    人员2   
      <input name="RY2" type="text" disabled class="input" id="RY2"> 
      <input type="button" name="Submit2" onClick="javascript:disp(frmxx.NRYGXM);" - value="选择"> 
   
  </form> 
</body> 
</html>

[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

暂时解决用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>

function AjaxShowResult() { 
    var results,i,strTemp; 
    results=xmlResult.getElementsByTagName("result"); 
    strTemp="<ul>"; 
    if(results[0].getElementsByTagName("logid")[0].firstChild.data=="#") 
        strTemp=strTemp+"<li>无搜索结果</li>"; 
    else 
        for(i=0;i<results.length;i++) 
            strTemp = strTemp + "<li>"+results[i].getElementsByTagName("logtitle")[0].firstChild.data+"<input type=\"checkbox\" name=\"activity\" id=\"activity_1\" value=\""+results[i].getElementsByTagName("logid")[0].firstChild.data+"\">
" + results[i].getElementsByTagName("logtitle")[0].firstChild.data + "("+results[i].getElementsByTagName("logtitle2")[0].firstChild.data +")</li>"; 
    strTemp=strTemp+"</ul>"; 
    document.getElementById("search_result").innerHTML = strTemp 
}

var likes=new Array(); xinge=new Array();

<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 全选提示:你可先修改部分代码,再按运行]

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 全选提示:你可先修改部分代码,再按运行]

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