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

最新推荐文章于 2024-07-12 16:27:40 发布

btbtd

最新推荐文章于 2024-07-12 16:27:40 发布

阅读量1.6k

点赞数

文章标签： vbscript javascript access asp string function

本文链接：https://blog.csdn.net/btbtd/article/details/746204

版权

Me Script 同时被 3 个专栏收录

88 篇文章 0 订阅

订阅专栏

MS ASP

78 篇文章 0 订阅

订阅专栏

MS Access

36 篇文章 0 订阅

订阅专栏

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

正文:

QUOTE:

作用说明:
选择一级类别, 关联显示隶属二级类别, 再关联显示隶属于二级类别的三级类别

CODE:

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



<!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 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

btbtd

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
2006-05-18 Javascript + Asp VBScript +Access 三级联列表框 By Stabx

<!--code { line-height: 150%; text-transform: none; color: #000000; background-color: #FFFFFF; }quote { line-height: 150%; text-transform: none; color: #FF9933; background-c
复制链接

扫一扫