Jalen的空间

<br />function ExecReg(re, content) <br />    Dim myRegExp, ResultString<br />    Set myRegExp =New RegExp<br />     myRegExp.Global =True<br />     myRegExp.Pattern = re<br />     ResultString = myRegExp.Replace(content, "") <br />     ExecReg = ResultStr

<br />函数RND（）是一个非常重要的函数。如果你想建立一个随机的问候语，一个日期的随机提示，或者甚至一个游戏.....<br /> <br />但是，有时无论何时使用函数RND（），它将以同样的顺序返回同样的随机数，这也许另你吃惊。考虑如下的例子： <br /><br /><% <br /><br />Pick_Greeting=INT((2+1)*RND) <br /><br />SELECT   CASE   Pick_Greeting <br /><br />CASE   0 <br /><br