佳木斯湛栽影视文化发展公司
主頁(yè) > 知識(shí)庫(kù) > 編寫一個(gè)含二級(jí)目錄的源碼(Asp+JavaScript)

編寫一個(gè)含二級(jí)目錄的源碼(Asp+JavaScript)
熱門標(biāo)簽：銀行業(yè)務(wù) 阿里云 服務(wù)器配置 電子圍欄 Mysql連接數(shù)設(shè)置 Linux服務(wù)器 科大訊飛語(yǔ)音識(shí)別系統(tǒng) 團(tuán)購(gòu)網(wǎng)站
********************** (一) 打開記錄集,創(chuàng)建數(shù)組,把記錄集的值賦給數(shù)組.
% 
Dim count
set Rs=server.createobject("adodb.recordset")
Sql = "select * from BookBoard order by ClassId desc"
Rs.open Sql,cn,1,1%>
script language = "JavaScript">
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]);
}}}    
/script>
********************** (二) 顯示分組,并編寫列表框的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 "請(qǐng)先添加總類。"
    response.end
    else%>
    select name="ClassId" onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">
    option selected value="">==請(qǐng)選擇大類==/option>
    % do until Rs.eof%>
    option value="%=trim(Rs("ClassId"))%>">%=trim(Rs("ClassName"))%>/option>
     %Rs.movenext
       loop
       end if
       Rs.close
       set Rs = nothing%>
    /select>
    select name="BoardId">option selected value="">==請(qǐng)選擇小類==/option>
    /select>

標(biāo)簽：蚌埠 棗莊 廣元 萍鄉(xiāng) 江蘇 大理 衢州 衡水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《編寫一個(gè)含二級(jí)目錄的源碼(Asp+JavaScript)》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    凤山市| 珲春市| 延长县| 平泉县| 满洲里市| 彭泽县| 搜索| 荣昌县| 济南市| 新闻| 三台县| 遂川县| 昭通市| 古交市| 崇左市| 南开区| 崇仁县| 罗山县| 东源县| 临汾市| 象山县| 蓝山县| 城口县| 锦屏县| 凤山县| 宜都市| 无棣县| 漾濞| 吐鲁番市| 宁国市| 乌海市| 苗栗县| 金川县| 宜章县| 太谷县| 宁南县| 新泰市| 靖江市| 九江市| 洱源县| 镇康县|