orderpage.aspx

来自「用VB实现」· ASPX 代码 · 共 107 行

ASPX
107 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>



<script runat="server">

Sub dgCustomer_OnSortCommand(sender as Object , e as DataGridSortCommandEventArgs)
 Dim strSort as  string  
 strSort = "" 
 If Request.QueryString("sortBy") = e.SortExpression  Then  
	 
   	  if (Request.QueryString("strSort") = "") then 	     
		     strSort = "ASC"	     
	   else if (Request.QueryString("strSort") = "ASC") then 	     
		     strSort = "DESC" 	     
	   else if (Request.QueryString("strSort") = "DESC") then 	    
			 strSort = "ASC"
	   end if     
 ELSE 
    strSort = "ASC"    
 END IF 
 Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & _
 "?sortBy=" & e.SortExpression & "&strSort=" & strSort  ) 
 
End Sub 

</script>

<MM:DataSet 
id="dsCustomer"
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 Customers ORDER BY " & _
                IIF(NOT LEN(Request.QueryString("sortBy")) > 0  , "CustomerID ",Request.QueryString("sortBy") & " ") & _
     			IIF(NOT LEN(Request.QueryString("strSort")) > 0 ,"ASC",Request.QueryString("strSort"))  %>'
PageSize="10"
Debug="true"
></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">
  <div align="center">
  <asp:DataGrid 
  AllowCustomPaging="true" 
  AllowPaging="true" 
  AllowSorting="true" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  DataSource="<%# dsCustomer.DefaultView %>" id="dgCustomer" 
  PagerStyle-Mode="NumericPages" 
  PageSize="<%# dsCustomer.PageSize %>" 
  runat="server" 
  ShowFooter="true" 
  ShowHeader="true"  OnSortCommand="dgCustomer_OnSortCommand" 
  OnPageIndexChanged="dsCustomer.OnDataGridPageIndexChanged" 
  VirtualItemCount="<%# dsCustomer.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="#000000" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" ForeColor="#FFFFFF" />      
<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" PageButtonCount = "5"   />      
<Columns>
<asp:BoundColumn DataField="CustomerID" 
        HeaderText="客户编号" 
        ReadOnly="true" SortExpression="CustomerID" 
        Visible="true" runat="server"/>
<asp:BoundColumn DataField="CustomerName" 
        HeaderText="客户名称" 
        ReadOnly="true" SortExpression="CustomerName" 
        Visible="true" runat="server"/>
<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"/>
</Columns>
    </asp:DataGrid>
  </div>
</form>
</body>
</html>

orderpage.aspx - 源码说明

本页面展示了「用VB实现」中的 orderpage.aspx 源码文件，采用 ASPX 编程语言编写，共 107 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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