Asp常用通用函数之产生20位长度的唯一标识ID

点击次数：227 创建日期：11-25-2007 录入：cn-web.com 字体:[大中小] 点评：

'函数名：MakeTheID
  '作用：产生20位长度的唯一标识ID
  '参数： ----
  '返回值：返回20位长度的唯一标识ID
  '示例：MakeTheID()
  '**************************************************
  Public Function MakeTheID()
   DIM datestr,mytime,myyear,mymonth,myday,i
   myyear = cstr(year(date()))
   mymonth = cstr(month(date()))
   myday = cstr(day(date()))
   mymonth = lpad(mymonth,0,2)
   MakeTheID = myyear & "_" & mymonth & "_" & myday & "_"
   datestr=cstr(now())
   i = instr(datestr," ")
   mytime = right(datestr,len(datestr)-i)
   mytime = replace(mytime,":","_")
   randomize
   i = Int((9999 - 1000 + 1) * Rnd + 1000)
   MakeTheID = MakeTheID & mytime & "_" & i
   MakeTheID = replace(MakeTheID,"_","")
  end function