一个多次搜索+多次传值的解决方案
110 浏览量
2020-12-10
03:10:41
上传
评论
收藏 51KB PDF 举报
一个多次搜索一个多次搜索+多次传值的解决方案多次传值的解决方案
小弟刚学js,希望高手能够帮忙!
这是一个管理系统的中的项目参与人员选择的代码,要解决的问题是:
1.用户点击选择人员后,弹出一个新窗口,能根据姓名或单位查找某个人,然后选择想要选择的人.然后继续查找下一个人.然后选
择.
2 选择好要选的人员后,把值返回到主页面的人员的表单中
3 一个表单中可能有多处字段需要填入人员.
比如现在要添加一个项目信息
其中有
项目主持人项目主持人
项目组成人员项目组成人员
人员的信息都从人员信息库中取得.
以下是主页面的代码,由于用了ifrma.所以不能传值
文件打包上来吧:
http://www.HNTF.CN/RYXZ.rar
选择人员
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
暂时解决用ajax实现
我找到一种比较好方法了，基本思路是JS+Ajax来实现
，个人觉得这种方式解决多次搜索，多次传值比较好，里面的选择的js代码是从无忧拷贝的，如果有更好的方法，望高人指
点！因为在办公系统中录入数据的时候，经常碰到这种问题，vbs解决实在很吃力。
请输入关键字
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
ajaxsearch.asp
<br>
<b>处理 SSI 文件时出错
</b><br>
<%
' ConnectDB2.asp为数据库连接文件
Dim Search_Word,XML_Result,rsSearch,sqlSearch
Set rsSearch=Server.CreateObject("ADODB.RecordSet")
' 获取搜索关键字
Search_Word=Trim(Request("searchword"))
' XML文档头
XML_Result="”
IF Search_WordEmpty 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&”#”
‘ 循环输出搜索结果
Do While Not rsSearch.EOF
XML_Result=XML_Result&””&rsSearch(“ygbh”)&”” ‘ 循环输出每一个结果
rsSearch.MoveNext
Loop
Else
‘ 关键字为空，则返回无搜索结果
XML_Result=XML_Result&”#”
评论0