|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。为了便利利用分类,我界说了一个分类表category,内里字段是
id(主动编号)cat_name(分类名)parent_id(父ID,对应本表ID)cat_order(按次)is_show(是不是显现)u_id(这个用来区分是旧事分类,仍是产物分类,仍是其他分类),为了便利,我将这些分类全体放在这张表中。
在给客户增加分类的时分,了局有太多的分类,原本前台显现的时分,将它们全体显现出来了,好长。客户提出修正定见,请求将它们改成点击年夜分类,才能够将其子分类显现出来,而且每一个分类上面另有一条虚线,而且年夜分类后面有个图片加号,睁开后要酿成减号。
<script>
functionfd(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)
{
returndocument.getElementById(id);
}
</script>
这是asp无穷级显现分类代码,并给这些分类加上id
<%
功效:asp无穷级显现分类+js显现与埋没
wangsdong
开辟:www.aspprogram.cn
参数:parent_id为父ID,stype为旧事,产物,文章年夜分类
原创文章,转载请保存些信息,感谢
functioncat111(parent_id,stype)
setrs1=server.createobject("adodb.recordset")
sql="selectcat_name,cat_id,parent_idfromcategorywhereparent_id="&parent_id&"andu_id="&stype&"andis_show=1orderbycat_orderasc"
setrs1=conn.execute(sql)
Ifrs1.eofThen
Else
if(depath>2)then
display2="none"
else
display2="block"
endif
dimj
j=1
dowhilenotrs1.eof
cat_name1=rs1("cat_name")
cat_id1=rs1("cat_id")
parent_id1=rs1("parent_id")
******************上面是你要显现的******************
m9=0
sql2="selectcount(cat_id)astfromcategorywhereparent_id="&cat_id1&"andu_id="&stype&""
setrs2=server.createobject("adodb.recordset")
setrs2=conn.execute(sql2)
ifnotrs2.eofthen
m9=rs2("t")
else
m9=0
endif
rs2.close
if(depath<=2)then
mgif="images/-.gif"
a="block"
else
if(m9>0)then
mgif="images/+.gif"
else
mgif="images/-.gif"
endif
if(depath=4)then
a="block"
else
a="none"
endif
endif
catstr=catstr&"<trid=""c"&parent_id&"_"&j&"""style=""display:"&a&"""><tdwidth=""25""align=""center""valign=""middle""class=""dotted_class""><imgsrc="""&mgif&"""width=""12""height=""11""id=""d_"&cat_id1&"""></td><tdclass=""dotted_classleftcatCSS"">"
if(m9>0)then
catstr=catstr&"<ahref=""javascript:void(0);""_fcksavedurl="""javascript:void(0);"""_fcksavedurl="""javascript:void(0);"""fd("&cat_id1&","&m9&")"">"&vbnewline
else
catstr=catstr&"<ahref=""products.asp?id="&cat_id1&"""target=""_blank"">"&vbnewline
endif
fori=1todepath
catstr=catstr&""
Next
catstr=catstr&cat_name1&"</a></td></tr>"&vbnewline
m9=0
sql2="selectcat_name,cat_idfromcategorywhereparent_id="&parent_id1&"andu_id="&stype&"orderbycat_orderasc"
setrs2=server.createobject("adodb.recordset")
setrs2=conn.execute(sql2)
ifnotrs2.eofthen
depath=depath+4
callcat111(cat_id1,stype)
endif
rs2.close
setrs2=nothing
depath=depath-4
******************下面是你要显现的******************
j=j+1
rs1.movenext
loop
EndIf
rs1.close
setrs1=nothing
endFunction
%>
在利用这个函数之前加上
catstr=""
然后再call,上面的虚线加在css中的dotted_class内里,如许就弄定了。
注重:这里失掉的是一个表格的行,要和其他行放在一同,不要加到td内里往了。
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|