Question

我找到了几个表单的aspx代码，其中包括使用“Set”函数。当我在托管服务器上尝试它们时，我收到一条错误消息“不再支持Set”。有人知道什么取代了“Set”命令吗？

更具体地说，我该如何改变：

Dim mail 
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = EmailTo 
mail.From = EmailFrom 
mail.Subject = Subject 
mail.Body = Body 
mail.Send

与VB.NET兼容吗？

Answer 1

如果你的意思是VB6语法

Set obj = new Object

然后你可以简单地删除Set

obj = new Object()

Answer 2

Set是VB6中的一个关键字，随着VB.NET的引入，该关键字被删除了。

以前，Set用于表示正在分配对象引用（Let是默认值）。由于默认属性不再受支持，除非它们接受参数，否则这些语句已被删除。

Module Module1
    Sub Main()

    Dim person As New Person("Peter")
    Dim people As New People()

    people.Add(person)

    'Use the default property, provided we have a parameter'

    Dim p = people("Peter")

    End Sub
End Module

Public Class People
    Private _people As New Dictionary(Of String, Person)

    Public Sub Add(ByVal person As Person)
    _people.Add(person.Name, person)
    End Sub

    Default Public ReadOnly Property Person(ByVal name As String) As Person
    Get
        Return _people(name)
    End Get
    End Property
End Class

Public Class Person
    Private _name As String

    Public Sub New(ByVal name As String)
    _name = name
    End Sub

    Public ReadOnly Property Name() As String
    Get
        Return _name
    End Get
    End Property
End Class

Answer 3

要记住的一些事情.Net：

永远不要在.Net代码中使用Server.CreateObject（）。如初。
从不对变量进行调暗而不给它显式类型。除了新的Option Infer linq类型
永远不要使用Set关键字。除了定义属性外。

事实上，在.Net中你可以完全摆脱CDONTS的依赖，因为.Net有内置的邮件支持：

Dim smtp As New System.Net.SmtpClient()
Dim message As New System.Net.MailMessage(EmailFrom, EmailTo, Subject, Body)
smtp.Send(message)

用VB替换函数“Set”是什么用的？

3 个答案: