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

2024-05-04 11:06:28

字体：大中小

来源：转载

供稿：网友

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

上一篇：转转: ASP 内建对象Request和Respones

下一篇：我的aspx为什么无法显示中文？