三级联动问题- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1134

會員總數：246268
討論主題：189809

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> 三级联动问题

[]

[我要回覆]

三级联动问题
價值 : 50 QP 點閱數:912 回應數:5

樓主

jendy

0	16
198	35

發送站內信

想做一个三级联动的菜单，但是只实现了一个，第二个没有起作用，找不到原因，在此麻烦各位大神帮看看，错在哪里。谢谢了！提示错误是：‘document.addNEWS.SsclassName‘为空或不是对象。

<%
dim rs
dim rs2
dim rs3
dim sql
dim sql2
dim sql3
dim count
dim count2
set rs=server.createobject("adodb.recordset")
sql = "select * from SmallClass where SmallClassID order by SmallClassID asc"
rs.open sql,conn,1,1
set rs2=server.createobject("adodb.recordset")
sql2="select * from ssclass order by ssid asc"
rs2.open sql2,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../include/css.css" type="text/css">
<title>添加文章</title>
</head>

<body leftmargin="0" topmargin="0" bgcolor="#FFFFEE">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2">
  <form name="addNEWS" method="post" action="addinfo_ok.asp" onSubmit="return CheckForm();">
    <tr> 
      <td height="25"><font color="#FF0000">*</font>新闻类别：</td>
      <td colspan="2"> 
        <%
        sql = "select * from BigClass where urlok=0 and  bigclassid in ("&session("strbigidtype")&")"
        rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			response.write "请先添加栏目。"
		else
		%>
        <select name="BigClassName" onChange="changelocation(document.addNEWS.BigClassName.options[document.addNEWS.BigClassName.selectedIndex].value)" size="1">
          <option selected value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
          <%
			dim selclass
		    selclass=rs("BigClassName")
        	rs.movenext
		    do while not rs.eof
			%>
          <option value="<%=trim(rs("BigClassName"))%>"><%=trim(rs("BigClassName"))%></option>
          <%
		        rs.movenext
    	    loop
		end if
        rs.close
			%>
        </select> 
          <%
        sql2 = "select * from SmallClass where BigClassName='" & selclass & "'"
        rs2.open sql2,conn,1,1
		if rs2.eof and rs2.bof then
			response.write "请先添加二级栏目。"
		else
		%>
        <select name="SmallClassName" onChange="changelocation2(document.addNEWS.SmallClassName.options[document.addNEWS.SmallClassName.selectedIndex].value)">
        <option value="" selected>***请指定二级分类***</option><option selected value="<%=trim(rs2("SmallClassName"))%>"><%=trim(rs2("SmallClassName"))%></option>
         <%
			dim selclass2
		    selclass2=rs2("SmallClassName")
        	rs2.movenext
		    do while not rs2.eof
			%>
          <option value="<%=trim(rs2("SmallClassName"))%>"><%=trim(rs2("SmallClassName"))%></option>
          <%
		        rs2.movenext
    	    loop
		end if
        rs2.close
			%>
        </select>
        <%response.Write(selclass2)%>
        <%
		Set rs3 = Server.CreateObject("ADODB.Recordset") 
        sql3 = "select * from ssclass where SmallClassName='" & selclass2 & "'"
        rs3.open sql3,conn,1,1
		if rs3.eof and rs3.bof then
			response.write "请先添加三级栏目。"
		else
		%>
        <select name="SscalssName"><option value="" selected>请指定三级分类</option>
        <option selected value="<%=trim(rs3("SscalssName"))%>"><%=trim(rs3("SscalssName"))%></option>
         <%
			dim selclass3
		    selclass3=rs3("SmallClassName")
        	rs3.movenext
		    do while not rs3.eof
			%>
          <option value="<%=trim(rs3("SscalssName"))%>"><%=trim(rs3("SscalssName"))%></option>
          <%
		        rs3.movenext
    	    loop
		end if
        rs3.close
			%>
        </select>        </td>
    </tr>
		
</table>
</body>
</html>

搜尋相關Tags的文章： [ 三级联动 ] ,
本篇文章發表於2014-01-15 00:09

== 簽名檔 ==
人要过得充实！！

1樓回應迷路	143行 <select name="SscalssName"> 打錯字了改成 <select name="SsclassName"> 本篇文章回覆於2014-01-15 09:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應老頑童	好像不止一個地方打錯 52行trim(rs2("SscalssName"))也是建議重新檢查一次本篇文章回覆於2014-01-15 09:56 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓作者回應 jendy	改过来了，现在没有提示出错，但还是实现不了，还有哪个地方没有写对？本篇文章回覆於2014-01-15 11:16 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應老頑童	請檢視產生出來的html原始碼看跟你要的有什麼地方有出入再針對該部份進行調整本篇文章回覆於2014-01-15 11:43 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應 jendy	第一级改变时，第二级能跟着改变；但改变第二级时，第三级没有反应，在134行写的<%response.Write(selclass2)%>显示的内容也没有改变。本篇文章回覆於2014-01-15 11:59 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.

1樓回應迷路	143行 <select name="SscalssName"> 打錯字了改成 <select name="SsclassName"> 本篇文章回覆於2014-01-15 09:13 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應老頑童	好像不止一個地方打錯 52行trim(rs2("SscalssName"))也是建議重新檢查一次本篇文章回覆於2014-01-15 09:56 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓作者回應 jendy	改过来了，现在没有提示出错，但还是实现不了，还有哪个地方没有写对？本篇文章回覆於2014-01-15 11:16 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應老頑童	請檢視產生出來的html原始碼看跟你要的有什麼地方有出入再針對該部份進行調整本篇文章回覆於2014-01-15 11:43 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓作者回應 jendy	第一级改变时，第二级能跟着改变；但改变第二级时，第三级没有反应，在134行写的<%response.Write(selclass2)%>显示的内容也没有改变。本篇文章回覆於2014-01-15 11:59 == 簽名檔 == --未登入的會員無法查看對方簽名檔--