天天看點

關于SELECT的無限級聯

index.asp

绋?搴?浠g??锛?

<html>

<head>

<title></title>

<meta content="text/html; charset=gb2312" 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绾ф?幫?浠??猴?

//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??SP寰??版?版??搴????版???ユ?存?頒?绾у??琛?? document.all.list_file.src="jscript_city.asp?base="+pBase+"&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" 慰nl慰ad="funOnload();">

<form name="Form1">

<select name="Select01" 慰nchange="chgSelect(1,this.options[this.selectedIndex].value,'Select02')">

? <option value="">??...</option>

</select>

<select name="Select02" 慰nchange="chgSelect(2,this.options[this.selectedIndex].value,'Select03')">

? <option value="">甯?...</option>

</select>

<select name="Select03" 慰nchange="chgSelect(3,this.options[this.selectedIndex].value,'Select04')">

? <option value="">??..</option>

</select>

<select name="Select04" 慰nchange="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

绋?搴?浠g??锛?

<%

' varBase 涓???????绛?绾?' varSele ?????╀???????椤圭???版??搴?ID

' varElem 涓?涓?绾х??琛ㄥ????绉?

varBase=Request.QueryString("base")

varSele=Left(Request.QueryString("sele"),InStr(Request.QueryString("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")&chr(34)

? varAutoID=varAutoID&chr(34)&rsRecord("id")&chr(34)

? 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;"&vbcrlf)

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 杩?涓?灏變??ㄨ?翠?????浠躲???垮害??宸辯??????

??绋?搴???IS4+WIN2000P+ACCESS2000涓???杩????