分享
 
 
 

2006-05-18 Javascript + Asp VBScript +Access 三级联列表框 By Stabx

王朝asp·作者佚名  2006-05-20
窄屏简体版  字體: |||超大  

标题: 2006-05-18 Javascript + Asp VBScript +Access 三级联列表框 By Stabx

正文:

QUOTE:

作用说明:

选择一级类别, 关联显示隶属二级类别, 再关联显示隶属于二级类别的三级类别

CODE:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="../Connections/conn.asp" -->

<!--#include virtual="include/globalabbr.asp"-->

<!--#include virtual="func/func-glossary.asp"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">

<title>Untitled Document</title>

</head>

<body>

<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'

' subject : Javascript + ASP VBScript + Access 三级联列表框 By Stabx

'

' writer : Stabx<shawl.qiu@gmail.com>

'

' blog : http://blog.csdn.net/btbtd \ http://btbtd.exblog.jp/

'

' blog/site : Phoenix.GI - P.GI / \ 绿色学院 - Green Institute

'

' date : 2006-05-18

'

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'连接数据库表

sqlsupercat= "select * from ctglossarysupercat"

sqlsubcat= "SELECT a.*, b.*, c.* FROM (ctglossarysubcat AS a left JOIN ctglossarysubsubcat as c on a.gscid=c.gscid ) left JOIN ctglossarysupercat AS b ON a.gcid = b.gcid"

sqlsubsubcat= "select * from ctglossarysubsubcat"

set rs=server.CreateObject("adodb.recordset") '创建 rs 数据查询

%>

<% rs.open sqlsubcat,MM_conn_string,1 %>

<script LANGUAGE="JAVASCRIPT">

var onecount; //定义子类计数

onecount=0; //设置子类计数默认值为0

subcat = new Array(); //定义显示子类数组

<% count = 0

do while not rs.eof %>

subcat[<%=count%>] = new Array("<%=rs("gscat")%>","<%=rs("a.gcid")%>","<%=rs("a.gscid")%>","<%=rs("c.gcid")%>","<%=rs("c.gscid")%>","<%=rs("gsscat")%>");

<% count = count + 1

rs.movenext

loop

rs.close

%>

onecount=<%=count%>; //子类条目总数

function changelocation(locationid)

{

document.catform.subid.length = 0;

document.catform.subsubid.length = 0;

var locationid=locationid;

var i;

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

{

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

{

document.catform.subid.options[document.catform.subid.length] = new Option(subcat[i][0], subcat[i][2]);

}

}

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

{

if (subcat[i][4]==document.catform.subid.options.value)

{

document.catform.subsubid.options[document.catform.subsubid.length] = new Option(subcat[i][5], subcat[i][3]);

}

}

}

</script>

<% rs.open sqlsubsubcat,MM_conn_string,1 %>

<script LANGUAGE="JAVASCRIPT">

var osubnecount; //定义子类计数

subonecount=0; //设置子类计数默认值为0

subsubcat = new Array(); //定义显示子类数组

<% subcount = 0

do while not rs.eof %>

subsubcat[<%=subcount%>] = new Array("<%=rs("gsscat")%>","<%=rs("gscid")%>","<%=rs("gsscid")%>");

<% subcount = subcount + 1

rs.movenext

loop

rs.close

%>

subonecount=<%=subcount%>; //子类条目总数

function subchangelocation(sublocationid)

{

document.catform.subsubid.length = 0;

var sublocationid=sublocationid;

var i;

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

{

if (subsubcat[i][1] == sublocationid)

{

document.catform.subsubid.options[document.catform.subsubid.length] = new Option(subsubcat[i][0], subsubcat[i][2]);

}

}

}

</script>

<form NAME="catform" ACTION="../Templates/receiveFormT.asp" METHOD="POST">

<%

rs.open sqlsupercat,MM_conn_String,1,1

if rs.eof and rs.bof then

response.write "errorNothing_"

response.end

else

%>

<select name="superid" onChange="changelocation(document.catform.superid.options[document.catform.superid.selectedIndex].value)" size="1">

<option selected value="">==大类==</option>

<% do while not rs.eof %>

<option value="<%=trim(rs("gcid"))%>">

<%=trim(rs("gcat"))%>

</option>

<% rs.movenext

loop

rs.close

end if %>

</select>

<select name="subid" size="1" onChange="subchangelocation(document.catform.subid.options[document.catform.subid.selectedIndex].value)">

<option selected value="">==子类==</option>

</select>

<select name="subsubid">

<option selected value="">==子类子类==</option>

</select> <br>

<input TYPE="submit" NAME="Subzmit" VALUE="Submit">

<input TYPE="RESET" NAME="Reset" VALUE="Reset">

</form>

<% set rs = nothing%>

</body>

</html>

shawl.qiu

2006-05-18

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有