<%
Function GetUnixTimestamp()
Dim UnixTime, i
UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
For i = 1 To 3
UnixTime = UnixTime * 10
Next
GetUnixTimestamp = UnixTime + (CLng(Right(Timer(), 3)) Mod 1000)
End Function
Response.Write GetUnixTimestamp()
%>`
asp 插入13位时间戳,纯源码