ruku/rukumod.aspx.vb

（完整代码） 1KB 

Imports System.Data.SqlClient
'入库修改页面信息
Partial Class ruku_rukumod
    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 ruku where rkid=" + id
        ' Response.Write(sql)
        Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
        If DataRead.Read() Then
           Me.txtbt.Text = DataRead("bt").ToString() ' 标题
Me.txtnr.Text = DataRead("nr").ToString() ' 内容
Me.txtdg.Text = DataRead("dg").ToString() ' 订购
Me.txtzt.Text = DataRead("zt").ToString() ' 状态
Me.txtsj.Text = DataRead("sj").ToString() ' 时间
Me.txtyh.Text = DataRead("yh").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 bt As String = Me.txtbt.Text '标题
 Dim nr As String = Me.txtnr.Text '内容
 Dim dg As String = Me.txtdg.Text '订购
 Dim zt As String = Me.txtzt.Text '状态
 Dim sj As String = Me.txtsj.Text '时间
 Dim yh As String = Me.txtyh.Text '用户

        Dim sql As String = "update ruku set  bt='"+bt+"',nr='"+nr+"',dg='"+dg+"',zt='"+zt+"',sj='"+sj+"',yh='"+yh+"' where rkid =" + id
        ' Response.Write(sql)
        DBHelp.ExecuteNonQuery(sql, Nothing)

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

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

AI 解读 AI

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

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