ASP 随机数值

'=========================
' 获取以时间毫秒唯一数值
'=========================
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