asp.net总结(2)

原创 2007年09月21日 12:44:00
create table worker (name varchar(10),age varchar(10),sex varchar(10),part varchar(100),salary varchar(100))
insert into worker
select 'xlei','25','male','bank','199' union all
select 'zll','25','remale','techion','299' union all
select 'wting','25','male','mobile','399' union all
select 'syong','25','remale','save','499' union all
select 'lbin','25','male','echo','599'


name  age   sex      part        salary
lbin    25    male    mobile    599
syong    25    remale    save    499
wting    25    male    mobile    399
xlei    25    male    bank    199
zll    25    remale    bank    299
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebDataList2.aspx.vb" Inherits="WebApplication1.WebDataList2"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
    
<HEAD>
        
<title>WebDataList2</title>
        
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
        
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
        
<meta content="JavaScript" name="vs_defaultClientScript">
        
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
    
</HEAD>
    
<body MS_POSITIONING="GridLayout">
        
<form id="Form1" method="post" runat="server">
            
<FONT face="MS UI Gothic">
                
<asp:datalist id="DataList2" style="Z-INDEX: 101; LEFT: 32px; POSITION: absolute; TOP: 56px" runat="server"
                    Width
="552px">
                    
<SelectedItemTemplate>
                        
<asp:Button id="Button3" runat="server" Text="Cancel" CommandName="unselect"></asp:Button>
                    
</SelectedItemTemplate>
                    
<ItemTemplate>//这是初始状态,首先datalist与数据库绑定,然后以下是将初始状态控件与数据库绑定后的显示,一般用来操作text或者label链接等关于文本的绑定
                        
<asp:Label id=Label1 runat="server" Width="96px" Text='<%# DataBinder.Eval(Container, "DataItem.name") %>'>name</asp:Label>
                        <asp:Label id=Label2 runat="server" Width="64px" Text='<%# DataBinder.Eval(Container, "DataItem.age") %>'>age</asp:Label>
                        <asp:Label id=Label3 runat="server" Width="72px" Text='<%# DataBinder.Eval(Container, "DataItem.sex") %>'>sex</asp:Label>
                        <asp:Label id=Label4 runat="server" Width="80px" Text='<%# DataBinder.Eval(Container, "DataItem.part") %>'>part</asp:Label>
                        <asp:Label id=Label5 runat="server" Width="152px" Text='<%# DataBinder.Eval(Container, "DataItem.salary") %>'>salary</asp:Label>
                        <asp:Button id="Button1" runat="server" Text="Select" CommandName="select"></asp:Button>
                        
<asp:Button id="Button2" runat="server" Text="Edit" CommandName="edit"></asp:Button>
                    <
asp:CheckBox id="CheckBox1" runat="server"/asp:><CheckBox>
                       <asp:Button id="Button7" runat="server" Text="Delete" CommandName="delete"></asp:Button>
                       </ItemTemplate>

                    <EditItemTemplate>这是编辑状态,当我们点击编辑后布局以及控件与数据库绑定显示
                        
<asp:Label id=Label6 runat="server" Width="88px" Text='<%# DataBinder.Eval(Container, "DataItem.name") %>'>name</asp:Label>
                        <asp:Label id=Label7 runat="server" Width="72px" Text='<%# DataBinder.Eval(Container, "DataItem.age") %>'>age</asp:Label>
                        <asp:DropDownList id="DropDownList1" runat="server" Width="128px"></asp:DropDownList>
                        
<asp:TextBox id=TextBox1 runat="server" Width="176px" Text='<%# DataBinder.Eval(Container, "DataItem.salary") %>'>salary</asp:TextBox>
                        <asp:Button id="Button4" runat="server" Text="Cancel" CommandName="cancel"></asp:Button>
                        
<asp:Button id="Button5" runat="server" Text="Update" CommandName="update"></asp:Button>
                    
</EditItemTemplate>
                
</asp:datalist>
                   < asp:Button id="Button6" style="Z-INDEX: 102; LEFT: 48px; POSITION: absolute; TOP: 432px" runat="server" Text="Button"></asp:Button>
                 </FONT></form>
     
</body>
</HTML>

Imports System.Data
Imports System.Data.OleDb

Public Class WebDataList2
    
Inherits System.Web.UI.Page
    
Dim objConn As New OleDbConnection


Web フォーム デザイナで生成されたコード

    
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
If Not Me.IsPostBack Then
            
Call conn()
        
End If
    
End Sub


    
Public Sub conn()
  
        objConn.Open()
        
Dim objAdapter As New OleDbDataAdapter("SELECT * From worker order by name", objConn)
        
Dim ds As DataSet = New DataSet
        objAdapter.Fill(ds, 
"users")
        DataList2.DataSource 
= ds.Tables(0)
        DataList2.DataBind()
        objConn.Close()
    
End Sub


    
Private Sub DataList2_ItemCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.ItemCommand

//需要我们在初始,选择,编辑状态
中的按钮等控件分别设置CommandName,点击不同的按钮就会触发该事件,然后判断该按钮的CommandName从而进入相应的选择,编辑还是更新状态,需要在update按钮中CommandName=“update”才可进行update操作,见前台
If e.CommandName = "select" Then
            DataList2.SelectedIndex 
= e.Item.ItemIndex
//点击某行选择按钮,然后该行就会处于选择状态
            Call conn()
        
ElseIf e.CommandName = "unselect" Then
            DataList2.SelectedIndex 
= -1
            
Call conn()
        
ElseIf e.CommandName = "edit" Then
            DataList2.EditItemIndex 
= e.Item.ItemIndex  //点击某行编辑按钮,然后该行就会处于编辑状态
            
Call conn()
        
ElseIf e.CommandName = "cancel" Then
//取消编辑选择操作
            DataList2.EditItemIndex 
= -1
            
Call conn()
        
End If

    
End Sub


    
Private Sub DataList2_ItemDataBound(ByVal sender As ObjectByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList2.ItemDataBound
//当datalist与数据库绑定,就会触发该事件,然后逐行的判断e.Item.ItemType状态第一次绑定时,判断的顺序第一行状态为ListItemType.Item 第二行为ListItemType.AlternatingItem...如果我们点击了第n行选择,第n+1行为编辑,这时与数据库绑定后触发该事件顺序为当 n行时状态为ListItemType.SelectedItem,n+1行为ListItemType.EditItem ,其它和初始状态一样,注意的就是逐行的判断然后绑定数据

Dim objAdapter As New OleDbDataAdapter("SELECT * From worker order by name  ", objConn)
        
Dim ds As DataSet = New DataSet
        objAdapter.Fill(ds, 
"users")
        
If e.Item.ItemType = ListItemType.EditItem Then            '
            If objConn.State = ConnectionState.Open Then
                objConn.Close()
            
End If
            objConn.Open()
            
Dim SelectDropDownList As DropDownList
            SelectDropDownList 
= CType(e.Item.FindControl("DropDownList1"), DropDownList)
            SelectDropDownList.DataSource 
= ds.Tables(0)
            SelectDropDownList.DataTextField 
= "part"
            
Dim str As String = ds.Tables(0).Rows(e.Item.ItemIndex)(3)//通过读取数据库里的数据来判断
            SelectDropDownList.DataBind()
            SelectDropDownList.SelectedIndex 
= SelectDropDownList.Items.IndexOf(SelectDropDownList.Items.FindByText(str))

        
End If
    
End Sub


    
Private Sub DataList2_UpdateCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.UpdateCommand
        
Dim str As String
        
str = "update worker set part='" & CType(e.Item.FindControl("DropDownList1"), DropDownList).SelectedItem.Text & "' where name='" & CType(e.Item.FindControl("label6"), Label).Text & "'"
        
Dim objCmd As New OleDbCommand(str, objConn)
        objConn.Open()
        objCmd.ExecuteNonQuery()
        DataList2.EditItemIndex 
= -1
        objConn.Close()
        
Call conn()
    
End Sub
End Class

 
    Private Sub DataList2_DeleteCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.DeleteCommand
        
Dim str As String
        
Dim CheckBoxValue As CheckBox
        CheckBoxValue 
= CType(e.Item.FindControl("CheckBox1"), CheckBox)
        
If CheckBoxValue.Checked = True Then
            
str = "delete from  worker where name='" & CType(e.Item.FindControl("label1"), Label).Text & "'"
            
Dim objCmd As New OleDbCommand(str, objConn)
            objConn.Open()
            objCmd.ExecuteNonQuery()
            DataList2.EditItemIndex 
= -1
            objConn.Close()
            
Call conn()
        
End If
    
End Sub


    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        
Dim MyItem As DataListItem    //在外部遍历ditalist
        
For Each MyItem In DataList2.Items
            
Dim CheckBoxValue As CheckBox
            
Dim LabelValue As Label
            CheckBoxValue 
= CType(MyItem.FindControl("CheckBox1"), CheckBox)
            LabelValue 
= CType(MyItem.FindControl("Label1"), Label)
            
If CheckBoxValue.Checked = True Then
                Response.Write(MyItem.ItemIndex 
& "&nbsp" & LabelValue.Text & "<br>")
            
End If
        
Next

        
'Dim i As Integer
        'For i = 0 To DataList2.Items.Count - 1
        'Dim ccc As CheckBox
        'ccc = CType(MyItem.FindControl("CheckBox1"), CheckBox)
        'Response.Write(i & "<br>")
        'Next
    End Sub

ASP.NET中常用功能代码总结(2)——生成验证图片

生成随机的验证图片 使用方法: 1///调用函数将验证码生成图片 2            this.CreateCheckCodeImage(GenerateCheckCode()); ...
  • jurken
  • jurken
  • 2014年10月04日 21:03
  • 226

一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之创建Viewport(2)

现在要考虑的是如何加载标签页内的内容。虽然标签页默认是延迟渲染的(deferredRender值默认为true),但是它会预加载所有的类,因而当类文件很多的时候,加载时间就是一大问题了。这个,也可通过...

ASP.NET MVC3细嚼慢咽---(2)模板页

这一节演示下MVC3中怎样使用模板页,在传统的webform设计模式中,我们使用masterpage作为模板页,在MVC3 razor视图设计中,我们使用另一种方式作为模板页。 新建一个MVC3项目...

Web API--入门--(一)ASP.NET Web API 2(C#)入门

示例代码下载地址:http://download.csdn.net/detail/gangzhucoll/9844909 HTTP不仅仅是为了提供网页。它也是构建公开服务和数据的API的强大平台。...

ASP.NET MVC 入门2、项目的目录结构与核心的DLL

ASP.NET MVC 入门2、项目的目录结构与核心的DLL 我们新建一个ASP.NET MVC的Web Application后,默认的情况下,项目的目录结构如下: App_Data :这个目...
  • bin0451
  • bin0451
  • 2013年11月05日 15:00
  • 488

asp.net如何加快页面加载(三)——后台代码之细节2(while,do..while,for,foreach)

上一章节将的是如何使用选择判断语法,今天讲的大家都熟悉的循环语句。我想大家对while,do..while,for,foreach都不陌生吧,但在于性能方面上似乎又觉得陌生? 到底哪个性能更高,效率更...

[ASP.NET MVC 大牛之路]03 - C#高级知识点概要(2) - 线程和并发

[ASP.NET MVC 大牛之路]03 - C#高级知识点概要(2) - 线程和并发 我也想过跳过C#高级知识点概要直接讲MVC,但经过前思后想,还是觉得有必要讲的。我希望通过自己...
  • Litt_J
  • Litt_J
  • 2014年12月30日 12:02
  • 1094

ASP.NET MVC+EF框架+EasyUI实现权限管理系列(2)-数据库访问层的设计Demo

ASP.NET MVC+EF框架+EasyUI实现权限管系列 (开篇) (1)框架搭建   前言:这篇博客我们继续来实现我的权限系列,这个博客一段时间也没有写了,重点是我在想还写不写,最终我决定...
  • txqqnet
  • txqqnet
  • 2013年10月10日 20:57
  • 1586

ASP.NET中应用Excel:(2)释放对象

我们访问的Excel对象是COM对象。对于COM对象(也包括接口),每次对于对象的引用(在C++中这一操作对应于ComCreateObject和QueryInterface)都会增加该对象的引用计数,...

如何将ASP.NET MVC2项目升级到MVC 3 RC

如何将ASP.NET MVC2项目升级到MVC 3 RC 微软在10号发布了ASP.NET MVC3的发布候选版(RC:Release-candidate),该版本提供了Razor视...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp.net总结(2)
举报原因:
原因补充:

(最多只允许输入30个字)