asp取得一个不重复的序号<br /> Public Function GetNewID()<br /> dim ranNum<br /> dim dtNow<br /> randomize<br /> dtNow=Now()<br /> ranNum=int(90000*rnd)+10000<br /> GetNewID=year(dtNow) &amp; right(&quot;0&quot; &amp; month(dtNow),2) &amp; right(&quot;0&quot; &amp; day(dtNow),2) &amp; right(&quot;0&quot; &amp; hour(dtNow),2) &amp; right(&quot;0&quot; &amp; minute(dtNow),2) &amp; right(&quot;0&quot; &amp; second(dtNow),2) &amp; ranNum<br /> End Function