memberlist.aspx
来自「用VB实现」· ASPX 代码 · 共 104 行
ASPX
104 行
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet
id="dsMember"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM Member WHERE ID LIKE ?" %>'
PageSize="10"
Debug="true"
>
<Parameters>
<Parameter Name="@ID" Value='<%# "%" & txtID.Text & "%" %>' Type="WChar" />
</Parameters>
<EditOps>
<EditOpsTable Name="Member" />
<Parameter Name="ID" Type="WChar" IsPrimary="true" /></EditOps>
</MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员资料列表</title>
</head>
<body>
<form runat="server">
<asp:Label ID="lblID" runat="server" Text="会员用户名"></asp:Label>
<asp:TextBox ID="txtID" runat="server" /><asp:Button ID="btnSearch" runat="server" Text="搜索" />
<hr>
<asp:DataGrid
AllowCustomPaging="true"
AllowPaging="true"
AllowSorting="False"
AutoGenerateColumns="false"
CellPadding="3"
CellSpacing="0" DataKeyField="ID"
DataSource="<%# dsMember.DefaultView %>" id="gdMember"
PagerStyle-Mode="NextPrev"
PageSize="<%# dsMember.PageSize %>"
runat="server"
ShowFooter="false"
ShowHeader="true"
OnPageIndexChanged="dsMember.OnDataGridPageIndexChanged" OnDeleteCommand="dsMember.OnDataGridDelete"
VirtualItemCount="<%# dsMember.RecordCount %>"
>
<HeaderStyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />
<ItemStyle BackColor="#F2F2F2" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />
<AlternatingItemStyle BackColor="#E5E5E5" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />
<FooterStyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />
<PagerStyle BackColor="white" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />
<Columns>
<asp:BoundColumn DataField="ID"
HeaderText="用户名"
ReadOnly="true"
Visible="True"/>
<asp:BoundColumn DataField="Name"
HeaderText="名称"
ReadOnly="true"
Visible="True"/>
<asp:BoundColumn DataField="Phone"
HeaderText="电话"
ReadOnly="true"
Visible="True"/>
<asp:BoundColumn DataField="eMail"
HeaderText="联系电子邮件"
ReadOnly="true"
Visible="True"/>
<asp:BoundColumn DataField="city"
HeaderText="城市"
ReadOnly="true"
Visible="True"/>
<asp:BoundColumn DataField="Address"
HeaderText="地址"
ReadOnly="true"
Visible="True"/>
<asp:TemplateColumn HeaderText="权限"
Visible="True">
<ItemTemplate><%# IIf(dsMember.FieldValue("Rights", Container) = True , "停权","") %></ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="等级"
Visible="True">
<ItemTemplate> <%# IIF(dsMember.FieldValue("GroupID", Container)=1,"管理员","") %> </ItemTemplate>
</asp:TemplateColumn>
<asp:ButtonColumn
ButtonType="PushButton"
CommandName="Delete"
HeaderText="删除"
Text="删除"
Visible="True"/>
<asp:HyperLinkColumn
DataNavigateUrlField="ID"
DataNavigateUrlFormatString="MemberModiA.aspx?ID={0}"
Visible="True"
HeaderText="编辑" text="修改会员资料"/>
</Columns>
</asp:DataGrid>
<div align="center"></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?