main.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 jm As String
    Dim mycon As New SqlConnection(ConfigurationSettings.AppSettings("连接串"))
    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
    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 ex As Exception
            mycon.Close()
            Return ex.Message


        End Try
    End Function
    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
    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
    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
    Public Function retab(ByVal sqlstr) As DataTable
        Dim myt As New DataTable
        Dim myc As New SqlDataAdapter(sqlstr, mycon)
        mycon.Open()

        myc.Fill(myt)
        mycon.Close()
        Return myt
    End Function

#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

#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
End Class