3行代码，搞垮Domino服务器

声明：

此文撰写的目的在于探讨Domino开发技术，并尽量回避开发过程中有可能犯下的错误，请勿将其用于不适当的场合，否则后果自负！

---

前两天碰到一个奇怪的问题，某段代码一执行，就会立即触发NSD错误。如果代码运行在客户端，则客户端会被强制关闭。如果代码运行在服务器，则整个Domino服务器会立即瘫痪并被强制关闭。当时通过Lotusscript调试，发现在如下函数退出时程序崩溃：

Function  getVariant()  as  Variant
   dim  vrnTemp  as  Variant
  ...
   End Function

琢磨了半天，恍然大悟，忘了写返回值(-_-)b

更改后代码如下： 

Function  getVariant()  as  Variant
   dim  vrnTemp  as  Variant
  ...
  getVariant  =  vrnTemp  '  给函数赋返回值。这句是原来忘了写的。
End Function

 

 

这样一来问题就消失了，我也一度认为Variant型的函数必须赋返值，可是今天想再研究一下这问题时，却发现问题无法重现了。莫非是原来的推断有误？更深入的研究证实了这一点。原来，问题的产生的源头是另一个函数。

Function  wrongFunction()  as  Variant  
  ...
   ' vrnSource is a string array
  vrnSource  =  arrayappend(vrnSource, getVariant())  ' 其实是一执行到这里就NSD
  ...
End Function

实测结果表明，当使用ArrayAppend()方法时，如果第二个参数是Nothing，则会立即触发NSD错误。按照这个思路，完全可以写出类似以下的代码。

Dim  v  As  Variant
v  =   Split ( "" ,  "" )
v  =  Arrayappend(v,  Nothing )

当代码执行时，便会触发NSD错误。如果类似有问题的代码放置服务器上，又设置为定时代理……后果不堪设想。 

PS：经测试，如果将第二个参数Nothing换为Null或者Empty，则不会出现类似的问题。