<% dim menuid,a,b b=Inkcar.GetValue(Inkcar.checkstr(trim(request("i"))),"int",0) a=Inkcar.GetValue(Inkcar.checkstr(trim(request("a"))),"int",0) menuid=Inkcar.GetValue(Inkcar.checkstr(trim(request("menuid"))),"int",0) if menuid=0 then dim trs,tsql tsql="select * from sys_menu where menuparent=6 and visible=true order by menuorder" set trs=objdb.runsql_return_rs(tsql) if not trs.eof then menuid=trs("menuid") end if trs.close:set trs=nothing end if %>
<% openbottom 6,1 %>
Supports
<%openleft 6,"Supports.asp",1,kk%>

 
Current position：Home >> Supports > <% tsql="select * from sys_menu where menuid="&menuid&"" set trs=objdb.runsql_return_rs(tsql) if not trs.eof then response.Write(trs("menuname")) end if trs.close:set trs=nothing %>
<%openbottom menuid,1%>
<% dim prs,psql,ReturnValue1,pageurl,i ReturnValue1=menuid ReturnValue1=GetTypeIdNodes("MenuParent","Sys_menu","menuid",ReturnValue1,ReturnValue1) psql="select * from sys_JS where typeid in ("&ReturnValue1&") and visible=true order by contentorder,update_date desc" set prs=objdb.runsql_return_rs(psql) pageurl=request.serverVariables("SCRIPT_NAME") if instr(PageUrl,"?")<>0 then PageUrl=PageUrl&"&menuid="&request("menuid") else PageUrl=PageUrl&"?menuid="&request("menuid") end if if not prs.eof then Pager.Datasource = prs Pager.PageSize = 20 Pager.pageurl=PageUrl %> <% i=0 do while not prs.eof %> <% i=i+1 if i>=20 then exit do prs.movenext loop %> <%end if prs.close:set prs=nothing %>
&kk=2" ><%=prs("contentname")%>
<%=pager.show()%>