Protected Sub LinkButton5_Click(ByVal sender As Object, ByVal e As System.EventArgs)//按钮单击事件
If DropDownList1.SelectedIndex = 0 And TextBox3.Text = "" And TextBox4.Text = "" Then//判断，若extBox3、4内容为空且DropDownList1处于位选择任何选项的状态下
Label3.Text = "请输入搜索关键字" //Label3的Text属性设置
Else
Dim sql As String = "select * from ss where "//查找ss表的信息，按以下条件查询
If DropDownList1.SelectedIndex > 0 Then//如果下拉菜单有选中一项
sql += "s_qy='" + DropDownList1.SelectedItem.Text + "'"//查找ss表中内容与下拉菜单内容类似的结果
If TextBox3.Text <> "" Then//若TextBox3内容不为空
sql += " and s_mz like '%" + TextBox3.Text + "%'"//查询条件为查找ss表中内容与下拉菜单内容类似并且含有TextBox3里的内容的结果
If TextBox4.Text <> "" Then
sql += " and s_js like '%" + TextBox4.Text + "'%"//同上
End If
End If//结束判断
Else //若以上条件不符合（下拉菜单没有选中） 则执行下列语句
If TextBox3.Text <> "" Then //若输入框TextBox3内容不为空则执行下列
sql += "s_mz like '%" + TextBox3.Text + "%'"//查询ss表中内容与输入框TextBox3内容类似的结果
If TextBox4.Text <> "" Then //查询ss表中内容与输入框TextBox3和4内容类似的结果
sql += " and s_js like '%" + TextBox4.Text + "'%"
End If
Else //若以上条件不符（TextBox3内容为空）
If TextBox4.Text <> "" Then //则按输入框TextBox4的内容进行查询
sql += "s_js like '%" + TextBox4.Text + "'%"
End If
End If
End If//结束判断
Session("sql") = sql//建立一个session将查询语句保存在session中
ClientScript.RegisterClientScriptBlock(System.Type.GetType("System.String"), "_error", "