References:
<connectionStrings>
<remove name="AspNetSqlProvider" />
<add name="AspNetSqlProvider" connectionString="Data Source=servername;Initial Catalog=aspnetdb;Integrated Security=SSPI;Persist Security Info=False;" />
</connectionStrings>
<system.web>
<membership defaultProvider="AspNetSqlMembershipProvider">
<providers>
<remove name="AspNetSqlMembershipProvider" />
<add connectionStringName="AspNetSqlProvider" passwordAttemptWindow="10" enablePasswordRetrieval="true" enablePasswordReset="true" requiresQuestionAndAnswer="false" applicationName="partners" requiresUniqueEmail="false" passwordFormat="Clear" description="Stores and retrieves membership data from the Microsoft SQL Server database" name="AspNetSqlMembershipProvider" type="System.Web.Security.SqlMembershipProvider, System.Web, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
</providers>
</membership>
<roleManager enabled="true" defaultProvider="AspNetSqlRoleProvider">
<providers>
<remove name="AspNetSqlRoleProvider" />
<remove name="AspNetWindowsTokenRoleProvider" />
<add applicationName="partners" name="AspNetWindowsTokenRoleProvider" type="System.Web.Security.WindowsTokenRoleProvider, System.Web, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<add connectionStringName="AspNetSqlProvider" applicationName="partners" description="Stores and retrieves roles data from the local Microsoft SQL Server database" name="AspNetSqlRoleProvider" type="System.Web.Security.SqlRoleProvider, System.Web, Version=2.0.3600.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
</providers>
</roleManager>
<system.net>
<mailSettings>
<!-- use your mail settingst here -->
<smtp deliveryMethod="Network" from="test@test.com">
<network host="smtp-server" port="25" />
</smtp>
</mailSettings>
</system.net>
</configuration>
5. Go to C:\Inetpub\wwwroot\wss\VirtualDirectories\fbaappfolder, make a copy of the web.config file and edit the web.config file, make the same change as above.
6. Copy the FBA tools to C:\Inetpub\wwwroot\wss\VirtualDirectories\windowsauthenticationappfolder as well as C:\Inetpub\wwwroot\wss\VirtualDirectories\fbaappfolder
7. Run iisreset /noforce
8. Go to your windows authentication site, run the FBA tools and add a user with username and password.
9. Go to People and Groups > Select the e.g. the Visitor Group > New > get the username just added > give permission to the account > click OK, so this user has been added to the windows authentication site successfully.
10. Go to the FBA site, it shoule allow you to see the home page since we enabled the anonymous access previously.
11. Click Sign In > type in the user you have just created in the windows authentication site (default zone) > Click Sign In > Now you are logged in as that user > you can then access the FBA tool to recover your password, it will send the password to you via email.
12. If you encounter an error in the recover page, you can change the customErrors's mode to RemoteOnly in the web.config and run iisreset /noforce to investigate.
13. Go to Central Admin > Application Management > Application Security > Authentication Providers > click on Extranet > uncheck Enable anonymous access > click Save > do the same for the default windows zone.
The following code will:
Private Function GetCSV() As System.Data.DataTable
If ViewState("SaveLocation") Is Nothing Then
Return Nothing
End If
Dim SaveLocation As String = ViewState("SaveLocation").ToString()
Using conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source = " & Path.GetDirectoryName(SaveLocation) & "; Extended Properties = ""Text;HDR=YES;FMT=Delimited""")
conn.Open()
Dim strQuery As String = "SELECT * FROM [" & Path.GetFileName(SaveLocation) & "]"
Dim adapter As New System.Data.OleDb.OleDbDataAdapter(strQuery, conn)
Dim ds As New System.Data.DataSet("CSV File")
adapter.Fill(ds)
Return ds.Tables(0)
End Using
End Function
Private Function UploadCSV() As Boolean
If Not Path.GetExtension(fileUploadCSV.PostedFile.FileName).ToLower.Equals(".csv") Then
lblMsg.Text = MessagesDAL.Instance.Get_MessageByID(Messages.MessageCodes.CSVExtensionRequired)
lblMsg.ForeColor = Drawing.Color.Red
Return False
End If
If Not fileUploadCSV.PostedFile Is Nothing And fileUploadCSV.PostedFile.ContentLength > 0 Then
Dim fn As String = Path.GetFileName(fileUploadCSV.PostedFile.FileName)
Dim SaveLocation As String = Path.Combine(Server.MapPath("CSVUploaded"), fn)
Try
fileUploadCSV.PostedFile.SaveAs(SaveLocation)
CreateSchemaFile(fn)
ViewState("SaveLocation") = SaveLocation
Catch Exc As Exception
lblMsg.Text = "Error: " & Exc.Message
lblMsg.ForeColor = Drawing.Color.Red
Return False
End Try
Else
lblMsg.Text = MessagesDAL.Instance.Get_MessageByID(Messages.MessageCodes.UploadFileRequired)
lblMsg.ForeColor = Drawing.Color.Red
Return False
End If
Return True
End Function
Private Function IsColumnHeaderExist(ByVal columnName As String) As Boolean
If ViewState("SaveLocation") Is Nothing Then
Return Nothing
End If
Dim SaveLocation As String = ViewState("SaveLocation").ToString()
Dim sr As StreamReader = New StreamReader(SaveLocation)
Dim headerline As String = sr.ReadLine()
sr.Close()
Dim values As String()
values = headerline.Split(",")
For i As Integer = 0 To values.Length - 1
If values(i).ToString.Equals(columnName) Then
Return True
End If
Next
Return False
End Function
Private Function CheckDuplicateRows() As Integer
If ViewState("SaveLocation") Is Nothing Then
Return Nothing
End If
Dim SaveLocation As String = ViewState("SaveLocation").ToString()
Dim FileContent As String() = File.ReadAllLines(SaveLocation)
Dim al As New ArrayList()
Dim lineNo As Integer = 1
'ignore the header row
For i As Integer = 1 To FileContent.Length - 1
lineNo += 1
If al.Contains(FileContent(i)) Then
Return lineNo
Else
al.Add(FileContent(i))
End If
Next
Return 1
End Function
Private Sub CreateSchemaFile(ByVal fileName As String)
'Create a schema.ini file to define data types for every csv file uploaded
'Otherwise the OleDbDataAdapter will convert e.g. 01/01/09 to datetime automatically rather than string
Dim strFilePath As String = Server.MapPath("CSVUploaded")
Using filestr As New FileStream(strFilePath & "\schema.ini", FileMode.Create, FileAccess.Write)
Using writer As New StreamWriter(filestr)
writer.WriteLine("[" & fileName & "]")
writer.WriteLine("ColNameHeader=True")
writer.WriteLine("Format=CSVDelimited")
writer.WriteLine("Col1=""Agent Registration Number"" Text")
writer.WriteLine("Col2=""Agent Family Name"" Text")
writer.WriteLine("Col3=""CPD Activity Item Number"" Long")
writer.WriteLine("Col4=""CPD Activity Start Date"" Text")
writer.WriteLine("Col5=""CPD Activity Start Time"" Text")
writer.WriteLine("Col6=""CPD Activity End Date"" Text")
writer.WriteLine("Col7=""CPD Activity End Time"" Text")
writer.WriteLine("Col8=Location Text")
writer.Close()
writer.Dispose()
End Using
filestr.Close()
filestr.Dispose()
End Using
End Sub
References:
Importing CSV file into Database with Schema.ini
Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
If GetPostBackControl(Me.Page) IsNot Nothing AndAlso GetPostBackControl(Me.Page).UniqueID = ddlFolder.UniqueID Then
'<<Handle Folder DropDownList Post Back>>
'...
ElseIf GetPostBackControl(Me.Page) IsNot Nothing AndAlso GetPostBackControl(Me.Page).UniqueID = btnEdit.UniqueID Then
'<<Handle Edit Button Post Back>>
'...
End If
End Sub
Public Shared Function GetPostBackControl(ByVal page As System.Web.UI.Page) As System.Web.UI.Control
Dim control As Control = Nothing
Dim ctrlname As String = page.Request.Params("__EVENTTARGET")
If ctrlname IsNot Nothing AndAlso ctrlname <> [String].Empty Then
control = page.FindControl(ctrlname)
Else
' if __EVENTTARGET is null, the control is a button type and we need to
' iterate over the form collection to find it
Dim ctrlStr As String = [String].Empty
Dim c As Control = Nothing
For Each ctl As String In page.Request.Form
' handle ImageButton controls ...
If ctl.EndsWith(".x") OrElse ctl.EndsWith(".y") Then
ctrlStr = ctl.Substring(0, ctl.Length - 2)
c = page.FindControl(ctrlStr)
Else
c = page.FindControl(ctl)
End If
If TypeOf c Is System.Web.UI.WebControls.Button OrElse TypeOf c Is System.Web.UI.WebControls.ImageButton Then
control = c
Exit For
End If
Next
End If
Return control
End Function
The __doPostBack function:
<input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" />
function __doPostBack(eventTarget, eventArgument) {
if (!theForm.onsubmit (theForm.onsubmit() != false)) {
theForm.__EVENTTARGET.value = eventTarget;
theForm.__EVENTARGUMENT.value = eventArgument;
theForm.submit();
}
}
References:
Adding to DNS
Creating the FBA Database
Enabling Forms Authentication
FBA Tools
Adding FBA Users
Turning Off Anonymous Access
If you get a “timeout connection in the database because there are no connections available in the connection pool” error, the following queries will help you diagnose the problem:
Thanks Tracey.
