muserright.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 108 行

ASP
108 行
字号 
<%@ Language=VBScript %>
<!--#INCLUDE FILE = "include/manager.asp" -->
<%functionno=4%>
<!--#INCLUDE FILE="checkuser.asp" -->
<% pageTitle = "用户组权限分配" %>
<%function CheckGroupPrivilege(functionid,groupname)

	Set rsSysgp = Server.CreateObject("ADODB.Recordset")
	cmdTemp.CommandText = "select * from privilege where groupname='" & groupname & "'and functionid=" & functionid 
	rsSysgp.Open cmdTemp, , adOpenKeyset, adLockReadOnly
	if rsSysgp.EOF =true then
		CheckgroupPrivilege=false
	else 
		CheckgroupPrivilege=true
	end if
	rsSysgp.Close
end function
%>
<%
	strugroup=trim(cstr(Request("groupname")))
	
%>

<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">
<meta http-equiv="Content-Type" CONTENT="text/html"; charset="gb2312">
<LINK REL=stylesheet HREF="manager.css" TYPE="text/css">
</HEAD>

<body topmargin="0" >
<!--#INCLUDE FILE = "include/header.asp" -->

<table border="0" width="100%" height="423" cellspacing="0" cellpadding="0">
  <tr>
    <td width="140"  valign="top" >
    <!--#INCLUDE FILE = "include/menu.asp" -->
    </td>
    <td width="1" bgcolor="#000000" ></td>
    <td width="600" height="423" align="center" valign="top" class="main">
	<br>
<P>
<form name="userright_process" action="userright_process.asp" method="post">

<TABLE BORDER=1 CELLPADDING=0  cellspacing=0 bordercolorlight="black" bordercolordark="white" bordercolor="black"
class="main"  >
    
    <TR align=middle >
        <TH>功能号</TH>
        <TH width=200>功能</TH>
        <TH>权限</TH>
    </TR>
    <%  
	dim strtaskid
	dim straccess
	dim strtaskdesc
	
	Response.Write "<INPUT TYPE=HIDDEN NAME=groupname VALUE=" & strugroup & ">"
	set rs = Server.CreateObject("ADODB.Recordset")
		
  cmdTemp.CommandText="Select sysfunction.id,sysfunction.Description  From sysfunction"
  rs.Open  cmdTemp,  , adOpenKeyset

	if rs.EOF then
		Response.Write "先输入功能项后再授权"
	else
		do while not rs.EOF
			strtaskid=trim(cstr(rs(0)))
			if not isnull(rs(1)) then
				strtaskdesc=trim(cstr(rs(1)))
			else
				strtaskdesc=""
			end if

					
			Response.Write "<TR><TD>" & strtaskid & "</TD>"
			Response.Write "<TD>" & strtaskdesc & "</TD>"
			
			if CheckGroupPrivilege(strtaskid,strugroup)="True"  then
				Response.Write "<TD align=middle><INPUT id=b name=b type=checkbox checked value=" & strtaskid & "></TD>"
			else
				Response.Write "<TD align=middle><INPUT id=b name=b type=checkbox value="& strtaskid & "></TD>"
			end if
			
            Response.Write "</TR>"
            rs.MoveNext 
        loop
		rs.Close 
	end if
	set rs=nothing
%>

    </TABLE></P>
<TABLE align=center border=0 cellPadding=1 cellSpacing=1 style="WIDTH: 100px" 
width=100>
    
    <TR>
        <TD><INPUT id=submit1 name=submit1 type=submit value=提交></TD>
        <TD><INPUT id=reset1 name=reset1 type=reset value=恢复></TD></TR></TABLE></FORM>
</td>
</table>
<!--#INCLUDE FILE = "include/copyright.asp" -->

</body>
</html>        
</BODY>
</HTML>

muserright.asp - 源码说明

本页面展示了「用ASP写的电子购物系统」中的 muserright.asp 源码文件，采用 ASP 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?