无限级分类递归法(超简单)

最新推荐文章于 2021-11-28 14:45:25 发布

原创最新推荐文章于 2021-11-28 14:45:25 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #sql #string

本文介绍使用VBScript实现动态下拉菜单的方法，通过连接数据库获取类别信息并填充到HTML选择框中，适用于网站后台管理系统。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<select name="categoryid">
<%
'表名：category
'字段名:categoryid,category,OrderID,parentID
TimesDB="../Data/#TimesShop.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr

sort(0)
dim ii
ii=0
sub sort(selec)
sql="select * from category where ParentID = "&selec&" order by OrderID"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if selec=0 then
%>
<option value="<%=int(rs1("categoryid"))%>">|…<%=rs1("category")%></option>
<%
else
%>
<option value="<%=int(rs1("categoryid"))%>">|<%=string(ii,"　")%>|…<%=rs1("category")%></option>
<%
end if
ii=ii+1
sort rs1("categoryid")
ii=ii-1
rs1.movenext
loop
rs1.close
Set Rs1 = Nothing
end sub