orderlist.aspx

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

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

Dim strUpdate as String = ""
Dim strConn as String = System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") 
Dim objConn as  New System.Data.OleDb.OleDbConnection(strConn) 

Sub Page_Load(sender As Object, e As System.EventArgs)
  if not len(txteMail.Text) > 0 then 
      txteMail.Text = Request.QueryString("OrdereMail")	    
  end if 
End Sub

Sub btnSearch_Click(sender As Object, e As System.EventArgs)
   Response.Redirect("OrderList.aspx?OrdereMail=" & txteMail.Text  )  
End Sub

sub btnOrder_Click(sender As Object, e As System.EventArgs)
 Dim objCheckBox as System.Web.UI.WebControls.CheckBox
 Dim intLoop as integer  
 Dim blnChecked as Boolean 
 For intLoop = 0 To dgNotOrder.Items.Count-1
   strUpdate = ""
   objCheckBox = dgNotOrder.Items.item(intLoop).Cells(3).controls(1)
   blnChecked  = objCheckBox.Checked
   
   If blnChecked = True  Then   
	 strUpdate ="INSERT INTO OrderList (OrderID , OrdereMail,  CatID) " & _
                "VALUES ('" & txtID.Text &  "','" & txteMail.Text & "'," & dgNotOrder.Items.item(intLoop).Cells(0).Text & ")"	
	objConn.Open()
	 Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
	 cmd.ExecuteNonQuery  
	 objConn.Close()
	 
   End IF    
 Next 
 Response.Redirect("OrderList.aspx?OrdereMail=" & txteMail.Text  )
End Sub 


Sub btnCancel_Click(sender As Object, e As System.EventArgs)
 Dim objCheckBox as System.Web.UI.WebControls.CheckBox
 Dim intLoop as integer  
 Dim blnChecked as Boolean 
 For intLoop = 0 To dgOrderList.Items.Count-1
   strUpdate = ""
   objCheckBox = dgOrderList.Items.item(intLoop).Cells(2).controls(1)
   blnChecked  = objCheckBox.Checked
   
   If blnChecked = True Then   
	 strUpdate  ="Delete FROM OrderList WHERE OrdereMail='" & txteMail.Text &  "' AND CatID =" & dgOrderList.Items.item(intLoop).Cells(0).Text 
	 objConn.Open()
	 Dim cmd as New System.Data.OleDb.OleDbCommand(strUpdate,objConn)
	 cmd.ExecuteNonQuery  
	 objConn.Close()
   End IF    
 Next   
 Response.Redirect("OrderList.aspx?OrdereMail=" & txteMail.Text  )
End Sub 

</script>

<MM:DataSet 
id="dseMail"
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 OrderList  WHERE OrdereMail = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@OrdereMail"  Value='<%# IIf((Request.QueryString("OrdereMail") <> Nothing), Request.QueryString("OrdereMail"), txteMail.Text) %>'  Type="WChar"   />  
  </Parameters>
</MM:DataSet>

<MM:DataSet 
id="dsOrder"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT Cat.* FROM Cat  INNER JOIN OrderList  ON Cat.CatID = OrderList.CatID WHERE  OrderList.OrdereMail = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@OrdereMail"  Value='<%# IIf((Request.QueryString("OrdereMail") <> Nothing), Request.QueryString("OrdereMail"), txteMail.Text) %>'  Type="WChar"   />  
  </Parameters>
</MM:DataSet>
<MM:DataSet 
id="dsNotOrder"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT Cat.* FROM Cat  WHERE CatID NOT IN(SELECT CatID FROM OrderList  WHERE  OrderList.OrdereMail = ? )" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@OrdereMail"  Value='<%# IIf((Request.QueryString("OrdereMail") <> Nothing), Request.QueryString("OrdereMail"), txteMail.Text) %>'  Type="WChar"   />    
  </Parameters>
</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>
<style type="text/css">
<!--
.style3 {	font-size: x-large;
	font-weight: bold;
}
.style2 {font-size: 16px; }
.style4 {font-size: large}
-->
</style>
</head>
<body><form runat="server">
  <div align="center">
    <table width="567" height="116" border="0">
      <tr>
        <td height="17" colspan="2"><span class="style3">订阅信息</span> <hr>         
        <div align="left"></div></td>
      </tr>
      <tr valign="middle">
        <td width="113" height="17" bgcolor="#99CCCC"><div align="right"><span class="style2">电子邮件</span></div></td>
        <td width="444"><div align="left">
          <asp:TextBox ID="txteMail" runat="server" />          
<asp:Button ID="btnSearch" runat="server" Text="搜索" OnClick = "btnSearch_Click"/>          
<hr>
        </div></td>
      </tr>
      <tr>
        <td height="17" valign="top" bgcolor="#99CCCC"><div align="right"><span class="style2">称谓</span></div></td>
        <td><div align="left">
            <asp:TextBox ID="txtID" runat="server" text='<%# dseMail.FieldValue("OrderID", Container) %>' />      
  </div></td>
      </tr>
      <tr>
        <td height="17" rowspan="2" valign="middle" bgcolor="#99CCCC"><div align="right" class="style4">订阅内容</div></td>
        <td><hr align="left">
            <div align="left">
              <asp:DataGrid id="dgOrderList" 
  runat="server" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  ShowFooter="false" 
  ShowHeader="true" 
  DataSource="<%# dsOrder.DefaultView %>" 
  PagerStyle-Mode="NextPrev" 
>
                <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="CatID" 
        HeaderText="编号" 
        ReadOnly="true" 
        Visible="True"/>        
                <asp:BoundColumn DataField="CatName" 
        HeaderText="名称" 
        ReadOnly="true" 
        Visible="True"/>        
		 <asp:TemplateColumn HeaderText="取消订阅" Visible="True">
                <ItemTemplate>
                  <asp:CheckBox ID="chkOrder" runat="server" />        
        </ItemTemplate>
              </asp:TemplateColumn>
        </Columns>	
              </asp:DataGrid>
          </div></td>
      </tr>
      <tr>
        <td><div align="left">
            <asp:Button ID="btnCancel" runat="server" Text="取消订阅" OnClick ="btnCancel_Click"/>      
  </div></td>
      </tr>
<tr>
        <td height="17" rowspan="2" bgcolor="#99CCCC"><div align="right" class="style4">未订阅内容</div></td>
        <td><hr align="left">
            <div align="left">
            <asp:DataGrid AllowPaging="false" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  DataSource="<%# dsNotOrder.DefaultView %>" id="dgNotOrder" 
  runat="server" 
  ShowFooter="false" 
  ShowHeader="true" 
>
              <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="CatID" 
        HeaderText="编号" 
        ReadOnly="true" 
        Visible="True"/>        
              <asp:BoundColumn DataField="CatName" 
        HeaderText="分类" 
        ReadOnly="true" 
        Visible="True"/>        
              <asp:BoundColumn DataField="CatDescription" 
        HeaderText="说明" 
        ReadOnly="true" 
        Visible="True"/>  		   
              <asp:TemplateColumn HeaderText="订阅" Visible="True">
                <ItemTemplate>
                  <asp:CheckBox ID="chkOrder" runat="server" />        
                </ItemTemplate>
              </asp:TemplateColumn>
              </Columns>
            </asp:DataGrid>
        </td>
      </tr>
      <tr>
        <td><div align="left">
            <asp:Button ID="btnOrder" Text="订阅" runat="server"  OnClick="btnOrder_Click" />      
  </div></td>
      </tr>
    </table>
    
  </div>
  
</form>
</body>
</html>