参考一下我的代码“
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