我需要在vb asp.net后面的代码中导入什么命名空间才能获得会话值

时间:2017-07-27 18:48:17

标签: asp.net .net vb.net

这是我的代码,会话无法正常工作,缺少什么? 问候

Imports System.Web
Imports System.Data
Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page

End Class

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
    End Sub
    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("dbconnection").ConnectionString)

        con.Open()
        Dim cmd As New SqlCommand("select * from nfl where UserName =@username and Password=@password", con)
        cmd.Parameters.AddWithValue("@username", txtUserName.Text)
        cmd.Parameters.AddWithValue("@password", txtPWD.Text)
        Session["password"] =  txtPWD.Text;
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            Response.Redirect("Details.aspx")
        Else
            ClientScript.RegisterStartupScript(Page.[GetType](), "validation", "<script language='javascript'>alert('Invalid Username and Password')</script>")
        End If
    End Sub
End Class

1 个答案:

答案 0 :(得分:0)

你没有使用C#。

这:

var doubleClickEvent = new Event('dblclick');      //define double click event

element.dispatchEvent(doubleClickEvent);           //trigger double click even

应该是:

Session["password"] = txtPWD.Text;