上一篇：菜鸟入门篇---有关ASP.NET的一些基本说明,解释. [页面标识] >>

我的第一个ASP+程序，如果是新手请进来看吧。谢绝高手。：)

作者： unknow

<%@ import Namespace="System.Data.ADO" %>
<%@ import Namespace="System.Data" %>
<html>
<head>
    <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <title>修改个人基本信息</title>
</head>
<body>
    <form id="PanelSC" method="post" runat="server">
        
        <asp:panel id="Step1" runat="Server">
            步骤一： (请输入帐号及密码)<p>
            <blockquote>
                帐号： <asp:textbox id=UserID runat="server"></asp:textbox><p>
                密码： <asp:textbox id=PassWord runat="Server" textmode="Password"></asp:textbox><p>
                <input id=Button1 type=button value=" 登入 " runat="server" onserverclick="Button1_Click"></p>
            </blockquote>
        <div id="div1" runat="server"></div>
        </asp:panel>

        
        <asp:panel id="Step2" runat="Server">
            步骤二： (请修改姓名、电话、地址)<p>
            <blockquuote>
                姓名： <asp:textbox id=Name runat="Server" text=""></asp:textbox><p>
                电话： <asp:textbox id=Tel runat="Server" text=""></asp:textbox><p>
                地址： <asp:textbox id=Addr runat="Server" text=""></asp:textbox><p>
                <input id=Button2 type=button value=" 修改 " runat="server" onserverclick="Button2_Click">
            </blockquote>
            <div id="div2" runat="server"></div>
        </asp:panel>

        
        <asp:panel id="Step3" runat="Server">
            步骤三： (请确认您输入的数据)<p>
            <blockquote>
                <div id="div3" runat="server"></div>
                <input id=Button3 type=button value=" 确定 " runat="server" onserverclick="Button3_Click">
            </blockquote>
        </asp:panel>

        
        <asp:panel id="Step4" runat="Server">
            <blockquote>
                <div id="div4" runat="server"></div>
            </blockquote>
        </asp:panel>

    </form>
</body>
</html>

<script language="vb" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
    If Not Page.IsPostBack Then
        Step1.Visible = True
        Step2.Visible = False
        Step3.Visible = False
    End If
End Sub

Sub Button1_Click(sender As Object, e As EventArgs)
    Dim ConnStr,SqlQuery As String
    Dim i As Integer = 0
    ConnStr = "Driver={SQL Server}; Server=localhost; Uid=sa; pwd=; database=mytest"
    SqlQuery = "Select vcName, vcTel, vcAddr From tb_User Where vcUserID = @#" & UserID.Text & "@# And vcPassWord = @#" & PassWord.Text & "@#"
    Dim Cmd As ADODataSetCommand = New ADODataSetCommand(SqlQuery, ConnStr)
    Dim Rs As DataSet = New DataSet()
    Cmd.FillDataSet(Rs, "tb_User")
    Dim Dt As DataTable = Rs.Tables("tb_User")
    i = Dt.Rows.Count
    If i = 1 Then
        Name.Text = Dt.Rows(0).Item(0)
        Tel.Text = Dt.Rows(0).Item(1)
        Addr.Text = Dt.Rows(0).Item(2)
        Step1.Visible = False
        Step2.Visible = True
        Step3.Visible = False
    Else
        Step1.Visible = True
        Step2.Visible = False
        Step3.Visible = False
        div1.innerHtml = "登录失败!请检查你的帐号和密码是否正确!"
    End If
End Sub

Sub Button2_Click(sender As Object, e As EventArgs)
    Step1.Visible = False
    Step2.Visible = False
    Step3.Visible = True

    div3.innerHtml = "帐号：" & UserId.Text & "<br>"
    div3.innerHtml &= "姓名：" & Name.Text & "<br>"
    div3.innerHtml &= "电话：" & Tel.Text & "<br>"
    div3.innerHtml &= "地址：" & Addr.Text & "<p>"
End Sub

Sub Button3_Click(sender As Object, e As EventArgs)
    Dim ConnStr, SqlQuery As String
    ConnStr = "Driver={SQL Server}; Server=localhost; Uid=sa; pwd=; database=mytest"
    SqlQuery = "Update tb_User Set vcName = @#" & Name.Text & "@#, vcTel = @#" & Tel.Text & "@#, vcAddr = @#" & Addr.Text & "@#"
    Dim Cmd As ADOCommand = New ADOCommand(SqlQuery, ConnStr)
    Cmd.ActiveConnection.Open()
    Cmd.Execute()
    If Cmd.RecordsAffected = 1 Then
        div4.innerHtml = "你的个人资料已经被正确修改!<a href=""PanelSC.aspx"">按此返回登录</a>"
    Else
        div4.innerHtml = "发生错误!<a href=""javascript:history.back(-1)"">按此返回重新修改</a>"
    End If
End Sub
</script>

返回顶部

下一篇：Security Hole In ASP.NET Beta 1 (from angryCoder) >>