t;姓名：" & 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>

上一页  [1] [2] [3] [4] 

在google里搜索更多我的第一个ASP+程序，如果是新手请进来看吧。谢绝高手。：)

	Web www.51ec.org

上一篇信息学院： Security Hole In ASP.NET Beta 1 (from angryCoder)…

下一篇信息学院： 菜鸟入门篇---有关ASP.NET的一些基本说明,解释. 页面标识…