tushu/tushu.aspx.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Partial Class tushu_tushu
    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
            binddata()
        End If
    End Sub

    Public Sub binddata()
        '
        Dim ts = Me.txtts.Text
        Dim lb = Me.txtlb.Text
        Dim js = Me.txtjs.Text

        Dim sql As String
        sql = "select * from tushu where 1=1"
        If ts <> "" Then
            sql = sql + " and ts like '%" + ts + "%'"
        End If
        If lb <> "" Then
            sql = sql + " and lb like '%" + lb + "%'"
        End If
        If js <> "" Then
            sql = sql + " and js like '%" + js + "%'"
        End If
        Me.SqlDataSource1.SelectCommand = sql

    End Sub

  
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        binddata()
    End Sub
End Class