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 --＞　＜security＞＜authentication mode="Cookie"＞　＜cookie cookie=".PRODAUTH" loginurl="https://　beta.visualstudio.net/Login.aspx" decryptionkey="autogenerate"＞＜credentials passwordformat="Clear" /＞　＜/cookie＞＜/authentication＞＜authorization＞　＜allow 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 success - get a sessionadoRS = osSession.GetNewSession _(adoRS("BetaSiteID").Value.ToString().ToInt32())If Not adoRS Is Nothing Then　If adoRS.Recordcount ＞ 0 ThenadoRS.movefirst()'Set the authentication cookie using the SIDsAuthCookie = 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 failedResponse.Redirect("LoginFailed.aspx")　End IfElse　'login failed　Response.Redirect("LoginFailed.aspx")End If　Else'login failedResponse.Redirect("LoginFailed.aspx")　End IfEnd Sub