练习写了一段登陆验证的代码,可是label1和label2总是一点反应都没有,label1是想要根据情况出现一段不同的字,而label2则是出现一段超链接,出现的结果是什么都不显示
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objconnection As New OleDbConnection
        Dim strpath As String, strid As String, strpsw As String
        strid = Request.Form("txtid")
        strpsw = Request.Form("txtspw")
        strpath = Server.MapPath("web.mdb")
        Call dbconnection(objconnection, strpath)
        Dim strSql = "select * from id where strid= " & strid
        Dim objAdap As New OleDbDataAdapter(strSql, objconnection)
        Dim objDSet As New DataSet
        label2.Text="<a href="index.asp">返回上页</a>"
        objAdap.Fill(objDSet, "user")
        If objDSet.Tables("user").MinimumCapacity = 0 Then
            Label1.Text = "没有该用户"
        Else
            If objDSet.Tables("user").Rows(0)("strpassword") <> strpsw Then
                Label1.Text = "密码不正确"
            Else
                Label1.Text = "登陆成功"
                Session("strid") = strid
            End If
        End If
        objconnection.Close()
    End Sub