********************** (1) 기록 집합 을 열 고 배열 을 만 들 고 기록 집합 값 을 배열 에 부여 합 니 다.<% Dim count set Rs=server.createobject("adodb.recordset") Sql = "select * from BookBoard order by ClassId desc" Rs.open Sql,cn,1,1%>
var onecount; onecount=0; subcat = new Array(); <%count = 0 do while not Rs.eof %> subcat[<%=count%>] = new Array("<%= trim(Rs("BoardName"))%>","<%= trim(Rs("ClassId"))%>","<%= trim(Rs("BoardId"))%>"); <%count = count + 1 Rs.movenext loop Rs.close%> onecount=<%=count%>; function changelocation(locationid) {document.form1.BoardId.length = 0; var locationid=locationid; var i; for (i=0;i < onecount; i++) {if (subcat[i][1] == locationid) {document.form1.BoardId.options[document.form1.BoardId.length] = new Option(subcat[i][0], subcat[i][2]); }}} ********************** (둘) 그룹 을 표시 하고 목록 상자 의 OnChange 이 벤트 를 작성 합 니 다.<%set Rs=server.CreateObject("adodb.recordset") Sql="select * from BookClass order by ClassId desc" Rs.open Sql,cn,1,1 if Rs.eof and Rs.bof then response.write "총 류 를 먼저 추가 해 주세요." response.end else%> ===큰 종 류 를 선택 하 십시오= <% do until Rs.eof%> "><%=trim(Rs("ClassName"))%> <%Rs.movenext loop end if Rs.close set Rs = nothing%> ===작은 종 류 를 선택 하 십시오=
