產品選單展開問題
產品選單展開問題
茶米站長你好：
我的產品選單(有大項目及小項目是配合資料庫所寫(access))，但是我想做產品選單展開及收縮的功能如何完成呢？
請各方高手指點 謝謝！
Re:產品選單展開問題
一般會員
產品展開跟收縮功能真的不難
重點是妳有沒有辦法先把妳的大小分類透過程是印在螢幕上
比方像是
A
A-1
A-2
A-3
B
B-1
B-2
B-3
如果你可以做到這個地步~那麼開合式選單五分鐘之內就完成了
自己先試試看吧
我是小包
Re:產品選單展開問題
一般會員
首先謝謝小包的答覆，我目前有辦法大小類顯示出來沒問題，但因商品種類多； 所以才想要用展開及收縮的功能
我是用 dreamweaver asp+access 寫的 但是我套用 java 程式都失敗 不知如何是好 煩請小包 解惑
如果可以的話 我將程式mail 給你好嗎
my email：skya307156@yahoo.com.tw Skype：skya307156 謝謝
Re:產品選單展開問題
一般會員
我給妳一串程式
全部貼在Body標籤內
自己試試看吧
<style type="text/css">.menu {display:none; margin-left:20px}</style>
<a href="#" onClick="return toggleMenu('menu1')">Comedies</a><span class="menu" id="menu1">All's Well That Ends Well</span>
<script type="text/javascript" language="Javascript">
/*=======*/
//開合式選單
/*=======*/
function toggleMenu(currMenu)
{
if (document.getElementById)
{
thisMenu = document.getElementById(currMenu).style
if (thisMenu.display == "block")
{
thisMenu.display = "none"
}
else
{
thisMenu.display = "block"
}
return false
}
else
{
return true
}
}
</script>
Re:產品選單展開問題
一般會員
謝謝小包的答覆 萬分感謝 我這樣套進去如下 但還是不行 ...傷腦筋 大項目有出來 小項目只出現一個 因為('menu1')的原因，那如何讓小項目也順利顯示出來呢....
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connmedica.asp" -->
<%
Dim RecPA
Dim RecPA_numRows
Set RecPA = Server.CreateObject("ADODB.Recordset")
RecPA.ActiveConnection = MM_connmedica_STRING
RecPA.Source = "SELECT * FROM PRO_LIST"
RecPA.CursorType = 0
RecPA.CursorLocation = 2
RecPA.LockType = 1
RecPA.Open()
RecPA_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
RecPA_numRows = RecPA_numRows + Repeat1__numRows
%>
<% Dim TFM_nest, lastTFM_nest%>
<html>
<head>
<title>可伸縮的選單功能表</title>
<style type="text/css">
td {font-size: 12px;}
.style23 {color: #990099}
</style>
</head>
<body>
<style type="text/css">.menu {display:none; margin-left:20px}</style>
<script type="text/javascript" language="Javascript">
/*=======*/
//開合式選單
/*=======*/
function toggleMenu(currMenu)
{
if (document.getElementById)
{
thisMenu = document.getElementById(currMenu).style
if (thisMenu.display == "block")
{
thisMenu.display = "none"
}
else
{
thisMenu.display = "block"
}
return false
}
else
{
return true
}
}
</script>
<%
While ((Repeat1__numRows <> 0) AND (NOT RecPA.EOF))
%>
<table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="160" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td><span class="style23">
<% TFM_nest = RecPA.Fields.Item("p_bigitem").Value
If lastTFM_nest <> TFM_nest Then
lastTFM_nest = TFM_nest %>
<a href="#" onClick="return toggleMenu('menu1')"><%=(RecPA.Fields.Item("p_bigitem").Value)%></a>
<%End If 'End Basic-UltraDev Simulated Nested Repeat %>
</span></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="160" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td><span class="menu" id="menu1"><%=(RecPA.Fields.Item("p_middleitem").Value)%></td></span>
</tr>
</table></td>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RecPA.MoveNext()
Wend
%></tr>
</table>
</body>
</html>
<%
RecPA.Close()
Set RecPA = Nothing
%>
Re:產品選單展開問題
一般會員
因為menu1
那個1你也要設定是動態變數鴨
1就是你的順序號
1=>開啟大分類1的小分類位置
2=>開啟大分類2的小分類位置
以此類推
自己設定一個變數~用資料庫的主索引編號即可
Re:產品選單展開問題
一般會員
請問以解決嗎
能分享給我知道嗎
謝
Re:產品選單展開問題
一般會員
問題依舊沒有解決 不知如何是好~~~~~~~~~~~
Re:產品選單展開問題
一般會員
....
怎麼會沒有解決
menux
x=變數值
你可以抓你資料庫裡面的主所引或是主鍵的編號
再套上去
即可
一般會員