大家看一看
这样的代码是如何与数据库建立连接的？
急！！！
望大家能帮忙！

[localimg=372,300]1[/localimg]
继续！！！

Namespace aspx

Partial Class UserLogin
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim sqlstr As New aspx.sqllangue.sqllangue
    Dim sqlselect As String
    Private Sub errorshow()
        If Me.Session("error") <> "" Then
            Me.Response.Write(Me.Session("error"))
            Me.Response.End()
        End If
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sqlstr.conns()
        errorshow()
        If Me.CheckBox1.Checked = True Then

            sqlselect = "select pwd,name,power,id from useradmin where username='" & Me.Textbox2.Text & "'"
            sqlstr.sqlselect(sqlselect)
            errorshow()

            If sqlstr.sqlds.Tables("temporary").Rows.Count = 0 Then
                Me.Label1.Text = "用户不存在！"
            Else
                If RTrim(sqlstr.sqlds.Tables("temporary").Rows(0).Item(0)) = Me.Textbox3.Text Then
                    Me.Session("adminno") = Me.Textbox2.Text
                    Me.Session("adminname") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(1)
                    Me.Session("adminpower") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(2)
                    Me.Session("adminid") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(3)

                    Me.Session("userno") = ""
                    Me.Session("username") = ""
                    Me.Session("userid") = ""

                    If Me.Session("adminpower") = -1 Then
                        Response.Redirect("adminbar.aspx")
                    Else
                        Response.Redirect("toolbar.aspx")
                    End If
                Else
                    Me.Label1.Text = "密码错误"
                End If
            End If

图片传不上去
就贴原码了！
谢谢

讲明你的意图

这是一个用户进入网站的验证代码

我想对这些代码进行更改
但是我不知道这些是如何连接数据库的

我就是想知道这些代码是如何连接数据库的？

晕晕  又是VB的！！？？

我也不熟悉VB
所以谁会
请指点下

c#的代码和vb的代码区别不算大吧？我也没有学过vb，但是这些代码应该能看懂吧？
我主要的问题是不知道楼主的意思是什么，他需要帮助的地方是什么？我能做的就是给你注释注释这段代码，因为我实在看不懂你的意图是什么
#End Region
    Dim sqlstr As New aspx.sqllangue.sqllangue
    Dim sqlselect As String
    Private Sub errorshow()  //声明一个函数，用来显示错误信息
        If Me.Session("error") <> "" Then
            Me.Response.Write(Me.Session("error"))
            Me.Response.End()
        End If
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sqlstr.conns()//sqlstr应该是一个类的对象，这里调用类的connns方法，如果没有猜错的话这个方法应该是连接数据库的函数，而下面要执行的errorshow就是在出现连接错误是显示错误的函数，比如服务器没有开启等错误。
        errorshow()//调用errorshow函数，显示错误信息
        If Me.CheckBox1.Checked = True Then   //根据CheckBox1的选择与否来执行下面的代码

            sqlselect = "select pwd,name,power,id from useradmin where username='" & Me.Textbox2.Text & "'"
            sqlstr.sqlselect(sqlselect)//这个和上面的conns的调用是一个道理
            errorshow()

            If sqlstr.sqlds.Tables("temporary").Rows.Count = 0 Then//这也和上面的conns是一个道理，估计sqlds返回的类型是dataset类型的。

//下面的这些就不用解释了吧

                Me.Label1.Text = "用户不存在！"
            Else
                If RTrim(sqlstr.sqlds.Tables("temporary").Rows(0).Item(0)) = Me.Textbox3.Text Then
                    Me.Session("adminno") = Me.Textbox2.Text
                    Me.Session("adminname") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(1)
                    Me.Session("adminpower") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(2)
                    Me.Session("adminid") = sqlstr.sqlds.Tables("temporary").Rows(0).Item(3)

                    Me.Session("userno") = ""
                    Me.Session("username") = ""
                    Me.Session("userid") = ""

                    If Me.Session("adminpower") = -1 Then
                        Response.Redirect("adminbar.aspx")
                    Else
                        Response.Redirect("toolbar.aspx")
                    End If
                Else
                    Me.Label1.Text = "密码错误"
                End If
            End If

谢谢楼上的美女
有点思路了