利用ASP嵌套JS+SQL Server打造两级连动下拉框（2）
TwoLevel.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>下拉列表示例</title>
</head>
<%
dim conn
dim connstr
on error resume next
set conn=server.CreateObject("ADODB.connection")
connstr="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_ProvinceCat"
conn.Open connstr
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select * from Tb_Province"
Rs.open SQL,conn,1,1
if Not Rs.Eof then
Dim strJScript
strJScript=""
Response.Write("<SCRIPT language=JavaScript>")&chr(13)
Response.Write("function setcategory(S){")&chr(13)
Response.Write("S.category.length="+Cstr(Rs.Recordcount+1)+";")&chr(13)
dim i
i=0
While Not Rs.Eof
strJScript=strJScript+"S.category.options["+CStr(i)+"].value="+chr(34)+Trim(Rs("ProvinceCode"))+chr(34)+";"+chr(13)
strJScript=strJScript+"S.category.options["+CStr(i)+"].text="+chr(34)+Trim(Rs("ProvinceName"))+chr(34)+";"+chr(13)
i=i+1
Rs.MoveNext
Wend
Response.write(strJScript)
Response.Write("S.category.options["+CStr(i)+"].value="+chr(34)+"无"+chr(34)+";"+chr(13))
Response.Write("S.category.options["+CStr(i)+"].text="+chr(34)+"**请选择省份**"+chr(34)+";"+chr(13))
Response.Write("S.category.options["+Cstr(i)+"].selected=true;"+chr(13))
Response.Write("}")&chr(13)
Rs.Close
Set Rs=Nothing
end if
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select Num=Count(*),Tb_Province.ProvinceCode From Tb_Province,Tb_City where Tb_Province.ProvinceCode=substring(Tb_City.CityCode,1,2) group by Tb_Province.ProvinceCode order by Tb_Province.ProvinceCode"
Rs.open SQL,conn,1,1
if Not Rs.Eof then
dim Num(30),j
j=0
Do While Not Rs.Eof
Num(j)=Rs("Num")
j=j+1
Rs.MoveNext
Loop
end if
Rs.Close
set Rs=Nothing
SQL=""
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="Select Tb_Province.*,Tb_City.* From Tb_Province,Tb_City where Tb_Province.ProvinceCode=substring(Tb_City.CityCode,1,2) order by Tb_Province.ProvinceCode"
Rs.open SQL,conn,1,1
j=0
if Not Rs.Eof then
Response.Write("function setsmall_cat(D){")&chr(13)
Response.Write("var valuecategory=D.category.options[D.category.selectedIndex].value;")&chr(13)
Response.write("if(valuecategory.indexOf("+chr(34)+"无"+chr(34)+")==0){"+chr(13)&_
"D.small_cat.length=1;"&_
"D.small_cat.options[0].value="+chr(34)+"无"+chr(34)+";"+chr(13)&_
"D.small_cat.options[0].text="+chr(34)+"**请选择城市**"+chr(34)+chr(13)&_
"D.small_cat.options[0].selected=true;"+chr(13)&_
"}")
i=0
dim NextLevel,UpCatCode,overflow
NextLevel="N"
overflow="N"
strJScript=""
Do While Not Rs.Eof
UpcateCode=Trim(Rs("ProvinceCode"))
if NextLevel="N" then
strJScript="else if(valuecategory.indexOf("+chr(34)+UpcateCode+chr(34)+")==0){"+chr(13)
strJScript=strJScript+"D.small_cat.length="+Cstr(Num(j))+";"+chr(13)
j=j+1
NextLevel="Y"
end if
strJScript=strJScript+"D.small_cat.options["+CStr(i)+"].value="+chr(34)+Trim(Rs("CityCode"))+chr(34)+";"+chr(13)
strJScript=strJScript+"D.small_cat.options["+CStr(i)+"].text="+chr(34)+Trim(Rs("CityName"))+chr(34)+";"+chr(13)
i=i+1
Rs.MoveNext
if UpcateCode<>Trim(Rs("ProvinceCode")) then
overflow="Y"
end if
if overflow="Y" then
Response.write(strJScript+"}")
strJScript=""
overflow="N"
NextLevel="N"
i=0
end if
Loop
Response.Write("}</Script>")&chr(13)
Rs.Close
Set Rs=Nothing
end if
Conn.close
set conn=nothing
%>
<body onload=setcategory(document.select);setsmall_cat(document.select)>
<Form name="select" method="POST" action="#">
<center>
<Table>
<TR> <td>请选择：</td>
<TD><SELECT onchange=setsmall_cat(document.select) name=category size="1" ></SELECT> <SELECT name=small_cat size="1" ></SELECT> </TD>
</TR>
</Table></center>
</Form>
</body>
</html>
第三，进行代码调试。
本程序在WIN2000+IIS+SQL Server7.0环境下调试通过。
（全文完）
