yonghu/yonghuadd.aspx.vb

（完整代码） 995B 


Partial Class yonghu_yonghuadd
    Inherits System.Web.UI.Page
'用户信息添加页面

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            
        End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
   	 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 = "insert into yonghu (yhm,mm,xm,qx,jssl,lxdh ) values ('"+yhm+"','"+mm+"','"+xm+"','"+qx+"','"+jssl+"','"+lxdh+"')"
        DBHelp.ExecuteNonQuery(sql, Nothing)
        Response.Write("<script language='javascript'>alert('用户信息添加成功');window.location.href='yonghuadd.aspx';</script>")
     


    End Sub
End Class

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

AI 解读 AI

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

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