📄 subroleright.asp
字号:
<!-- #include virtual="include/DataEnvi.asp" -->
<%
Dim SQL, ObjRS, ObjDB, SecMenuID, ArrOpType
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB '执行数据库的取值操作
SecMenuID = 1
SQL = "Select OpTypeID From t_OA_Sub_secMenu Where SecMenuid = " & SecMenuID
Set ObjRS = ObjDB.Execute(SQL)
'Response.Write ObjRS("OpTypeID")
'Response.End
if ObjRS("OpTypeID") <> "" then
ArrOpType = split(ObjRS("OpTypeID"),",")
End if
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="<%=Application("ROOTPATH")%>Templet/main.css">
</head>
<body leftmargin="0" topmargin="0">
<table border=0 cellspacing=0 cellpadding=0 width=102% height="9%">
<tr class="toolbar">
<td class=title align=left width=80%>详细员工信息</td>
<%
i = 0
while i < 5
Select case ArrOpType(i)
case "0"
%>
<td align=right width=6%>
<a href="#" onclick="parent.parent.IframeMain.location='<%=ListPath%>'">全部浏览</a>
</td>
<%
case "1"
%>
<td align=right>
<a href="#" onclick="parent.parent.IframeMain.location='<%=AddPath%>'">新增</a>
</td>
<%
case "2"
%>
<td align=right>
<a href="#" onclick="parent.parent.IframeMain.location='<%=DelPath%>'">删除</a>
</td>
<%
case "3"
%>
<td align=right>
<a href="#" onclick="parent.parent.IframeMain.location='<%=EditPath%>'">修改</a>
</td>
<%
case "4"
%>
<td align=right>
<a href="#" onclick="parent.parent.IframeMain.location='<%=SelectPath%>'">查询</a>
</td>
<%
End Select
i = i + 1
Wend
%>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -