16,717
社区成员
发帖
与我相关
我的任务
分享<?xml version="1.0"?>
<configuration xmlns="http://schemas.microsoft.com/.NetConfiguration/v2.0">
<appSettings/>
<connectionStrings>
<add name="MySqlConnection"
connectionString="Provider=System.Data.SqlClient;
Data Source=.\SQLEXPRESS;
AttachDbFilename='|DataDirectory|\Database.mdf;
Integrated=' Security=True;
User Instance=True"/>
</connectionStrings>
<system.web>
<authentication mode="Forms">
<forms loginUrl="login.aspx" name=".ASPXFORMSAUTH">
</forms>
</authentication>
<authorization>
<deny users="?"/>
</authorization>
<membership
defaultProvider="myoamembershipprovider">
<providers>
<add name="myoamembershipprovider"
connectionStringName="MySqlConnection"
type="myoamembershipprovider"
requiresQuestionAndAnswer="true"
/>
</providers>
</membership>
<compilation debug="true" strict="false" explicit="true"/>
<pages>
<namespaces>
<clear/>
<add namespace="System"/>
<add namespace="System.Collections"/>
<add namespace="System.Collections.Specialized"/>
<add namespace="System.Configuration"/>
<add namespace="System.Text"/>
<add namespace="System.Text.RegularExpressions"/>
<add namespace="System.Web"/>
<add namespace="System.Web.Caching"/>
<add namespace="System.Web.SessionState"/>
<add namespace="System.Web.Security"/>
<add namespace="System.Web.Profile"/>
<add namespace="System.Web.UI"/>
<add namespace="System.Web.UI.WebControls"/>
<add namespace="System.Web.UI.WebControls.WebParts"/>
<add namespace="System.Web.UI.HtmlControls"/>
</namespaces>
</pages>
</system.web>
</configuration>
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Public Class myoamembershipprovider
Inherits SqlMembershipProvider
Private _connStr As String = " "
Public Overrides Sub Initialize( _
ByVal name As String, _
ByVal config As System.Collections.Specialized.NameValueCollection)
_connStr = ConfigurationManager.ConnectionStrings("MySqlConnection").ConnectionString
MyBase.Initialize(name, config)
End Sub
Public Overrides Function ValidateUser( _
ByVal username As String, _
ByVal password As String) As Boolean
Dim conn As SqlConnection = New SqlConnection(_connStr)
Try
conn.Open()
Dim sql As String = "select * from T_users where loginname=@username AND password =@password"
Dim comm As New SqlCommand(sql, conn)
comm.Parameters.AddWithValue("@username", username)
comm.Parameters.AddWithValue("@password", password)
Dim reader As SqlDataReader = comm.ExecuteReader
If reader.HasRows Then
reader.Read()
If (password.Equals(reader.Item("password").ToString())) Then
Return True
Else
Return False
End If
Else
Return False
End If
conn.Close()
Catch ex As Exception
Return False
End Try
Return MyBase.ValidateUser(username, password)
End Function
End Class
<connectionStrings>
<add
name="LocalSqlServer"
connectionString="data source=.\SQLEXPRESS;Integrated Security=SSPI;AttachDBFilename=|DataDirectory|aspnetdb.mdf;User Instance=true"
providerName="System.Data.SqlClient"
/>
</connectionStrings>
<connectionStrings>
<add name="MySqlConnection"
connectionString="Data Source=.\SQLEXPRESS;
AttachDbFilename='|DataDirectory|\Database.mdf;
Integrated=' Security=True;
User Instance=True"
Provider="System.Data.SqlClient"
/>
</connectionStrings>