标题标题  显示论坛会员列表名单  搜索论坛搜索  HelpHelp
  注册注册  登入登入
ASP教学区
 DoReMe : ASP教学区
主题 话题: 关于<SELECT>的无限级联(省|市|县|乡|村|...) 回复发表新主题
作者
贴子内容 << Prev Topic下一个主题 >>
gigigo
Groupie
Groupie


加入: 2004/5月/31
Online Status: Offline
回复: 42
Posted: 2004/5月/31 10:28上午 | IP记录 引用 gigigo

index.asp
<html>
<head>
<title></title>
<meta content="text/html; charset=big5" http-equiv="content-type">
<style type="text/css"><!--
FONT{font-size:12px}
TD{font-size:12px}
A{color:#333399}
A:hover{color:#FF6600}
--></style>
<script language="javascript" type="text/javascript"><!--
function funOnload(){
document.all.list_file.src="jscript_city.asp?base=0&sele =0-&elem=Select01";
}

//pBase级数,以0基,
//pSele是<option 的value值
//pEle是下一级的窗体名字
function chgSelect(pBase,pSele,pElem){
//当改变了一个列表之后。清除以后的列表的值。
for(i=parseInt(pElem.replace("Select",""));i<=5;i++){
var tmp="000"+i;
var pElem1=eval("document.Form1.Select"+tmp.substr(tmp.length-2) );

pElem1.length=1;
pElem1.selectedIndex=0;
}

//JS用ASP得到资料库的资料来更新下级列表
document.all.list_file.src="jscript_city.asp?base="+pBase+"& amp;sele="+pSele+"&elem="+pElem;
}

//--></script>
<script id="list_file" language="javascript" type="text/javascript" src=""></script>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="2" text="#333333" onload="funOnload();">
<form name="Form1">
<select name="Select01" onchange="chgSelect(1,this.options[this.selectedIndex].value,'Select02')">
<option value="">省...</option>
</select>
<select name="Select02" onchange="chgSelect(2,this.options[this.selectedIndex].value,'Select03')">
<option value="">市...</option>
</select>
<select name="Select03" onchange="chgSelect(3,this.options[this.selectedIndex].value,'Select04')">
<option value="">县...</option>
</select>
<select name="Select04" onchange="chgSelect(4,this.options[this.selectedIndex].value,'Select05')">
<option value="">乡...</option>
</select>
<select name="Select05">
<option value="">村...</option>
</select>
</form>
</body></html>

'jscript_city.asp
<%
' varBase 下拉选单等级
' varSele 所选择下拉选单项的资料库ID
' varElem 下一级的窗体名称

varBase=Request.QueryString("base")
varSele=Left(Request.QueryString("sele"),InStr(Request.Query String("sele"),"-")-1)
varElem=Request.QueryString("elem")

varDistName=""
varAutoID=""

Set conDB=Server.CreateObject("ADODB.CONNECTION")
conDB.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db1.mdb")

sqlCommand="select * from table1 where filed1="&varBase&" and filed2="&varSele
Set rsRecord=conDB.Execute(sqlCommand)

While Not rsRecord.eof
varDistName=varDistName&chr(34)&rsRecord("filed3")&a mp;chr(34)
varAutoID=varAutoID&chr(34)&rsRecord("id")&chr(3 4)

rsRecord.movenext
If Not rsRecord.Eof Then
varDistName=varDistName&","
varAutoID=varAutoID&","
End If
Wend

Response.Write("var varDistName=new Array("&varDistName&")"&vbcrlf)
Response.Write("var varAutoID=new Array("&varAutoID&")"&vbcrlf)

Response.Write("var varElem=eval("&chr(34)&"document.Form1."&varElem &chr(34)&")"&vbcrlf)

Response.Write("varElem.length=varDistName.length+1;"&vb crlf)

Response.Write("for(var i=0;i<varDistName.length;i++){"&vbcrlf)
Response.Write(" varElem.options[i+1].text=varDistName;"&vbcrlf)
Response.Write(" varElem.options[i+1].value=varAutoID+'-'+varDistName;"&vbcrlf)
Response.Write("}"&vbcrlf)

Response.Write("varElem.selectedIndex=0;"&vbcrlf)

%>

db1.mdb
'-------------------------------------------------
福建 厦门 思明 黄厝 曾厝桉村
福建 泉州 丰泽 西湖 水头村

如上面的五级转成资料库为:
'-------------------------------
id filed1 filed2 filed3
1 0 0 福建
2 1 1 厦门
3 1 1 泉州
4 2 2 思明
5 3 4 黄厝
6 4 5 曾厝桉村
7 2 3 丰泽
8 3 7 西湖
9 4 8 水头村
'-------------------------------------------------
资料库说明:
id 自动编号
filed1 下拉选单列表的等级(看级数。可以设置它的精度。是数字类型)
filed2 上一级的id号(用长整型吧)
filed3 这个就不用说了吧(文件。长度自己看情况)

本程序在IIS4+WIN2000P+ACCESS2000下通过。
Back to Top 查看 gigigo's 资料 搜索其它贴子 gigigo 访问 gigigo's
 

如果你想回复的话你必须首先 login
如果你还没有注册的话你必须首先 注册

  回复发表新主题
显示可打印的页面 显示可打印的页面

论坛跳转
不能 张贴新论题在这个讨论版
不能 回应论题在这个讨论版
不能 删除你的发言在这个讨论版
不能 编辑你的发言在这个讨论版
不能 新增投票标题在这个讨论版
不能 在这个讨论版投票

Edit by doreme Forums version 2004
Welcome ©2001-2004 doreme Guide

This page was generated in 0.1563 seconds.

 
保养品
保养品, Skin Care
www.elady.tw
美材批发
美材, Cosmetic
www.elady.tw/beauty_org
保养品批发
名牌保养品、保养品批发
gb.perfume.com.tw/skincare
饰品批发
饰品、饰品批发
gb.perfume.com.tw/ornament