<script language = "JavaScript">
<%
'asp动态二级联动选择输入框的制作
'程序提供：时代互联网服务中心
'http://www.9816.net
'本程序是做为修改信息用的
'新增信息时，需变动几个参数
dim count
%>
   var onecount;
   subcat = new Array();
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from 子目录"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
    count = 0
    do while not rs.eof
%>
    subcat[<%=count%>] = new Array("<%'显示信息%><%=trim(rs("子目录名称"))%>","<%'联动控制参数(主目录的id)%><%= trim(rs("主目录的id"))%>","<%'传递的变量%><%= trim(rs("子目录的id"))%>");
<%
    count = count + 1
    rs.movenext
    loop
end if
rs.close
set rs=nothing
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.zimulu.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
    {
        if (subcat[i][1] == locationid)
        {
            document.myform.zimulu.options[document.myform.zimulu.length] = new Option(subcat[i][0], subcat[i][2]);
        }       
    }
}
</script>

<select name="anclassid" onchange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)" size="1" style="color: #333333; font-size: 14px">
<%
'原主目录
dim yuanda
set rs=server.CreateObject("adodb.recordset")
sql="select * from 主目录 where anclassid=" & 传递过来的主目录id
rs.open sql,conn,1,1
yuanda=trim(rs("anclass"))
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select * from 主目录"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option <% if clng(rs("anclassid"))=传递过来的主目录id then%> selected<% end if %> value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>   
</select>
<% if cint(chanpincaidan)=2 then %>
子目录:
<select name="zimulu" id="zimulu" size="1" style="color: #333333; font-size: 14px">
<%
'原子目录
dim yuanzi
set rs=server.CreateObject("adodb.recordset")
sql="select * from 子目录 where id=" & 库中子目录的id
rs.open sql,conn,1,1
yuanzi=trim(rs("子目录名称"))
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql1= "select * from 子目录 where 主目录的id=" & 库中主目录id
rs.open sql1,conn,1,1
if not(rs.eof or rs.bof) then
do while not rs.eof
%>
<option value="<%=rs("id")%>" <%if rs("id")=库中子目录id then%>selected<%end if%>><%=rs("子目录名称")%></option>
<%
rs.movenext
loop   
end if
rs.close
set rs=nothing
%>
</select>
<% end if %><%
    response.write "<font color='#0000FF'>【原分类：" & yuanda
    if cint(chanpincaidan)=2 then
        response.write " → " & yuanzi
    end if
    response.write "】</font>"
else
    response.write "无分类"
end if
%>