asp纯日期（年月日时分秒）随机码，ASP随机码函数

'------------- 20190123162518 年月日时分秒 -------

参数 ljf 可以自定义为空，或者 - _ 都可以

function RiQiSiJiMa(ljf)
dim n,y,r,s,f,m
n=year(now())'年-4位
y=right("0"&Month(now())&"",2)'月-2位
r=right("0"&day(now())&"",2)'日-2位
s=right("0"&Hour(now())&"",2)'时-2位
f=right("0"&Minute(now())&"",2)'分-2位
m=right("0"&Second(now())&"",2)'秒-2位
RiQiSiJiMa=n&ljf&y&ljf&r&ljf&s&ljf&f&ljf&m

end function

可以配合字符串随机码一起用：

'---------------- 随机码 ---
Function randomStr(intLength) 
Dim strSeed, seedLength, pos, Str, i 
strSeed = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" 
seedLength = Len(strSeed) 
Str = "" 
Randomize 
For i = 1 To intLength 
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1) 
Next 
randomStr = Str 
End Function