ASP 随机数值

最新推荐文章于 2024-12-25 15:51:00 发布

weixin_30369041

最新推荐文章于 2024-12-25 15:51:00 发布

阅读量57

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lichsky/p/3308381.html

本文介绍了两种生成唯一标识符的方法：一种是利用当前时间的毫秒数生成的时间戳，另一种是通过COM对象创建GUID。时间戳方法将年、月、日与当前时间的毫秒数相结合，确保了标识符的独特性；GUID方法则直接调用Scriptlet.TypeLib对象生成GUID，再去除花括号。

'=========================
' 获取以时间毫秒唯一数值
'=========================
Function GETTIMER()
  dim abc
  abc = now()
  GETTIMER = right(year(abc),2) & right("0" & month(abc),2) & right("0" & day(abc),2) & (timer()*100)
End Function 

'=========================
' 获取GUID唯一值
'=========================
Function GUID() 
  Dim objTypeLib 
  Dim str
  
  Set objTypeLib = CreateObject("Scriptlet.TypeLib") 
  str = Left(CStr(objTypeLib.Guid),38)
  str = replace(str,"{","")
  str = replace(str,"}","")
  GUID = str
  
  Set objTypeLib = Nothing 
End Function