<%
'说明:
'表单名称为myform
'程序编制:时代互联网服务中心
'程序编制:薛振山
'网址:http://www.9816.net
%>
<script language = "JavaScript">
<% 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("子目录名称"))%>","<%= 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 = 1;
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: 12px">
<option value="" selected>选择主目录</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from 主目录"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("主目录id")%>"><%=trim(rs("主目录名称"))%></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: 12px">
<option value="" selected>请选择子目录</option>
</select>