一個多次搜索+多次傳值的解決方案

更新時間：2007年01月20日 00:00:00 作者：

小弟剛學js,希望高手能夠幫忙!
這是一個管理系統(tǒng)的中的項目參與人員選擇的代碼,要解決的問題是:

1.用戶點擊選擇人員后,彈出一個新窗口,能根據(jù)姓名或單位查找某個人,然后選擇想要選擇的人.然后繼續(xù)查找下一個人.然后選擇.
2 選擇好要選的人員后,把值返回到主頁面的人員的表單中
3 一個表單中可能有多處字段需要填入人員.

比如現(xiàn)在要添加一個項目信息

其中有
項目主持人
項目組成人員
人員的信息都從人員信息庫中取得.

以下是主頁面的代碼,由于用了ifrma.所以不能傳值

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

</head> <style type="text/css">  </style> <body > <div   id="wppm3vysvbp"   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 id="wppm3vysvbp"    class="STYLE2">選擇人員</span></td>             </tr>           </table>                 <table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">                   <tr>                     <td height="34"><div   id="wppm3vysvbp"   class="titlebar" id=pre name=pre></div>                         <div align="right">                           <input name="button3" type="button" class="header_btn" onClick="javascript:list_sub1();" value="繼續(xù)提交">                           <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需再刷新一下頁面才能執(zhí)行]

暫時解決用ajax實現(xiàn)
我找到一種比較好方法了，基本思路是JS+Ajax來實現(xiàn)
，個人覺得這種方式解決多次搜索，多次傳值比較好，里面的選擇的js代碼是從無憂拷貝的，如果有更好的方法，望高人指點！因為在辦公系統(tǒng)中錄入數(shù)據(jù)的時候，經(jīng)常碰到這種問題，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>      </head>    <body>    <form name="form1" ><textarea name="likes" cols="40" rows="3" id="textarea9" style="font-size: 9pt;padding:4px;"></textarea>   <table border="0" width="100%" cellspacing="0" cellpadding="0" >                <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需再刷新一下頁面才能執(zhí)行]

ajaxsearch.asp

<B>???? SSI ????????</B><BR>
 <% ' ConnectDB2.asp為數(shù)據(jù)庫連接文件 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     ' 創(chuàng)建查詢SQL語句     sqlSearch="SELECT * FROM wuhen_t_yg WHERE ygxm LIKE '%"&Search_Word&"%' ORDER BY ygbh DESC"     ' 打開記錄集     rsSearch.open sqlSearch,Conn,1,1     ' 如果沒有搜索結(jié)果就產(chǎn)生一個結(jié)果，logid為#，標志著沒有搜索結(jié)果     IF rsSearch.BOF AND rsSearch.EOF Then XML_Result=XML_Result&"<result><logid>#</logid><logtitle /></result>"     ' 循環(huán)輸出搜索結(jié)果     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>"  ' 循環(huán)輸出每一個結(jié)果         rsSearch.MoveNext     Loop Else     ' 關鍵字為空，則返回無搜索結(jié)果     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" ' 輸出搜索結(jié)果 Response.Write(XML_Result) %>

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執(zhí)行]