NET移植案例学习:建造Web站点(6)
2008-02-23 05:40:07来源:互联网 阅读 ()
<?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
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash