chaoqi/chaoqidetail.aspx.vb

（完整代码） 1KB 

Imports System.Data.SqlClient

Partial Class chaoqi_chaoqidetail
    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 chaoqi where cqid=" + id
        ' Response.Write(sql)
        Dim DataRead As SqlDataReader = DBHelp.ExecuteReader(sql, Nothing)
        If DataRead.Read() Then
            Me.txtjy.Text = DataRead("jy").ToString() ' 借阅
Me.txtts.Text = DataRead("ts").ToString() ' 图书
Me.txtday.Text = DataRead("day").ToString() ' 天数
Me.txtzj.Text = DataRead("zj").ToString() ' 总价
Me.txtfkqk.Text = DataRead("fkqk").ToString() ' 罚款情况
Me.txtsfzf.Text = DataRead("sfzf").ToString() ' 是否支付



        End If
        DataRead.Close()


    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("chaoqilist.aspx")

    End Sub
End Class

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

AI 解读 AI

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

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