main1.vb

asp,vb.net编写,我的毕业设计,简单的网上购书系统,比较主流

Imports System.Data.SqlClient
Imports System.Web.Security
Imports System.IO

Imports System.Net
Imports System.Web.UI.HtmlControls

Public Class main
    Dim mycon As New SqlConnection(ConfigurationSettings.AppSettings("连接串"))

#Region "执行SQL语句，返回数据"
    Overloads Function ReDataSet(ByVal str As String) As DataTable
        Dim re As New DataTable  'DataSet
        mycon.Open()

        Dim mydc As New SqlDataAdapter(str, mycon)
        mydc.Fill(re)
        mycon.Close()
        Return re 're.Tables("1")
    End Function

    Overloads Function ReDataSet(ByVal str As String, ByVal brec As Integer, ByVal size As Integer) As DataTable
        Dim re As New DataSet
        mycon.Open()

        Dim mydc As New SqlDataAdapter(str, mycon)
        mydc.Fill(re, brec, size, "1")
        mycon.Close()
        Return re.Tables("1")
    End Function
#End Region

#Region "exeSQL(ByVal str As String)执行任何一个非查询语句"
    Function exeSQL(ByVal str As String) As String
        Dim myc As New SqlCommand(str, mycon)
        mycon.Open()
        Try
            myc.ExecuteNonQuery()
            mycon.Close()
            Return "T"
        Catch e As Exception
            mycon.Close()
            Return e.Message
        End Try
    End Function
#End Region

#Region "返回某表某字段的数组rearr"
    Overloads Function rearr(ByVal str As String) As String()
        Dim myr As SqlDataReader
        Dim mycom As New SqlCommand(str, mycon)
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        myr = mycom.ExecuteReader
        Dim ret() As String
        Dim i As Integer
        While myr.Read
            ReDim Preserve ret(i)
            ret(i) = myr(0)
            i += 1
        End While

        mycon.Close()
        Return ret
    End Function

    '额外加一个xj,放在最前面
    Overloads Function rearr(ByVal str As String, ByVal xj As String) As String()
        Dim myr As SqlDataReader
        Dim mycom As New SqlCommand(str, mycon)
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        myr = mycom.ExecuteReader
        Dim ret() As String = {xj}
        Dim i As Integer = 1
        While myr.Read
            ReDim Preserve ret(i)
            ret(i) = myr(0)
            i += 1
        End While

        mycon.Close()
        Return ret
    End Function
#End Region

#Region "用哈希加密一个串"
    Function jm(ByVal str As String) As String
        Dim aa As FormsAuthentication
        Return aa.HashPasswordForStoringInConfigFile(str, "SHA1")
    End Function
#End Region

#Region "执行SQL语句，返回单个值"
    Public Function singleVal(ByVal str As String) As String
        Dim re As String
        Dim mycom As New SqlCommand(str, mycon)
        mycon.Open()
        Try
            re = mycom.ExecuteScalar
        Catch ex As Exception
            re = ""
        End Try
        mycon.Close()
        Return re
    End Function
#End Region

#Region "OneRecord--执行SQL语句,取一条记录"
    Function OneRecord(ByVal str As String) As String()
        Dim myc As New SqlCommand(str, mycon)
        mycon.Open()
        Dim myread As SqlDataReader
        Try
            myread = myc.ExecuteReader
            Dim i As Integer
            myread.Read()
            Dim ss(myread.FieldCount - 1) As String
            For i = 0 To myread.FieldCount - 1
                ss(i) = myread(i)
            Next
            mycon.Close()
            Return ss
        Catch ex As Exception
            mycon.Close()
            Return Nothing
        End Try
    End Function
#End Region

    Function uppassword(ByVal newps As String, ByVal oldps As String, _
                       ByVal yh As String)
        Dim mysql As String
        mysql = "update 会员 set 口令='" & jm(newps) & _
            "' where 会员名='" & yh & "' and 口令='" & jm(oldps) & "'"
        Dim mycom As New SqlCommand(mysql, mycon)
        mycon.Open()
        mycom.ExecuteNonQuery()
        mycon.Close()
        Return True
    End Function
End Class

'#Region "执行SQL语句，返回数据"
'Overloads Function ReDataSet(ByVal str As String) As DataTable
'    Dim re As New DataTable  'DataSet
'    mycon.Open()

'    Dim mydc As New SqlDataAdapter(str, mycon)
'    mydc.Fill(re)
'    mycon.Close()
'    Return re 're.Tables("1")
'End Function

'Overloads Function ReDataSet(ByVal str As String, ByVal brec As Integer, ByVal size As Integer) As DataTable
'    Dim re As New DataSet
'    mycon.Open()

'    Dim mydc As New SqlDataAdapter(str, mycon)
'    mydc.Fill(re, brec, size, "1")
'    mycon.Close()
'    Return re.Tables("1")
'End Function
'#End Region

'#Region "exeSQL(ByVal str As String)执行任何一个非查询语句"
'Function exeSQL(ByVal str As String) As String
'    Dim myc As New SqlCommand(str, mycon)
'    mycon.Open()
'    Try
'        myc.ExecuteNonQuery()
'        mycon.Close()
'        Return "T"
'    Catch e As Exception
'        mycon.Close()
'        Return e.Message
'    End Try
'End Function
'#End Region

'#Region "返回某表某字段的数组rearr"
'Overloads Function rearr(ByVal str As String) As String()
'    Dim myr As SqlDataReader
'    Dim mycom As New SqlCommand(str, mycon)
'    If mycon.State = ConnectionState.Closed Then mycon.Open()
'    myr = mycom.ExecuteReader
'    Dim ret() As String
'    Dim i As Integer
'    While myr.Read
'        ReDim Preserve ret(i)
'        ret(i) = myr(0)
'        i += 1
'    End While

'    mycon.Close()
'    Return ret
'End Function

''额外加一个xj,放在最前面
'Overloads Function rearr(ByVal str As String, ByVal xj As String) As String()
'    Dim myr As SqlDataReader
'    Dim mycom As New SqlCommand(str, mycon)
'    If mycon.State = ConnectionState.Closed Then mycon.Open()
'    myr = mycom.ExecuteReader
'    Dim ret() As String = {xj}
'    Dim i As Integer = 1
'    While myr.Read
'        ReDim Preserve ret(i)
'        ret(i) = myr(0)
'        i += 1
'    End While

'    mycon.Close()
'    Return ret
'End Function
'#End Region

'#Region "用哈希加密一个串"
'Function jm(ByVal str As String) As String
'    Dim aa As FormsAuthentication
'    Return aa.HashPasswordForStoringInConfigFile(str, "SHA1")
'End Function
'#End Region

'#Region "执行SQL语句，返回单个值"
'Public Function singleVal(ByVal str As String) As String
'    Dim re As String
'    Dim mycom As New SqlCommand(str, mycon)
'    mycon.Open()

'    'If mycom.ExecuteScalar Is Nothing Then
'    '    re = ""
'    'Else
'    '    re = mycom.ExecuteScalar
'    'End If
'    Try
'        re = mycom.ExecuteScalar
'    Catch ex As Exception
'        re = ""
'    End Try
'    mycon.Close()
'    Return re
'End Function
'#End Region