---

<smtp deliveryMethod="Network">
  <network host="smtp.youprovider.com" userName="username" password="password"/>
</smtp>

---

---


Partial Class ViewDetails
  Inherits BasePage

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim reviewId As Integer = Convert.ToInt32(Request.QueryString.Get("ReviewId"))
    Dim myReview As Review

    Using db As New PlanetWroxDataContext()
      myReview = (From r In db.Reviews _
                  Where r.Id = reviewId _
                  Select r).Single()
      lblTitle.Text = myReview.Title
      lblSummary.Text = myReview.Summary
      lblBody.Text = myReview.Body

      'Set the page title programmatically
      Me.Title = myReview.Title
    End Using
  End Sub
End Class

---

---

Partial Class test
    Inherits BasePage

End Class

---

---


Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
End Class

---

---

<Table(Name:="dbo.Picture")>  _
Partial Public Class Picture
        Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
       
        Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty)
       
        Private _Id As Integer
       
        Private _Description As String
       
        Private _Tooltip As String
       
        Private _ImageUrl As String
       
        Private _PhotoAlbumId As Integer
       
        Private _PhotoAlbum As EntityRef(Of PhotoAlbum)
       
    #Region "Extensibility Method Definitions"
    Partial Private Sub OnLoaded()
    End Sub
    Partial Private Sub OnValidate(action As System.Data.Linq.ChangeAction)
    End Sub
    Partial Private Sub OnCreated()
    End Sub
    Partial Private Sub OnIdChanging(value As Integer)
    End Sub
    Partial Private Sub OnIdChanged()
    End Sub
    Partial Private Sub OnDescriptionChanging(value As String)
    End Sub
    Partial Private Sub OnDescriptionChanged()
    End Sub
    Partial Private Sub OnTooltipChanging(value As String)
    End Sub
    Partial Private Sub OnTooltipChanged()
    End Sub
    Partial Private Sub OnImageUrlChanging(value As String)
    End Sub
    Partial Private Sub OnImageUrlChanged()
    End Sub
    Partial Private Sub OnPhotoAlbumIdChanging(value As Integer)
    End Sub
    Partial Private Sub OnPhotoAlbumIdChanged()
    End Sub
    #End Region
       
        Public Sub New()
                MyBase.New
                Me._PhotoAlbum = CType(Nothing, EntityRef(Of PhotoAlbum))
                OnCreated
        End Sub
       
        <Column(Storage:="_Id", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=true, IsDbGenerated:=true)>  _
        Public Property Id() As Integer
                Get
                        Return Me._Id
                End Get
                Set
                        If ((Me._Id = value)  _
                                                = false) Then
                                Me.OnIdChanging(value)
                                Me.SendPropertyChanging
                                Me._Id = value
                                Me.SendPropertyChanged("Id")
                                Me.OnIdChanged
                        End If
                End Set
        End Property
       
        <Column(Storage:="_Description", DbType:="NVarChar(300) NOT NULL", CanBeNull:=false)>  _
        Public Property Description() As String
                Get
                        Return Me._Description
                End Get
                Set
                        If (String.Equals(Me._Description, value) = false) Then
                                Me.OnDescriptionChanging(value)
                                Me.SendPropertyChanging
                                Me._Description = value
                                Me.SendPropertyChanged("Description")
                                Me.OnDescriptionChanged
                        End If
                End Set
        End Property
       
        <Column(Storage:="_Tooltip", DbType:="NVarChar(50) NOT NULL", CanBeNull:=false)>  _
        Public Property Tooltip() As String
                Get
                        Return Me._Tooltip
                End Get
                Set
                        If (String.Equals(Me._Tooltip, value) = false) Then
                                Me.OnTooltipChanging(value)
                                Me.SendPropertyChanging
                                Me._Tooltip = value
                                Me.SendPropertyChanged("Tooltip")
                                Me.OnTooltipChanged
                        End If
                End Set
        End Property
       
        <Column(Storage:="_ImageUrl", DbType:="NVarChar(200) NOT NULL", CanBeNull:=false)>  _
        Public Property ImageUrl() As String
                Get
                        Return Me._ImageUrl
                End Get
                Set
                        If (String.Equals(Me._ImageUrl, value) = false) Then
                                Me.OnImageUrlChanging(value)
                                Me.SendPropertyChanging
                                Me._ImageUrl = value
                                Me.SendPropertyChanged("ImageUrl")
                                Me.OnImageUrlChanged
                        End If
                End Set
        End Property
       
        <Column(Storage:="_PhotoAlbumId", DbType:="Int NOT NULL")>  _
        Public Property PhotoAlbumId() As Integer
                Get
                        Return Me._PhotoAlbumId
                End Get
                Set
                        If ((Me._PhotoAlbumId = value)  _
                                                = false) Then
                                If Me._PhotoAlbum.HasLoadedOrAssignedValue Then
                                        Throw New System.Data.Linq.ForeignKeyReferenceAlreadyHasValueException
                                End If
                                Me.OnPhotoAlbumIdChanging(value)
                                Me.SendPropertyChanging
                                Me._PhotoAlbumId = value
                                Me.SendPropertyChanged("PhotoAlbumId")
                                Me.OnPhotoAlbumIdChanged
                        End If
                End Set
        End Property
       
        <Association(Name:="PhotoAlbum_Picture", Storage:="_PhotoAlbum", ThisKey:="PhotoAlbumId", OtherKey:="Id", IsForeignKey:=true)>  _
        Public Property PhotoAlbum() As PhotoAlbum
                Get
                        Return Me._PhotoAlbum.Entity
                End Get
                Set
                        Dim previousValue As PhotoAlbum = Me._PhotoAlbum.Entity
                        If ((Object.Equals(previousValue, value) = false)  _
                                                OrElse (Me._PhotoAlbum.HasLoadedOrAssignedValue = false)) Then
                                Me.SendPropertyChanging
                                If ((previousValue Is Nothing)  _
                                                        = false) Then
                                        Me._PhotoAlbum.Entity = Nothing
                                        previousValue.Pictures.Remove(Me)
                                End If
                                Me._PhotoAlbum.Entity = value
                                If ((value Is Nothing)  _
                                                        = false) Then
                                        value.Pictures.Add(Me)
                                        Me._PhotoAlbumId = value.Id
                                Else
                                        Me._PhotoAlbumId = CType(Nothing, Integer)
                                End If
                                Me.SendPropertyChanged("PhotoAlbum")
                        End If
                End Set
        End Property
       
        Public Event PropertyChanging As PropertyChangin��ӐWל��ҝu0s�E7��ϧ��8�

---

---

    <div id="MenuWrapper">
        <asp:Menu ID="Menu1" runat="server" CssClass="MainMenu"
          DataSourceID="SiteMapDataSource1" Orientation="Horizontal"
          StaticEnableDefaultPopOutImage="False">
          <StaticSelectedStyle CssClass="StaticSelectedStyle" />
          <StaticMenuItemStyle CssClass="StaticMenuItemStyle" />
          <DynamicHoverStyle CssClass="DynamicHoverStyle" />
          <DynamicMenuItemStyle CssClass="DynamicMenuItemStyle" />
          <StaticHoverStyle CssClass="StaticHoverStyle" />
        </asp:Menu>
     
      <asp:SiteMapDataSource ID="SiteMapDataSource1" runat="server"
        ShowStartingNode="False" />
    </div>

---

---

#MenuWrapper
{
margin-left: 5px;
background-color: #606060;
padding-bottom:1.2em;
}

.MainMenu
{
}

.StaticMenuItemStyle, .StaticMenuItemStyle a, StaticMenuItemStyle a:visited
{
    color:black;
    background-color:white;
    background-image:url('/images/menu/css-nav.gif');       
    font-size: .8em;
    font-weight: bold;
    text-align:center;
    text-decoration: none;
    line-height:20px;
    width:80px;
    padding-left: 5px;
}

.StaticHoverStyle, .StaticHoverStyle  a
{
    color:Black;
    background-color: Gray;
    background-image:url('/images/menu/css-nav-hov.gif');
}

.StaticSelectedStyle, .StaticSelectedStyle a
{
    color:#223188;
    background-color: Blue;
    background-image:url('/images/menu/css-nav-sel.gif');
}

.DynamicMenuItemStyle
{
    font-size: 14px;
    color: #707070;
    background-color: #cccccc;
    padding: 4px 2px 4px 3px;
}

.DynamicHoverStyle
{
    background-color: #707070;
    color: White;
}

.DynamicHoverStyle a
{
      text-decoration: none;
}

---