| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 360 人关注过本帖
标题:使用select下的onchange跳转
只看楼主 加入收藏
jasonzzs
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-5-9
结帖率:0
收藏
已结贴  问题点数:10 回复次数:1 
使用select下的onchange跳转
如题,就想通过select的onchange功能实现数据库的筛选功能,数据库同一字段假如字段名为ab,在ab中有N种物名,怎样通过onchange选择同一类的物名筛选出来,急
搜索更多相关主题的帖子: 数据库 
2012-05-09 14:58
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:10 
<html>
<head>
 <title></title>
 <script language="javascript">
 function abselect_change(Val)
 {
     self.location=self.location.href+"?ab="+Val;
 }
 </script>
</head>
<body>
 <select id="abselect" onchange="abselect_change(this.options[this.selectedIndex].value);" >
 <%
   '省略数据库打开代码
   Dim rs
   Set rs=conn.Execute("select distinct ab from 表名 group by ab")'过滤重复数据
   '循环输出字段ab的值
   Do Until rs.EOF
      Response.Write "<option value="&rs("ab")&">"&rs("ab")&"</option>"
      rs.MoveNext   
   Loop
 %>
 </select>
 <%
    Dim rs1
    '省略数据库打开代码
    IF Request("ab")<>"" Then'判断是否选择了数据
       Set rs1=conn.Execute("select * from 表名 where ab='"&Request("ab")&"'")
       IF rs1.EOF=False Then'判断是否从数据库中读取到了数据
          '以表格的形式循环输出
          With Response
            .Write "<table>"
            Do Until rs1.EOF
               .Write "<tr>"
               Dim i
               For i=0 To rs1.Fields.Count-1
                   .Write "<td>"&rs1.Fields(i).Value&"</td>
               Next
               .Write "</tr>"
               rs1.MoveNext
            Loop
            .Write "</table>"
          End With
       End IF
    End IF
 %>
</body>
</html>
以上代码未测试可能运行不正确
2012-05-09 16:19
快速回复:使用select下的onchange跳转
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031446 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved