修改并测试正确的SELECT的无限级联(省|市|县|乡|村|...)

2012-3-31 ok12

index.asp代码如下：

<html>

<head>

<title></title>

<meta content="text/html; charset=gb2312" http-equiv="content-type">

<style type="text/css"></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+"&sele="+pSele+"&elem="+pElem+"&t=" + new Date().getTime();

}

//--></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.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[i];"&vbcrlf)

Response.Write("    varElem.options[i+1].value=varAutoID[i]+'-'+varDistName[i];"&vbcrlf)

Response.Write("}"&vbcrlf)

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

%>

发表评论：