Sub SendMail_godaddy(ByVal Subject As String, ByVal Body As String, ByVal FromMail As String, ByVal ToMail As String)

        Dim objMail As New System.Web.Mail.MailMessage()



        objMail.From = FromMail

        objMail.To = ToMail

        objMail.Subject = Subject

        objMail.BodyFormat = Mail.MailFormat.Html

        objMail.Priority = Mail.MailPriority.High

        objMail.Body = Body



        System.Web.Mail.SmtpMail.SmtpServer = UW.Mail.SMTP_SERVER_NAME

        System.Web.Mail.SmtpMail.Send(objMail)

    End Sub

        

'更新

        If UW.WU.IsNonEmptyFromQueryStringOrForm("Refresh") Then

            System.Web.HttpContext.Current.Cache.Remove(CacheName)

        End If

        '快取部分

        If obj Is Nothing Then

            Dim SQL As String = ""

            SQL = "select * from Product with (nolock)"

            obj = UW.SQL.DTFromSQL(SQL)



            Dim AC As New AggregateCacheDependency



            Dim DepArray() As CacheDependency = { _

                 New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product"), _

                 New SqlCacheDependency(UW.SQL.sqlCacheDependencyName, "Product_Category") _

            }



            AC.Add(DepArray)

            Dim FD As New CacheDependency(UW.Template.TemplateRoot & "2013UI\Product\DirectBuyAllProduct.html")

            AC.Add(FD)



            System.Web.HttpContext.Current.Cache.Insert(CacheName, obj, AC)



        End If

提供者選項中 'compilerVersion' 屬性的值必須是 'v4.0' 以上 (如果要針對 4.0 版以後的 .NET Framework 編譯)。若要針對 3.5 (含) 以後版本的 .NET Framework 編譯這個 Web 應用程式，請從 Web.config 檔案的 <compilation> 項目移除 'targetFramework' 屬性。

<system.codedom>

    <compilers>

     <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CSharp.CSharpCodeProvider,System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4">

        <providerOption name="CompilerVersion" value="v4.0"/>

        <providerOption name="WarnAsError" value="false"/>

     </compiler>

     <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.VisualBasic.VBCodeProvider, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4">

        <providerOption name="CompilerVersion" value="v4.0"/>

        <providerOption name="OptionInfer" value="true"/>

        <providerOption name="WarnAsError" value="false"/>

     </compiler>

    </compilers>

</system.codedom>

<system.web>

    <compilation targetFramework="4.0" />

</system.web>