---

　　图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 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