mgroup_list.asp

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

ASP
90 行
字号 
<%@ Language=VBScript %>
<!--#INCLUDE FILE = "include/manager.asp" -->
<% pageTitle = "用户组管理" %>
<%functionno=4%>
<!--#INCLUDE FILE="checkuser.asp" -->

<HTML>
<HEAD>
    <TITLE> <% = pageTitle %> </TITLE>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
    <LINK REL=stylesheet HREF="manager.css" TYPE="text/css">
    <% stdListRange = 15 %>
</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>
	
<%	'record_number=10
	'record_total =0
	'pg_previous="上一页"
	'pg_next="下一页"
	addtask="增加组"
	'nrow_min= Request("nrow_min")
	'nrow_max= Request("nrow_max")
	'cbutton= Request("cbutton")
	on error resume next

	
	Response.Write "<FONT color=mediumblue face= style=BACKGROUND-COLOR: #ffffff>"


     cmdTemp.CommandText="Select Name,description From workgroup " 
    
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open  cmdTemp,  , adOpenKeyset
	
  %>
	
	<TABLE BORDER=1 CELLPADDING=0  cellspacing=0 bordercolorlight="black" bordercolordark="white" bordercolor="black" class="main">
	<TR align= center>
			  <TH>用户组名</TH>
			  <TH>用户组描述</TH>
			  <TH>用户组权限</TH></TR>
  
		
	<%	
   while not rs.EOF ' "&" & "groupna="&trim(rs(1))& 
	strLine = "<TR>" & _
			  "<TD><A HREF=mgroup_form.asp?action=update&groupname=" & trim(rs("name")) & _
			  "&" & "groupdesc=" & trim(rs("description")) & ">" & trim(rs("name")) & "</A></TD>" & _
			  "<TD>" & trim(rs("description")) & "</TD>" & _
			  "<TD><A HREF=muserright.asp?" & "groupname=" & trim(rs("name")) & ">权限</A></TD>"&"</TR>"
			 ' "<TD>" & trim(rs(2)) & "</TD>" & _
			 ' "<TD align=right>" & trim(rs(3)) & "</TD>" & _
			  
	Response.Write strLine
	rs.MoveNext 
	wend
	Response.Write "</TABLE>"
	
	rs.Close 
	set rs = nothing
%>
 
	<div align=center>
	<table>
	<tr>

	<form action=mgroup_form.asp method=post name=frmgroup>
		<input type=hidden name=action value="add">
	<td><input type=submit name =cbutton value=增加组></td>
	</tr>
	</table></FORM>
	</div>
 
</td>
</table>
<!--#INCLUDE FILE = "include/copyright.asp" -->

</body>
</html>

mgroup_list.asp - 源码说明

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

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

⌨️ 快捷键说明

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