下拉框联动，怎样实现无刷新联动

bsk_bg 2008-10-25 12:54:00

我的下拉菜单是用了两个表。表1 type_one 表2 type_two
type_one 字段 ID type_one
type_two 字段 ID type_oneid(表1中的ID) type_two
现在做一个下拉框。实现无刷新联动。
因为已经有一个刷新联动，再出现刷新联动上一级就没有值了。
现在要的就是实现无刷新联动。。麻烦高手指点指点。。。

...全文

138 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

sy_binbin 2008-10-25

打赏
举报



<% 

’************************************************** 

’常用二级分类下拉列表[数据库版] 

’叶随风(LeafinWind) 

’QQ：19855466 

’http://www.popasp.com/ 

’说明： 

’支持多浏览器 

’所有类别信息在同一个表中 

’表结构：InfoClass[表名] 

’ID：   自动编号 

’ClassName： 类别名称[文本] 

’PID：   父类id号[数字] 

’ClassIndex： 类别索引[数字]，用于排序，可有可无 

’************************************************** 

Dim SubClsCount, rsCl 

Set rsCl = Server.Createobject("Adodb.Recordset")  

rsCl.Open "Select * From [InfoClass] Where PID <> 0 Order By ClassIndex, ID",Conn,1,1    ’小类 

%>  

<script language = "JavaScript">  

var TCount = 0;  

subCls = new Array();  

<%  

SubClsCount = 0 

Do While Not rsCl.Eof  

 %> 

 //数组中三个元素的说明：(小类ID：小类Select的value内容，小类父ID：所属的大类的ID，小类名称：Select列表显示的内容) 

 subCls[<%=SubClsCount%>] = new Array("<%=Trim(rsCl("ID"))%>","<%=rsCl("PID")%>","<%=Trim(rsCl("ClassName"))%>");  

 <%  

 SubClsCount = SubClsCount + 1 

 rsCl.Movenext  

Loop  

rsCl.Close 

Set rsCl = Nothing 

%>  

TCount=<%=SubClsCount%>;  

function changelocation(locationid)  

{  

 document.getElementById("SmallClassID").length = 0;  

 var locationid = locationid;  

 var i; 

 for (i=0;i < TCount; i++)  

 {  

  if (subCls[i][1] == locationid)  

  {  

   //（前边：字段三内容，显示在列表中；后边：字段一内容，显示在VALUE值中！） 

   document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option(subCls[i][2], subCls[i][0]);  

  } 

 } 

 if (document.getElementById("SmallClassID").options.length <= 0) 

 { 

  document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option("暂无小类", 0); 

 } 

}  

</script> 

<!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=gb2312" /> 

<title>ASP+JS的二级分类</title> 

</head> 

<body"> 

<% 

Dim SelClassID 

Set rsCl = Server.Createobject("Adodb.Recordset")  

rsCl.Open "Select * From [InfoClass] Where PID = 0 Order By ClassIndex, ID",Conn,1,1      ’大类 

If rsCl.Eof And rsCl.Bof Then  

 Response.Write "请添加顶级（大）类别!"  

 Response.End() 

Else 

 %> 

 大类： 

 <select name="BigClassID" size="1" id="BigClassID" onChange="changelocation(document.getElementById(’BigClassID’).options[document.getElementById(’BigClassID’).selectedIndex].value)"> 

    <% 

 SelClassID = rsCl("ID")  

 Do While Not rsCl.Eof  

  %> 

    <option value="<%=rsCl("ID")%>"><%=rsCl("ClassName")%></option> 

    <%  

  rsCl.Movenext  

 Loop  

 %> 

 </select> 

 <% 

End If  

rsCl.Close  

%> 

小类： 

<% 

Dim SmallClassList 

SmallClassList = "<select name=SmallClassID id=SmallClassID>" 

rsCl.Open "Select * From [InfoClass] Where PID = "&SelClassID&" Order By ClassIndex, ID" ,Conn,1,1    ’小类 

If Not (rsCl.Eof And rsCl.Bof) Then  

 Do While Not rsCl.Eof 

  SmallClassList = SmallClassList & "<option value=’"&rsCl("ID")&"’>"&rsCl("ClassName")&"</option>" 

  rsCl.Movenext  

 Loop  

Else 

 SmallClassList = SmallClassList & "<option value=’0’>暂无小类</option>" 

End If  

rsCl.Close  

Set rsCl = Nothing 

SmallClassList = SmallClassList & "</select>" 

Response.Write(SmallClassList) 

%> 

</body> 

</html>

自己看去吧
转自
http://www.popasp.com/Html/3/73913387.html

蓝色木 2008-10-25

打赏
举报

网上有的是资料
可以用 ajax
还可以用数组

sy_binbin 2008-10-25

打赏
举报

[Quote=引用 7 楼 chinmo 的回复:]
引用 1 楼 sy_binbin 的回复:
哈哈，你怎么转了我一个朋友的文章哦！！
[/Quote]

实在不想贴自己的了！就随便找了一篇

一把编程的菜刀 2008-10-25

打赏
举报

[Quote=引用 8 楼 bsk_bg 的回复:]
这文章挺好，，看了顶用啊。。。
[/Quote]

呵呵，如果看我的，比这个更明白

bsk_bg 2008-10-25

打赏
举报

这文章挺好，，看了顶用啊。。。

一把编程的菜刀 2008-10-25

打赏
举报

[Quote=引用 1 楼 sy_binbin 的回复:]
VBScript code
<%
’**************************************************
’常用二级分类下拉列表[数据库版]
’叶随风(LeafinWind)
’QQ：19855466
’http://www.popasp.com/
’说明：
’支持多浏览器
’所有类别信息在同一个表中
’表结构：InfoClass[表名]
’ID：自动编号
’ClassName：类别名称[文本]
’PID：父类id号[数字]
’ClassIndex：类别索引[数字]，用于排序，可有可无
’****…
[/Quote]

哈哈，你怎么转了我一个朋友的文章哦！！