📄 musers_list.asp

📁 用ASP写的电子购物系统

💻 ASP

字号:

<%@ 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>
<%	


	
	cmdTemp.CommandText= "Select Userid,Fullname,groupname From sysuser  Order By userid"
     
	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 
	strLine = "<TR>" & _
			  "<TD><A HREF=musers_form.asp?userid=" & trim(rs(0)) & "&action=update>" & trim(rs(0)) & "</A></TD>" & _
			  "<TD>" & trim(rs(1)) & "</TD>" & _
			  "<TD align=center>"&trim(rs(2)) & "</TD></TR>"
	Response.Write strLine
	rs.MoveNext 
	wend
		
	Response.Write "</TABLE>"
	rs.Close 

    %>

	<div align=center>
	<table>
	<tr>
	<form action=musers_list.asp method=post name=frmusers>
        		
	</form>

		<form action=musers_form.asp method=post name=frmusers_form>
		<input type=hidden name=action value="add">
		<td><input type=submit name =cbutton value=增加用户 style=HEIGHT: 24px; WIDTH: 78px></td>
	</tr>
	</table></FORM>
	</div>
</td>
</table>
<!--#INCLUDE FILE = "include/copyright.asp" -->

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -