view.asp

功能齐全的oa系统

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

<%
	Dim ObjDB,ObjRS,C,StrSQL
	Dim IntModuleID,IntRoleID
	Dim StrModuleCName,StrOptionLevel
	Dim ObjModule
	Dim StrPerName,StrDes
		
	IntRoleID = Request.QueryString("RoleID")
	IntModuleID = Request.QueryString("ID")

	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)

	StrSQL = "Select * From t_OA_SYS_Role_Permission Where RoleID = " & IntRoleID & " And ModuleID = " & IntModuleID

	StrPerName = "没有权限"
	StrDes =  "没有权限"
	
	
	Set ObjRS = C.View(StrSQL)
	StrSQL = "Select CName From t_Base_Module Where ID = " & IntModuleID
	Set ObjModule = C.View(StrSQL)
	StrModuleCName = ObjModule("CName")

	If ObjRS("ID") <> "" Then

		StrSQL = "Select PerName,Des From t_Base_Module_Permission Where ModuleID = " & IntModuleID & " And PerLevel = " & ObjRS("PerLevel")
		Set ObjModule = C.View(StrSQL)
		StrPerName = ObjModule("PerName")
		StrDes = ObjModule("Des")
	End If

	
	ObjDB.Close
	Set ObjDB = Nothing
	
	


%>


<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

	
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width="15%">查看角色权限</td>
		<td width="85%"></td>
	</tr>
	<tr class=Ltr>
		<td>模块名称</td>
		<td><input type="text" class=Input name="CName" readonly value="<%=StrModuleCName%>"></td>
	</tr>
	<tr class=Ltr>
		<td>权限</td>
		<td><input type="text" class=Input name="PerName" readonly value="<%=StrPerName%>"></td>
	</tr>
	<tr class=Ltr>
		<td>描述</td>
		<td><input type="text" class=Input name="PerName" readonly value="<%=StrDes%>"></td>
	</tr>
	
	<table cellspacing=1 cellpadding=3>
	<tr>
		<td>
		<input type="button" class=Button value="返 回" onclick="doList()" id=button1 name=button1>
		</td>
		<td>
		</td>
	</tr>
	</table>
	


<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

<!-- #include file="Templet.asp" -->