tushu/tushuadd.aspx.vb

（完整代码） 1KB 


Partial Class tushu_tushuadd
    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 ts As String = Me.txtts.Text '图书

 Dim lb As String = Me.txtlb.Text '类别

 Dim cbsj As String = Me.txtcbsj.Text '出版时间

 Dim zz As String = Me.txtzz.Text '作者

 Dim sl As String = Me.txtsl.Text '数量

 Dim cbs As String = Me.txtcbs.Text '出版社

 Dim ms As String = Me.txtms.Text '描述
        Dim bc As String = Me.txtbc.Text '描述
        Dim js As String = Me.txtjs.Text '描述
        Dim sj As String = Me.txtsj.Text '描述

        Dim sql As String = "insert into tushu (ts,lb,cbsj,zz,sl,cbs,ms,bc,js,sj ) values ('" + ts + "','" + lb + "','" + cbsj + "','" + zz + "','" + sl + "','" + cbs + "','" + ms + "','" + bc + "','" + js + "','" + sj + "')"
        DBHelp.ExecuteNonQuery(sql, Nothing)
        Response.Write("<script language='javascript'>alert('图书信息添加成功');window.location.href='tushuadd.aspx';</script>")
     


    End Sub
End Class

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

AI 解读 AI

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

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