Public Function User_Passmd5(ByVal PassWord As String, ByVal passwordformate As String) As String'md5函数
If passwordformate = "sha1" Then
User_Passmd5 = FormsAuthentication.HashPasswordForStoringInConfigFile(PassWord, "sha1")
ElseIf passwordformate = "md5" Then
User_Passmd5 = FormsAuthentication.HashPasswordForStoringInConfigFile(PassWord, "md5")
Else
User_Passmd5 = PassWord
End If
End Function
Public Function User_Create(ByVal UserName As String, _
ByVal UserNicheng As String, _
ByVal UserEmail As String, _
ByVal UserPass As String, _
ByVal UserAddress As String, _
ByVal UserQQ As String, _
ByVal UserDEL1 As String, _
ByVal UserDEL2 As String, _
ByVal UserWork As String, _
ByVal UserCity As String) As Boolean
'创建新用户,追加至数据库
Dim UserPassWord As String
UserPassWord = User_Passmd5(UserPass, "md5")
Try
myConnection.Open()
Dim myCommand As New SqlCommand(strSQL, myConnection)
myCommand.ExecuteNonQuery()
myConnection.Close()
myConnection = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function
Function User_Login(ByVal Name As String, ByVal UserPass As String) As Boolean'登陆验证
Dim UserPassWord As String
UserPassWord = User_Passmd5(UserPass, "md5")
Dim strSQL As String
strSQL = "Select * from Info_User"
strSQL += " where UserName ='" + Name + "'"
strSQL += " AND "
strSQL += " UserPassword ='" + UserPassWord + "'"
myConnection.Open()
Dim myCommand As New SqlCommand(strSQL, myConnection)
Dim myReader As SqlDataReader
myReader = myCommand.ExecuteReader
If myReader.HasRows Then
Return True
Else
Return False
End If