📄 moduleinfo.asp

📁 功能齐全的oa系统

💻 ASP

字号:


<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->

<% '接收域的信息进入变量
Dim ObjDB,RS
Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	Set RS=Server.CreateObject("ADODB.RecordSet")
    RS.Open "SELECT ID,MenuName FROM t_Base_Menu WHERE ParentID='0'",ObjDB 
%>
<HTML>
<HEAD><TITLE>模块信息提示</TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="<%=Application("ROOTPATH")%>Templet/Main.css">
</HEAD>
<BODY>


     <table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=1%><input type=checkbox id=0 name=ITEM value="ON"></td>
		<td width=1%></td>
		<td width=30%>模块所属菜单ID</td>
		<td width=53%>模块所属菜单名称</td>
	</tr>

	<%
		WHILE NOT RS.EOF
	%>
	<tr class=Ltr name=ITEMTR>
		<td><input type=checkbox name=ITEM value="ON"></td>
		<td><img src='../../../images/oa/sys/role/icon.gif'></td>
		<td><%=RS("ID")%></td><td><%=RS("MenuName")%></td>
	</tr>

	<%
	    RS.MoveNext   
		WEND
		RS.Close
	    ObjDB.Close
	    Set ObjDB = Nothing		
	%>
	
	</table>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -