BC30807: 不再支持“Let”和“Set”赋值语句

在调试资源库的时候，出现了如下的一个提示：

编译器错误信息: BC30807: 不再支持“Let”和“Set”赋值语句。

源错误:

行 2： <%
行 3： Dim objwpdefault
行 4： Set objwpdefault = Server.CreateObject("Resource.wpdefault")
行 5： objwpdefault.I_init
行 6： Set objwpdefault = Nothing

源文件: c:\vsta\Resource\Default.aspx 行: 4

下面是类似问题的解决方法，可以参考

一、ASP原码（假设文件名为conn.asp）

<%
   dim conn
   dim sql as string
   set conn=server.createobject("adodb.connection")
   sql="driver={sql server};server=(local);uid=sa;pwd=;database=school"
   conn.open(sql)
   %>

--------------------------------------------------------------------------------