NET移植案例學習：建造Web站點(6)

　　圖3 Config.web文件

＜?xml version="1.0" encoding="utf-8" ?＞
＜configuration＞

?。?-- SECURITY
　　This section sets the security policies of the application.
　　Possible modes are "Windows", "Cookie",
　　"Passport" and "None"
　--＞

?。?-- Use Cookie Authentication for external users --＞


?。約ecurity＞
　?。糰uthentication mode="Cookie"＞
　　?。糲ookie cookie=".PRODAUTH" loginurl="https://
　　　　　beta.visualstudio.net/Login.aspx"
　　　　decryptionkey="autogenerate"＞

　　　?。糲redentials passwordformat="Clear" /＞
　　?。?cookie＞
　?。?authentication＞
　?。糰uthorization＞
　　?。糰llow users="*" /＞
　?。?authorization＞
?。?security＞
＜/configuration＞


　　圖4 認證代碼

Public Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As _
System.EventArgs)
　Dim sUserID As String
　Dim sPassword As String
　Dim sAuthCookie As String

　'External user, take the values from the Login form
　sUserid = system.Convert.ToString(Me.txtUserID.Value)
　sPassword = system.Convert.ToString(Me.txtPassword.Value)

　adoRS = oBetaUser.LoginEx(sUserID, sPassword)

　If adoRS.recordcount = 1 Then
　　'login suclearcase/" target="_blank" >ccess - get a session
　　adoRS = osSession.GetNewSession _
　　　　(adoRS("BetaSiteID").Value.ToString().ToInt32())

　　If Not adoRS Is Nothing Then
　　　If adoRS.Recordcount ＞ 0 Then
　　　　adoRS.movefirst()

　　　　'Set the authentication cookie using the SID
　　　　sAuthCookie = adoRS("SID").Value.ToString()

　　　　'use ASP+ authentication to authenticate the user,
　　　　If Instr(CookieAuthentication.GetRedirectUrl _
　　　　　　　(sAuthCookie, True), "default.aspx") ＞ 0 Then
　　　　　CookieAuthentication.SetAuthCookie(sAuthCookie, True)
　　　　　Response.Redirect(system.Convert.ToString( _
　　　　　　　　　　　　　　oSiteUser.GlobalPath) & "Home.aspx")
　　　　Else
　　　　　CookieAuthentication.RedirectFromLoginPage( _
　　　　　　　　　　　　　　　　　　　sAuthCookie, True)
　　　　End If
　　　Else
　　　　'login failed
　　　　Response.Redirect("LoginFailed.aspx")
　　　End If
　　Else
　　　'login failed
　　　Response.Redirect("LoginFailed.aspx")
　　End If
　Else
　　'login failed
　　Response.Redirect("LoginFailed.aspx")
　End If
End Sub

原文轉自：http://www.kjueaiud.com