求且ASP+ZTREE生成JSON

Cookie的源码世界 2015-11-14 08:43:51
大家好,请教一下ASP+ZTREE生成JSON

部门表:UsersDept
DeptID 自动编号
DeptName 部门名称
DeptParent 上级部门ID

员工表:Users
UsersID 自动编号
UsersName 员工姓名
UsersDept 部门ID

需要实现前台加载,后台ASP动态生成的数据,谢谢大家了




...全文
132 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
非常感谢,已经解决了,谢谢
bluegone 2015-11-17
  • 打赏
  • 举报
回复
参考一下我的代码“ Case "GetUserMenuList" UserID = 8 Gp_Code =2000 If Len(Trim(userid))<>0 Then Sql = "select ShortMenuId from Sys_RenUser where UserID="&UserID Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 1, 1 If rs.recordcount<>0 Then List = rs(0) rs.Close() Else List = "" rs.Close() End If If Len(Trim(List))<>0 Then Sql = "select sys_menu.Sm_ID,sys_menu.Sm_Name,sys_menu.Sm_Url,sys_menu.Sm_Icon,sys_menu.Sm_Detail,Sys_GroupPower.SetGpower from Sys_Menu left join Sys_GroupPower on Sys_GroupPower.Sm_ID= sys_menu.Sm_ID where sys_menu.Sm_ID in ("&List&") and Sys_GroupPower.Gp_Code="&Gp_Code rs.Open sql, conn, 1, 1 Do While Not rs.EOF title = Rs("Sm_Name") id = Rs("Sm_ID") Url = rs("Sm_Url") actionType = rs("SetGpower") tip=rs("Sm_Detail") Icon = "img/16/link.png" iconCls = rs("Sm_Icon") json = json&"{'text':'"&title&"'," json = json&"'id':'"&id&"'," json = json&"'url':'"&Url&"'," json = json&"'icon':'"&Icon&"'," json = json&"'iconCls':'"&iconCls&"'," json = json&"'actionType':"&actionType&"," json = json&"'qtip':'"&tip&"'," json = json&"'leaf':true" json = json&"}," rs.movenext Loop rs.Close() Set rs = Nothing json = "["&Left(json, Len(json) -1)&"]" response.Write json Else response.Write "[]" End If Else Response.Write "[]" End If
Go 旅城通票 2015-11-16
  • 打赏
  • 举报
回复
自己看demo生成ztree需要的数据源

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧