yonghu/yonghumod.aspx.vb

（完整代码） 1KB 

Imports System.Data.SqlClient
'用户修改页面信息
Partial Class yonghu_yonghumod
    Inherits System.Web.UI.Page
    Dim id As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            binddata()
            id = Request.QueryString("id").ToString()
        End If
    End Sub

    Public Sub binddata()
        '
        id = Request.QueryString("id").ToString()
        Dim sql As String = "select * from yonghu where yhid=" + id
        ' Response.Write(sql)
        Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
        If DataRead.Read() Then
           Me.txtyhm.Text = DataRead("yhm").ToString() ' 用户名
Me.txtmm.Text = DataRead("mm").ToString() ' 密码
Me.txtxm.Text = DataRead("xm").ToString() ' 姓名
Me.txtqx.Text = DataRead("qx").ToString() ' 权限
Me.txtjssl.Text = DataRead("jssl").ToString() ' 借书数量
Me.txtlxdh.Text = DataRead("lxdh").ToString() ' 联系电话



        End If
        DataRead.Close()

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        id = Request.QueryString("id").ToString()
	 Dim yhm As String = Me.txtyhm.Text '用户名
 Dim mm As String = Me.txtmm.Text '密码
 Dim xm As String = Me.txtxm.Text '姓名
 Dim qx As String = Me.txtqx.Text '权限
 Dim jssl As String = Me.txtjssl.Text '借书数量
 Dim lxdh As String = Me.txtlxdh.Text '联系电话

        Dim sql As String = "update yonghu set  yhm='"+yhm+"',mm='"+mm+"',xm='"+xm+"',qx='"+qx+"',jssl='"+jssl+"',lxdh='"+lxdh+"' where yhid =" + id
        ' Response.Write(sql)
        DBHelp.ExecuteNonQuery(sql, Nothing)

       
 Response.Write("<script language='javascript'>alert('用户信息修改成功');window.location.href='yonghulist.aspx';</script>")
    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读 AI

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。