ASP编程：asp无穷级分类加js压缩舒展功能代码
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的捆绑而显现出来； 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 那么，ASP.Net有哪些改进呢？ ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
页:
[1]