Membership GetUser
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Default_aspx" %>
Untitled Page
File:Default.aspx.vb
Partial Class Default_aspx
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Membership.GetUser IsNot Nothing Then
Response.Write("Time is " & Now)
End If
End Sub
End Class