user.aspx

来自「ASP.NET开发实战详解」· ASPX 代码 · 共 251 行

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">

    dim Cnn as sqlconnection
    dim cmd as sqlcommand
    Sub Page_Load(Sender As Object, E As EventArgs)
        If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
           BindGrid()
        End If
    End Sub
    
    Sub Save_Click(Sender As Object, E As EventArgs)
        dim CodeStr as string=code.text
        dim NameStr as string=dispname.text
        dim DlNameStr as string=dlname.text
        dim pwdstr as string=password.text
        dim sql as string
        dim dataR as sqldatareader
    
        cnn=new sqlconnection(configurationsettings.appsettings("connection"))
        cnn.open()
        sql="select * from pub_user where code='" & codestr & "'"
        cmd=new sqlcommand(sql,cnn)
        datar=cmd.executereader()
        if datar.read() then
            page.registerstartupscript("",getalertinfo("该用户编码已经存在，无法保存！"))
        else
           datar.close()
            sql="insert into pub_user(code,name,lname,pass,ppass) values('" & codestr & "','" & namestr & "','" & dlnamestr & "','" & pwdstr & "','******')"
            cmd=new sqlcommand(sql,cnn)
            cmd.executeNonQuery
            cnn.close()
            bindgrid()
        end if
        dlname.text=""
        dispname.text=""
        password.text=""
        code.text=""
        page.registerstartupscript("",getalertinfo("数据保存成功！"))
    End Sub
    
         Sub BindGrid()
            dim dataR as sqldatareader
            dim dtcmd as sqldataadapter
            dim dt as new datatable
            dim MaxPage as integer  '计算最大页数
            dim str2 as string
            dim Str1 as string
            cnn=new sqlconnection(configurationsettings.appsettings("connection"))
            str2="select count(*) as nums from pub_user"
            cmd=new sqlcommand(str2,cnn)
            cnn.open()
            datar=cmd.executereader()
            if datar.read() then
               if datar("nums").tostring()="0" then
                  msg.text=""
               else
                  msg.text="合计：记录数 " & datar("nums").tostring()
               end if
            end if
            datar.close()
            str1="select * from pub_user order by code"
            dtcmd=new sqldataadapter(str1,cnn)
            dtcmd.fill(dt)
            if (dt.defaultview.count mod datagrid1.pagesize)>0 then
               maxpage=dt.defaultview.count \datagrid1.pagesize+1
            else
               maxpage=dt.defaultview.count \datagrid1.pagesize
            end if
            do while datagrid1.currentpageindex>0
               if maxpage<datagrid1.currentpageindex+1 then
                 datagrid1.currentpageindex=datagrid1.currentpageindex-1
               else
                 exit do
              end if
            loop
            datagrid1.datasource=dt
            datagrid1.databind()
            cnn.close()
         End Sub
    
         Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
             dim codestr as string=E.Item.Cells(0).Text
             dim sql as string
                if CType(e.CommandSource,LinkButton).CommandName="Delete" then
                   if codestr=request.cookies("curruser").value then
                      page.registerstartupscript("",getalertinfo("无法删除当前登录用户！"))
                   else
                      cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                      cnn.open()
                      sql="delete from pub_user where code='" & codestr & "'"
                      cmd=new sqlcommand(sql,cnn)
                      cmd.executeNonQuery
                      cnn.close()
                      bindgrid()
                   end if
                end if
         End Sub
    
         Sub Grid1_Update(Sender as object,E as DataGridCommandEventArgs)
             dim NameStr as String=CType(E.Item.Cells(1).Controls(0),TextBox).Text
             dim DlNameStr As string=CType(E.Item.Cells(2).Controls(0),TextBox).Text
             dim CodeStr as String=E.Item.Cells(0).Text
             dim sql as string
             cnn=new sqlconnection(configurationsettings.appsettings("connection"))
             cnn.open()
             sql="update pub_user set name='" & namestr & "',lname='" & dlnamestr & "' where code='" & codestr & "'"
             cmd=new sqlcommand(sql,cnn)
             cmd.executeNonQuery
             cnn.close()
             DataGrid1.EditItemIndex=-1
             BindGrid()
             Requiredfieldvalidator1.Enabled=True
             Requiredfieldvalidator2.Enabled=True
             Requiredfieldvalidator3.Enabled=True
             Requiredfieldvalidator4.Enabled=True
         End Sub
    
         Sub Grid1_Cancel(Sender as object,E as DataGridCommandEventArgs)
             Requiredfieldvalidator1.Enabled=True
             Requiredfieldvalidator2.Enabled=True
             Requiredfieldvalidator3.Enabled=True
             Requiredfieldvalidator4.Enabled=True
             datagrid1.EditItemIndex=-1
             BindGrid()
         End Sub
    
         Sub Grid1_Edit(Sender as object,E as DataGridCommandEventArgs)
             Requiredfieldvalidator1.Enabled=False
             Requiredfieldvalidator2.Enabled=False
             Requiredfieldvalidator3.Enabled=false
             Requiredfieldvalidator4.Enabled=false
             DataGrid1.EditItemIndex=E.Item.ItemIndex
             BindGrid()
         End Sub
    
         Sub Grid1_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
             datagrid1.CurrentPageIndex = e.NewPageIndex
             BindGrid()
         End Sub
    

   Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 0
   End Sub
   
   Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 1
   End Sub
   
    Function GetAlertInfo(byval str1 as string) as String
        dim Str2 as String
        str2="<script language='javascript'>alert('" & str1 & "')<"
        str2+="/"
        str2+="script>"
        return trim(str2)
    End Function

</script>
<html>
<head>
    <title>用户信息</title>
    <link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body leftmargin="5" topmargin="5" background="../images/1.jpg">
    <form runat="server">
       <asp:Image ID="Image2" runat="server" ImageUrl="../images/pic1.gif" />
       <asp:LinkButton ID="LinkButton1" Font-Bold="True" Font-Size="X-Small" runat="server" OnClick="LinkButton1_Click" CausesValidation="False">用户信息增加</asp:LinkButton>&nbsp;&nbsp;
       <asp:Image ID="Image1" runat="server" ImageUrl="../images/pic1.gif" />
       <asp:LinkButton ID="LinkButton2" runat="server" Font-Bold="True" Font-Size="X-Small" OnClick="LinkButton2_Click" CausesValidation="False">用户信息查询</asp:LinkButton>
       <hr />
       <asp:MultiView ID="MultiView1" runat="server" ActiveViewIndex="0">
         <asp:View ID="View1" runat="server">
                <br />
                <table id="search" cellspacing="1" cellpadding="0" width="95%" border="0" align="center">
                    <tbody>
                        <tr class="tr4">
                            <td style="PADDING-LEFT: 5px" height="25">
                                用户编码：
                                <asp:TextBox class="input_text" id="code" runat="server" width="200"></asp:TextBox>
                            </td>
                            <td style="PADDING-LEFT: 5px" width="50%" height="25">
                                用户名称：
                                <asp:TextBox class="input_text" id="dispname" runat="server" width="200"></asp:TextBox>
                            </td>
                        </tr>
                        <tr class="tr4">
                            <td style="PADDING-LEFT: 5px" height="25">
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ControlToValidate="code" ErrorMessage="*">此项必填</asp:RequiredFieldValidator>
                            </td>
                            <td style="PADDING-LEFT: 5px" width="50%" height="25">
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator2" runat="server" ControlToValidate="dispName" ErrorMessage="*">此项必填</asp:RequiredFieldValidator>
                            </td>
                        </tr>
                        <tr class="tr4">
                            <td style="PADDING-LEFT: 5px" height="25">
                                登录名称：
                                <asp:TextBox class="input_text" id="dlname" runat="server" width="200"></asp:TextBox>
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator3" runat="server" ControlToValidate="dlname" ErrorMessage="*">此项必填</asp:RequiredFieldValidator>
                            </td>
                            <td style="PADDING-LEFT: 5px" width="50%" height="25">
                                登录密码：
                                <asp:TextBox class="input_text" id="password" runat="server" width="200" textmode="password"></asp:TextBox>
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator4" runat="server" ControlToValidate="password" ErrorMessage="*">此项必填</asp:RequiredFieldValidator>
                            </td>
                        </tr>
                    </tbody>
                </table><br><br>
                <p align="center">
                    <input id="clear" type="reset" value="清 空" runat="server" />
                    &nbsp;&nbsp;&nbsp;&nbsp;
                    <asp:button id="SaveBtn" onclick="Save_Click" runat="server" text="保 存"></asp:button>
                </p>
            </asp:View>
            <asp:View ID="View2" runat="server">
                <table class="" id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
                    <tbody>
                        <tr class="tr2">
                            <td style="PADDING-LEFT: 5px" height="25">
                                <asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></td>
                        </tr>
                        <tr>
                            <td style="PADDING-LEFT: 5px" height="25">
                                <asp:DataGrid id="DataGrid1" runat="server" width="100%" OnPageIndexChanged="Grid1_PageIndexChanged" AllowSorting="True" AllowPaging="True" Font-Names="verdana" bordercolor="Black" cellpadding="2" font-name="verdana" font-size="8pt" headerstyle-backcolor="#F8FAFC" OnEditCommand="Grid1_Edit" OnCancelCommand="Grid1_Cancel" OnupdateCommand="Grid1_Update" OnItemCommand="Grid1_Mod" AutoGenerateColumns="False" PageSize="10">
                                    <HeaderStyle font-bold="True" horizontalalign="Center" verticalalign="Middle" backcolor="#F8FAFC"></HeaderStyle>
                                    <PagerStyle nextpagetext="下一页" font-names="宋体" font-bold="True" prevpagetext="上一页" horizontalalign="Right" forecolor="Blue" mode="NumericPages"></PagerStyle>
                                    <EditItemStyle backcolor="#E9F0F8"></EditItemStyle>
                                    <Columns>
                                        <asp:BoundColumn DataField="Code" ReadOnly="True" HeaderText="用户编码"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="Name" HeaderText="用户名称"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="lname" HeaderText="登录名称"></asp:BoundColumn>
                                        <asp:BoundColumn ReadOnly="True" DataField="ppass" HeaderText="登录密码"></asp:BoundColumn>
                                        <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="更新" HeaderText="编辑" CancelText="取消" EditText="编辑"></asp:EditCommandColumn>
                                        <asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete"></asp:ButtonColumn>
                                    </Columns>
                                </asp:DataGrid>
                            </td>
                        </tr>
                    </tbody>
                </table>
            </asp:View>
        </asp:MultiView>
    </form>
</body>
</html>