<% dim sql,rsBigClass,rsSmallClass,ErrMsg bigclasstable=request("bigclasstable")'"partclass" SmallClasstable=request("SmallClasstable")'"SmallClass" infotable=request("infotable")'"partime" tableSm="SmallPicSml" set rsBigClass=server.CreateObject("adodb.recordset") rsBigClass.open "Select * From "&bigclasstable,conn,1,3 %>

刷新  添加顶级类

<% do while not rsBigClass.eof %> <%if bigclasstable<>"" then%><% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From "&SmallClasstable&" Where BigClassName='" & rsBigClass("BigClassID") & "'",conn,1,3 if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof %> <% set rsSmall2=server.CreateObject("adodb.recordset") rsSmall2.open "Select * From SmallPicSml Where BigClassName='" & rsSmallClass("SmallClassID") & "' order by SmallClassID asc",conn,1,3 if not(rsSmall2.bof and rsSmall2.eof) then while not rsSmall2.eof %> <%rsSmall2.movenext wend end if rsSmall2.close set rsSmall2=nothing %> <% rsSmallClass.movenext loop end if rsSmallClass.close end if set rsSmallClass=nothing rsBigClass.movenext loop %>

ID	栏目名称	排序	图片	操作选项
<%=rsBigClass("BigClassID")%>	<%=rsBigClass("BigClassName")%>	<%=rsBigClass("num")%>	<%if rsBigClass("picurl")<>"" then%> " target="_blank">" height="30" border="0"> <%else response.Write("无") end if%>	<%if bigclasstable="BigClasspidc" then%>&bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>">添加  | <%end if%>&bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>">修改 <%if tableSm="SmallPicSml" then%>   | &bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>" onClick="return ConfirmDelBig();">删除<%end if%>
	<%=rsSmallClass("SmallClassName")%>	<%=rsSmallClass("num")%>	<%if rsSmallClass("picurl")<>"" then%> " target="_blank">" height="40" border="0"> <%else response.Write("无") end if%>	<%if rsBigClass("BigClassID")<>"0" then%> &bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>">添加 | <%end if%> &bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>">修改 | &bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>" onClick="return ConfirmDelSmall();">删除
	<%=rsSmall2("SmallClassName")%>	<%=rsSmall2("num")%>	<%if rsSmall2("picurl")<>"" then%> " target="_blank">" height="40" border="0"> <%else response.Write("无") end if%>	&SmallClassID=<%=rsSmallClass("SmallClassID")%>&bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>">修改 | &SmallClassID=<%=rsSmallClass("SmallClassID")%>&bigclasstable=<%=bigclasstable%>&SmallClasstable=<%=SmallClasstable%>&infotable=<%=infotable%>" onClick="return ConfirmDelSmall();">删除

<% rsBigClass.close set rsBigClass=nothing call CloseConn() %>