梦想飞翔 - 2006

category.asp源代码：
<% dim conn dim connstr dim db db="dn.mdb" '数据库文件位置 'on error resume next connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else conn.open connstr end if sub CloseConn()   conn.close   set conn=nothing end sub Public Function CateList(parentid,k)  Dim Rs  Set Rs = Conn.Execute("select [id],[pid],[sortid],[category] from [category] where [pid]="&parentid&" order by [sortid]")  Do While Not Rs.EOF   CateList = CateList & "<option value='"&Rs("id")&"'>&nbsp;|&nbsp; "&Separator(k)&"﹍"&Rs("category")&"</td></tr>"   CateList = CateList & CateList(Rs("id"),k+1)   Rs.MoveNext  Loop  Rs.close  set Rs = nothing End Function Private Function Separator(n)  Dim i  For i = 0 To n   Separator = Separator & "&nbsp;| &nbsp;"  Next End Function Public Function SelectCategory()   StrOut = ""   StrOut = Strout & "<select name='catid' style='font-size:12px;font-family:arial;width:200px;'>"     Set Rs = Conn.Execute("select * from [category] where pid=0 order by sortid")     Do While Not Rs.EOF       StrOut = Strout & "<option value='"&Rs("id")&"'>&nbsp;|_" & Rs("category") & "</option>"       StrOut = Strout & CateList(Rs("Id"),0)       Rs.MoveNext     loop     Rs.Close   StrOut = StrOut & "</select>"   SelectCategory=StrOut End Function Public Function GetChildCate(currentid)  Dim Rs  Set Rs = Conn.Execute("select [id],[pid] from [category] where [pid]="&currentid)  Do While Not Rs.EOF     GetChildCate = GetChildCate & Rs("id") & ","     GetChildCate = GetChildCate & GetChildCate(Rs("id"))   Rs.MoveNext  Loop  Rs.close  set Rs = nothing End Function '调用示例 Response.Write(SelectCategory()) '调用示例 Response.Write(GetChildCate(4)&"4") %>

其中数据库的结构：
id->自动编号;
category->文字类，即分类的名称;
pid->父id的记录;
sortid->排序id;
cdate->分类建立的时间;

附源文件与数据库：[mDown=attachments/month_0708/h2007828231559.zip]点击下载此文件[/mDown]