func_menulist.asp

企业办公简单管理系统,可以发布信息以及论坛

 <table  width="100%" align="center" border=0 cellspacing="0" >
<%    
	if session("roleid")="" then
		response.Redirect "messageA.asp?rediurl=default.asp&msgurl=登录&msginfo=您没有登录或登录信息丢失，请登录！"
	else
		if session("username")="admin" then                                                                          
			sql="select window,caption from cci_menu"  
		else
			sql="select b.caption,b.window from cci_menulist a,cci_menu b where a.menuid=b.id and a.roleID=" & session("roleid") & " order by b.iorder"
		end if
		
		set menurs=createobject("adodb.recordset") 
		menurs.open sql,connObj,1,1                                                                                                                                        
		do while not menurs.eof      
			response.write "<tr><td align=center height=20><a href=" &menurs("window")& ">" & menurs("caption") & "</a></td></tr>"                                                                     
			menurs.movenext                                    
		loop    
		menurs.close
		set menurs=nothing 

	end if

				
%> 
</table>