这是本来的静态的二级菜单
四撑杆两瓣抓斗
网站基本数据
管理员管理
留言本管理
更改管理员密码
更新首页统计数
四撑杆两瓣抓斗
公告管理
新添公告
投票管理
新添投票
新闻管理 | 添加
弹性平衡异步多颚板抓斗
彩信管理
彩铃管理
新增影音
分类管理
新增分类
防漏抓斗
分类管理
文章管理
新增分类
新增文章
其他相关产品
分类管理
新增分类
图片管理
新增图片
asp 动态二级菜单
<%
If Not CatRs.Eof Then ' http://localhost/Double/product.asp?SubCategoryID=731
Response.Write "
"
tablenum=tablenum+1
Response.Write ""
Response.Write ""
Response.Write "
'Response.Write "" & CatRs("CateName") & ""
Response.Write CatRs("CateName")
Response.Write" "
Response.Write ""
Response.Write ""
Response.Write "
"
Response.Write "
"
tablenum=tablenum+1
Response.Write ""
set SubRs = Server.CreateObject("ADODB.Recordset")
SubRsSql = "SELECT * FROM CN_SubCategory where CategoryID="&CatRs("id")
SubRs.Open SubRsSql,conn,1,1
Do While Not SubRs.Eof
If Not SubRs.Eof Then
Response.Write ""
Response.Write ""&SubRs("SubCategory")&" "
Response.Write ""
SubRs.MoveNext
End If
Loop
SubRs.Close()
Response.Write ""
Response.Write "
"
Response.Write "
"
Response.Write ""
Response.Write " "
Response.Write "
"
CatRs.MoveNext
End If
%>