国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

ASP實例教程:asp無-限級顯示分類代碼

2019-11-02 14:29:04
字體:
來源:轉載
供稿:網友

為了方便使用分類,我定義了一個分類表category,里面字段是
id(自動編號)  cat_name(分類名) parent_id(父ID,對應本表ID) cat_order(順序) is_show(是否顯示)  u_id(這個用來區別是新聞分類,還是產品分類,還是其他分類),為了方便,我將這些分類全部放在這張表中。
在給客戶添加分類的時候,結果有太多的分類,本來前臺顯示的時候,將它們全部顯示出來了,好長。客戶提出修改意見,要求將它們改成點擊大分類,才可以將其子分類顯示出來,并且每個分類下面還有一條虛線,并且大分類前面有個圖片加號,展開后要變成減號。
<script>
function fd(id,num)
{
 t=$("c"+id+"_1").style.display;
 
 if(t=="none")
 {
   t1="block";
   t2="images/fll_34.gif";
 }
 else
 {
  t1="none"; 
  t2="images/fll_34.gif";
 }
 for(i=1;i<=num;i++)
 {
  $("c"+id+"_"+i).style.display=t1;
  $("d_"+id).src=t2;  
 }
}
function $(id)
{
 return document.getElementById(id);
}
</script>
這是asp無限級顯示分類代碼,并給這些分類加上id

<%
'功能:asp無限級顯示分類+js顯示與隱藏
'參數:parent_id為父ID,stype為新聞,產品,文章大分類
'原創文章,轉載請保留些信息,謝謝
function cat111(parent_id,stype)
set rs1 =server.createobject("adodb.recordset")
sql="select cat_name,cat_id,parent_id from category where parent_id="&parent_id&" and u_id="&stype&" and is_show=1 order by cat_order asc"
set rs1=conn.execute(sql)
If rs1.eof Then
Else 
if(depath>2) then
 display2="none"     
else
 display2="block" 
end if  
dim j
j=1
do while not rs1.eof 
 cat_name1 = rs1("cat_name")
 cat_id1 = rs1("cat_id")  
 parent_id1=rs1("parent_id") 
 '******************下面是你要顯示的******************' 
 m9=0
 sql2="select count(cat_id) as t from category where parent_id="&cat_id1&" and u_id="&stype&""    
 set rs2=server.createobject("adodb.recordset")
 set rs2=conn.execute(sql2) 
 if not rs2.eof then
    m9=rs2("t")
 else
  m9=0  
 end if 
 rs2.close
  
 if(depath<=2) then  
  mgif="images/-.gif"
  a="block"
 else
  if(m9>0) then 
  mgif="images/+.gif" 
  else

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 涿州市| 虎林市| 景东| 松潘县| 周至县| 临武县| 海林市| 佛学| 双桥区| 房山区| 南汇区| 上杭县| 罗田县| 安宁市| 嵩明县| 桐柏县| 通城县| 岳阳县| 二手房| 若尔盖县| 玉屏| 邵武市| 城固县| 南城县| 屏东县| 仙游县| 闻喜县| 商城县| 两当县| 东乌珠穆沁旗| 平果县| 边坝县| 广汉市| 达孜县| 永兴县| 博乐市| 麟游县| 和硕县| 汉寿县| 汉寿县| 新建县|