更简单的方法来定义经典ASP中的属性？

Question

对于ASP代码中我班级中的每个属性，我必须使用它：

Public Property Get ItemsOnPage()
    ItemsOnPage = m_ItemsOnPage
end Property

Public Property Let ItemsOnPage(inp)
    m_ItemsOnPage = inp
End Property

此示例适用于ItemsOnPage属性。有什么其他方法可以以某种方式使用子程序吗？我尝试使用：

sub subClassProperty(varProperty)
execute("Public Property Get " & varProperty & "()")
execute(varProperty & " = m_" & varProperty)
execute("end Property")

execute("Public Property Let " & varProperty & "(inp)")
execute("m_" & varProperty & " = inp")
execute("End Property") 
end sub

但这个我不能从班级打电话： - （（

Answer 1

我相信你可以使用一个公共语句，这是一种更简单的语法。

http://msdn.microsoft.com/en-us/library/72bd95z8%28v=VS.85%29.aspx

这说明了一个简单的例子

http://www.4guysfromrolla.com/webtech/092399-1.2.shtml

Answer 2

从这个意义上讲，VBScript不是一种动态语言。您无法在运行时修改该类。

我建议您不要使用属性，而是在使用此类的脚本中使用一些常用方法，如SetProperty（“propertyName”，value）和GetProperty（“propertyName”）。

“propertyName”和值之间的内部映射由您决定。如果它的属性数量相对较少，则只能使用2维数组或2个数组。