huiyuan.vb

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

Imports System.data.sqlclient
Imports System.web.security
Imports System.Web.mail
Public Class huiyuan
    Public path As String = ""
    Private sqlconstr As String = ConfigurationSettings.AppSettings("连接串")
    Private mycon As New SqlConnection(sqlconstr)

    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

    Function jm(ByVal str As String) As String
        Dim aa As FormsAuthentication
        Return aa.HashPasswordForStoringInConfigFile(str, "SHAI")
    End Function
    'val(0) = TBid.Text
    ' val(1) = TBps.Text
    ' val(2) = TBname.Text
    ' If R1.Checked = True Then val(3) = R1.Text
    ' If R2.Checked = True Then val(3) = R2.Text
    ' val(4) = TBdz.Text
    ' val(5) = tbtel.Text
    ' val(6) = TBemail.Text
    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, 50)
        Dim xm As New SqlParameter("@xm", SqlDbType.VarChar, 50)
        Dim xb As New SqlParameter("@xb", SqlDbType.VarChar, 50)
        Dim dz As New SqlParameter("@dz", SqlDbType.VarChar, 50)
        Dim dh As New SqlParameter("@dh", SqlDbType.VarChar, 50)
        Dim email As New SqlParameter("@email", SqlDbType.VarChar, 50)
        Dim kl As New SqlParameter("@kl", SqlDbType.VarChar, 50)
        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)
        kl.Value = val(1)
        xm.Value = val(2)
        xb.Value = val(3)
        dz.Value = val(4)
        dh.Value = val(5)
        email.Value = val(6)
        crecom.CommandText = str
        crecom.ExecuteNonQuery()
        myTrans.Commit()
        huiyuanReg = True
        mycon.Close()
    End Function
End Class