文档章节

dotnetnuke|dnn 内网实现自动登录

 大东家
发布于 2015/01/13 10:29
字数 179
阅读 10
收藏 0

Imports DotNetNuke.Services.Authentication          
 Imports DotNetNuke.Services.Authentication          
            If Request.Cookies("NotFirstTime") Is Nothing Then
                Dim objUser As UserInfo
                objUser = New UserInfo
                If UserController.GetCurrentUserInfo.Username = "" Then
                    '判断是否是内部IP
                    Dim IPAdd As String
                    IPAdd = HttpContext.Current.Request.UserHostAddress
                    Dim myIP(4) As String
                    myIP = IPAdd.Split(".")
                    Dim x(4) As Int32
                    x(0) = Convert.ToInt32(myIP(0))
                    x(1) = Convert.ToInt32(myIP(1))
                    x(2) = Convert.ToInt32(myIP(2))
                    x(3) = Convert.ToInt32(myIP(3))
                    Dim IsInSchool As Boolean
                    IsInSchool = False
                    If x(0) = 10 Then
                        IsInSchool = True
                    End If
                    If x(0) = 172 Then
                        If x(1) >= 16 And x(1) < 31 Then
                            IsInSchool = True
                        End If
                    End If
                    If x(0) = 192 Then
                        If x(1) = 168 Then
                            IsInSchool = True
                        End If
                    End If
                    If x(0) = 127 Then
                        IsInSchool = True
                    End If

                        If IsInSchool = True Then
                        AuthenticationController.SetAuthenticationType(ViewState("AuthenticationType"))
                        objUser.Username = "InnerUser"
                        UserController.UserLogin(Me.PortalSettings.PortalId, objUser, PortalSettings.PortalName,

AuthenticationLoginBase.GetIPAddress(), 1)
                        UserController.UpdateUser(Me.PortalSettings.PortalId, objUser)
                        Response.Redirect(Request.Url.ToString())
                    End If
                End If

                Dim newCookie As HttpCookie
                newCookie = New HttpCookie(1)
                newCookie.Name = "NotFirstTime"
                newCookie.Value = "MoreThanOneTimesLoading"
                newCookie.Expires = System.DateTime.Now.AddSeconds(30)
                Response.Cookies.Add(newCookie)
            End If

 

© 著作权归作者所有

粉丝 22
博文 255
码字总数 111936
作品 0
长沙
项目经理
私信 提问
DotNetNuke(DNN)学习和应用资源合集

在想解决任何问题之前,请看看DNN的官方文档有没有答案。 DNN官方文档:http://jaist.dl.sourceforge.net/sourceforge/dnn/DotNetNuke4.4.1_Docs.zip DNN官方安装程序和官方模块下载(如果去...

m2land
2008/02/20
0
0
在VS中使用独立的项目(Project)开发DNN模块

在DotNetNuke 发布的 04.09.01 StartKit中,已经同时包含了VB.NET和C#的DNN模块。可以参考我的文章:DNN 04.09.01 StartKit中的新内容。 下载DotNetNuke C# Compiled Module Starter Kit for...

m2land
2008/12/17
0
0
DotNetNuke安装与下载

【下载专区】 DotNetNuke (DNN) 5.1 稳定版正式发布 http://www.dnnmix.com/dotnetnuke-dnn-51-released/ DotNetNuke (DNN) 资源共享 http://www.dnnmix.com/resources/ DotNetNuke官方下载 ......

长平狐
2013/01/06
65
0
DotNetNuke模块制作Super-Simple(DAL+)教程-翻译

为入门者准备! (适用于 DotNetNuke Version 4.3.1 or higher) 使用 VB.NET 或 C# 这个教程向你演示如何创建一个使用DAL+“ExecuteSQL”方法的DotNetNuke模块,DAL+是DotNetNuke数据存取层(Da...

m2land
2008/06/12
0
0
DotNetNuke各项业务外包

DotNetNuke业务外包: 有大量的DotNetNuke皮肤制作急需外包,已经有做好的设计稿(PDF,PSD,等等),需转成DNN皮肤。 其他须外包的业务还包括 国外客户,要求一定的英文阅读能力。酬劳面议!...

m2land
2008/03/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

代理模式之JDK动态代理 — “JDK Dynamic Proxy“

动态代理的原理是什么? 所谓的动态代理,他是一个代理机制,代理机制可以看作是对调用目标的一个包装,这样我们对目标代码的调用不是直接发生的,而是通过代理完成,通过代理可以有效的让调...

code-ortaerc
43分钟前
4
0
学习记录(day05-标签操作、属性绑定、语句控制、数据绑定、事件绑定、案例用户登录)

[TOC] 1.1.1标签操作v-text&v-html v-text:会把data中绑定的数据值原样输出。 v-html:会把data中值输出,且会自动解析html代码 <!--可以将指定的内容显示到标签体中--><标签 v-text=""></......

庭前云落
今天
7
0
VMware vSphere的两种RDM磁盘

在VMware vSphere vCenter中创建虚拟机时,可以添加一种叫RDM的磁盘。 RDM - Raw Device Mapping,原始设备映射,那么,RDM磁盘是不是就可以称作为“原始设备映射磁盘”呢?这也是一种可以热...

大别阿郎
今天
10
0
【AngularJS学习笔记】02 小杂烩及学习总结

本文转载于:专业的前端网站☞【AngularJS学习笔记】02 小杂烩及学习总结 表格示例 <div ng-app="myApp" ng-controller="customersCtrl"> <table> <tr ng-repeat="x in names | orderBy ......

前端老手
昨天
14
0
Linux 内核的五大创新

在科技行业,创新这个词几乎和革命一样到处泛滥,所以很难将那些夸张的东西与真正令人振奋的东西区分开来。Linux内核被称为创新,但它又被称为现代计算中最大的奇迹,一个微观世界中的庞然大...

阮鹏
昨天
18
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部