NET移植案例学习：建造Web站点

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文描述了移植beta.visualstudio.net站点的过程，说明了如何使用ASP .NET和.NET框架将原来用Visual Basic 6.0和ASP开发的，发布在Microsoft Internet Information Services (IIS) 5.0上的组件移植到.NET平台下……

作者：喻凯来源：yesky 2007年11月8日

关键字： Windows

图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

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

NET移植案例学习：建造Web站点

业界热点: