huiyuan.vb

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

Imports System.Data.SqlClient
Imports System.Web.Security
Imports System.Web.Mail

Public Class HuiYuan

#Region "定义"
    Public path As String = ""
    Private sqlconstr As String = ConfigurationSettings.AppSettings("连接串")
    Private mycon As New SqlConnection(sqlconstr)
#End Region

#Region "判断会员是否唯一，返回true为唯一,检查口令表不管是否是正式"
    Function ifUnique(ByVal hym As String) As Boolean
        Dim mycom As New SqlCommand("exec 是否唯一 " & hym, mycon)
        mycon.Open()
        If mycom.ExecuteScalar <> "" Then
            ifUnique = False
        Else
            ifUnique = True
        End If
        mycon.Close()
    End Function
#End Region

#Region "返回某表某字段的数组rearr"
    Public 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
#End Region

#Region "exeSQL(ByVal str As String)执行任何一个非查询语句"
    Function exeSQL(ByVal str As String) As Boolean
        Dim myc As New SqlCommand(str, mycon)
        mycon.Open()
        Try
            myc.ExecuteNonQuery()
            mycon.Close()
            Return True
        Catch
            mycon.Close()
            Return False
        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 "完成会员注册"
    Function huiyuanReg(ByVal val() As String) As Boolean
        '定义事务
        Dim myTrans As SqlTransaction

        Dim str As String
        Dim crecom As New SqlCommand(str, mycon)

        mycon.Open()
        myTrans = mycon.BeginTransaction()
        crecom.Connection = mycon
        crecom.Transaction = myTrans

        '存入会员表
        Dim hym As New SqlParameter("@hym", SqlDbType.VarChar, 20)
        Dim xm As New SqlParameter("@xm", SqlDbType.VarChar, 20)
        Dim xb As New SqlParameter("@xb", SqlDbType.Char, 2)
        Dim dz As New SqlParameter("@dz", SqlDbType.VarChar, 50)
        Dim dh As New SqlParameter("@dh", SqlDbType.VarChar, 15)
        Dim email As New SqlParameter("@email", SqlDbType.VarChar, 50)
        Dim kl As New SqlParameter("@kl", SqlDbType.VarChar, 40)

        str = "exec inHY @hym,@xm,@xb,@dz,@dh,@email,@kl"

        crecom.Parameters.Add(hym)
        crecom.Parameters.Add(xm)
        crecom.Parameters.Add(xb)
        crecom.Parameters.Add(dz)
        crecom.Parameters.Add(dh)
        crecom.Parameters.Add(email)
        crecom.Parameters.Add(kl)

        hym.Value = val(0)
        xm.Value = val(1)
        xb.Value = val(2)
        dz.Value = val(3)
        dh.Value = val(4)
        email.Value = val(5)
        kl.Value = jm(val(6))

        crecom.CommandText = str
        crecom.ExecuteNonQuery()

        myTrans.Commit()
        huiyuanReg = True

        mycon.Close()
    End Function

    'Try

    ''Catch
    'myTrans.Rollback()
    'huiyuanReg = False
    'End Try
#End Region

#Region "更新会员个人资料，4个参数"
    Public Function uphuiyuan(ByVal val() As String) As Boolean
        Dim i As Integer
        Dim str As String = "exec upHuiyuan '" & val(0) & "','" & _
                             val(1) & "','" & val(2) & "','" & val(3) & "'"
        Dim mycom As New SqlCommand(str, mycon)
        mycon.Open()
        mycom.ExecuteNonQuery()
        mycon.Close()
        Return True

    End Function
#End Region

   
End Class