asp生成随机数，订单号，时间戳，唯一编号的方法

1. 生成订单号

<%
Randomize '纯随机,不重复
randomNum=cstr(Int((99999999 * Rnd) + 11111111)) '生成11111111到99999999之间随机数
orderNum="order_"&year(now())& month(now()) & day(now()) & hour(now()) & Minute(now()) & Second(now()) &  randomNum  '订单编号
%>
分

2. 生成时间戳

时间戳通常是指从某个固定的起始时间（如 1970 年 1 月 1 日 00:00:00 UTC）到指定时间的秒数或毫秒数。在 ASP 中，可以使用DateDiff函数结合Date和Time函数来计算与起始时间的差值从而得到时间戳。

<%
' 获取当前日期和时间
Dim currentDateTime
currentDateTime = Now()
' 定义起始时间（1970年1月1日 00:00:00 UTC）
Dim startTime
startTime = "1/1/1970 00:00:00"
' 计算时间差（以秒为单位）
Dim timestamp
timestamp = DateDiff("s", startTime, currentDateTime)
Response.Write "当前时间戳: " & timestamp
%>

3. 生成随机不同时间数

要生成随机不同的时间数，可以通过在当前时间的基础上加上或减去一个随机的时间间隔来实现。

<%
' 获取当前日期和时间
Dim currentDateTime
currentDateTime = Now()
' 生成一个随机的时间间隔（以分钟为单位，范围在 -60 到 60 分钟之间）
Dim randomInterval
randomInterval = Int((121 * Rnd()) - 60)
' 计算随机时间
Dim randomDateTime
randomDateTime = DateAdd("n", randomInterval, currentDateTime)
Response.Write "当前时间: " & currentDateTime & "<br>"
Response.Write "随机时间: " & randomDateTime
%>

4. 生成唯一 16 位字符串

可以结合当前时间戳和随机数来生成一个唯一的 16 位字符串。

<%
' 获取当前时间戳
Dim currentDateTime
currentDateTime = Now()
Dim startTime
startTime = "1/1/1970 00:00:00"
Dim timestamp
timestamp = DateDiff("s", startTime, currentDateTime)
' 生成一个随机数
Dim randomNumber
randomNumber = Int((999999 * Rnd()) + 1)
' 将时间戳和随机数转换为字符串
Dim timestampStr
timestampStr = CStr(timestamp)
Dim randomNumberStr
randomNumberStr = CStr(randomNumber)
' 组合字符串
Dim uniqueString
uniqueString = Left(timestampStr & randomNumberStr, 16)
Response.Write "唯一16位字符串: " & uniqueString
%>

以上代码在 ASP 环境中运行，通过不同的逻辑实现了生成时间戳、随机不同时间数以及唯一 16 位字符串的功能。需要注意的是，虽然上述生成唯一 16 位字符串的方法在大多数情况下可以保证唯一性，但在高并发场景下可能会出现重复，若需要更高的唯一性保证，可以考虑使用更复杂的算法，如 GUID（全局唯一标识符）。

5. 生成时间戳

时间戳通常是指从某个固定时间点（如1970年1月1日）到当前时间的秒数。ASP中可以通过以下代码生成时间戳：

<%
Function GetTimestamp()
    Dim dt, ts
    dt = Now()
    ts = DateDiff("s", "1970-01-01 00:00:00", dt)
    GetTimestamp = ts
End Function
Response.Write "当前时间戳：" & GetTimestamp()
%>

6. 生成随机不同时间数

可以通过随机函数生成随机的时间数，例如随机生成未来某个时间点：

<%
Function GetRandomTime()
    Dim randomTime
    Randomize ' 初始化随机数种子
    randomTime = DateAdd("n", Int((1440 * Rnd)), Now()) ' 随机生成未来1天内的某个时间点
    GetRandomTime = randomTime
End Function
Response.Write "随机时间：" & GetRandomTime()
%>

7. 生成唯一16位字符串

可以通过组合时间戳、随机数或其他信息生成一个唯一的16位字符串：

<%
Function GenerateUniqueString()
    Dim ts, randomStr, uniqueStr
    ts = Right("0000000000" & GetTimestamp(), 10) ' 获取时间戳并截取10位
    Randomize
    randomStr = Right("000000" & Int((999999 * Rnd)), 6) ' 生成6位随机数
    uniqueStr = ts & randomStr ' 拼接时间戳和随机数
    GenerateUniqueString = uniqueStr
End Function
Response.Write "唯一16位字符串：" & GenerateUniqueString()
%>

说明：

时间戳函数：GetTimestamp 函数通过计算当前时间与1970年1月1日的秒差来生成时间戳。

随机时间函数：GetRandomTime 函数通过 DateAdd 和 Rnd 函数生成随机时间点。

唯一字符串函数：GenerateUniqueString 函数通过拼接时间戳和随机数生成一个唯一的16位字符串。

8. 生成时间戳

时间戳通常表示从1970年1月1日（UTC）到当前时间的秒数或毫秒数。在ASP中，你可以使用DateDiff函数来计算时间戳。

<%
Function GetTimestamp()
    Dim startDate, currentDate
    startDate = CDate("1970-01-01 00:00:00")
    currentDate = Now()
    GetTimestamp = DateDiff("s", startDate, currentDate)
End Function
Response.Write "Timestamp: " & GetTimestamp()
%>

9. 生成随机不同时间数

你可以使用Rnd函数生成随机数，并将其与时间戳结合，生成随机时间数。

<%
Function GetRandomTime()
    Dim randomValue
    Randomize
    randomValue = Rnd() * 1000000
    GetRandomTime = GetTimestamp() & Int(randomValue)
End Function
Response.Write "Random Time: " & GetRandomTime()
%>

10. 生成唯一16位字符串

你可以使用时间戳和随机数结合的方式来生成一个唯一的16位字符串。

<%
Function GenerateUniqueID()
    Dim timestamp, randomPart, uniqueID
    timestamp = GetTimestamp()
    Randomize
    randomPart = Int((999999999999 - 100000000000 + 1) * Rnd + 100000000000)
    uniqueID = Right(timestamp & randomPart, 16)
    GenerateUniqueID = uniqueID
End Function
Response.Write "Unique 16-bit String: " & GenerateUniqueID()
%>

完整代码示例

<%

' 生成时间戳
Function GetTimestamp()
    Dim startDate, currentDate
    startDate = CDate("1970-01-01 00:00:00")
    currentDate = Now()
    GetTimestamp = DateDiff("s", startDate, currentDate)
End Function
' 生成随机时间数
Function GetRandomTime()
    Dim randomValue
    Randomize
    randomValue = Rnd() * 1000000
    GetRandomTime = GetTimestamp() & Int(randomValue)
End Function
' 生成唯一16位字符串
Function GenerateUniqueID()
    Dim timestamp, randomPart, uniqueID
    timestamp = GetTimestamp()
    Randomize
    randomPart = Int((999999999999 - 100000000000 + 1) * Rnd + 100000000000)
    uniqueID = Right(timestamp & randomPart, 16)
    GenerateUniqueID = uniqueID
End Function
' 输出结果
Response.Write "Timestamp: " & GetTimestamp() & "<br>"
Response.Write "Random Time: " & GetRandomTime() & "<br>"
Response.Write "Unique 16-bit String: " & GenerateUniqueID() & "<br>"
%>

说明：

GetTimestamp 函数生成当前时间的时间戳。

GetRandomTime 函数生成一个基于时间戳的随机时间数。

GenerateUniqueID 函数生成一个唯一的16位字符串，结合了时间戳和随机数。

11. 生成时间戳的代码

时间戳通常是指从某个固定时间点（如1970年1月1日）到当前时间的秒数或毫秒数。以下是一个生成时间戳的代码：

<%
Function GetTimestamp()
    Dim dt, timestamp
    dt = Now() ' 获取当前时间
    timestamp = DateDiff("s", "1/1/1970", dt) ' 计算从1970年1月1日到现在的秒数
    GetTimestamp = timestamp
End Function
Response.Write(GetTimestamp())
%>

说明：

DateDiff 函数用于计算两个日期之间的差值。

参数 "s" 表示按秒计算。

12. 生成随机不同时间数的代码

如果需要生成一个基于时间的随机数，可以通过结合 Rnd() 函数和当前时间来实现：

<%
Randomize ' 初始化随机数种子
Dim randomTimeNum
randomTimeNum = Int((Now() - #1/1/1970#) * 86400 * Rnd()) ' 当前时间戳与随机数结合
Response.Write(randomTimeNum)
%>

说明：

Rnd() 生成一个介于 0 和 1 之间的随机数。

将时间戳与随机数结合，确保每次生成的数字不同。

13. 生成唯一16位字符串的代码

要生成一个唯一的16位字符串，可以结合时间戳、随机数和字符编码。以下是一个示例：

<%
Function GenerateUniqueString(length)
    Dim chars, result, i, charIndex
    Randomize
    chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    result = ""
    For i = 1 To length
        charIndex = Int(Len(chars) * Rnd()) + 1
        result = result & Mid(chars, charIndex, 1)
    Next
    GenerateUniqueString = result
End Function
Dim uniqueString
uniqueString = GenerateUniqueString(16) ' 生成16位字符串
Response.Write(uniqueString)
%>

说明：

chars 是一个包含所有可能字符的字符串。

使用 Rnd() 随机选择字符，并将其拼接成最终的字符串。

参数 length 指定生成字符串的长度（这里是16位）。

综合示例：生成时间戳、随机数和唯一字符串

以下是一个综合示例，同时生成时间戳、随机数和唯一16位字符串：

<%
' 生成时间戳
Function GetTimestamp()
    Dim dt, timestamp
    dt = Now()
    timestamp = DateDiff("s", "1/1/1970", dt)
    GetTimestamp = timestamp
End Function
' 生成随机数
Function GetRandomNumber()
    Randomize
    GetRandomNumber = Int((Now() - #1/1/1970#) * 86400 * Rnd())
End Function
' 生成唯一字符串
Function GenerateUniqueString(length)
    Dim chars, result, i, charIndex
    Randomize
    chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    result = ""
    For i = 1 To length
        charIndex = Int(Len(chars) * Rnd()) + 1
        result = result & Mid(chars, charIndex, 1)
    Next
    GenerateUniqueString = result
End Function
' 输出结果
Dim timestamp, randomNumber, uniqueString
timestamp = GetTimestamp()
randomNumber = GetRandomNumber()
uniqueString = GenerateUniqueString(16)
Response.Write("时间戳: " & timestamp & "<br>")
Response.Write("随机数: " & randomNumber & "<br>")
Response.Write("唯一16位字符串: " & uniqueString & "<br>")
%>

运行以上代码后，页面将显示时间戳、随机数和唯一16位字符串。

14.生成时间戳

时间戳通常是一个表示当前时间的字符串。在ASP中，你可以使用 Now 函数来获取当前时间，并将其格式化为字符串。

<%
Dim timestamp
timestamp = Now() ' 获取当前时间
timestamp = FormatDateTime(timestamp, vbLongDate & " " & vbLongTime) ' 格式化为字符串
Response.Write "Timestamp: " & timestamp
%>

15.生成随机不同时间数

要生成随机的不同时间数，你可以基于当前时间，然后加上一个随机的秒数或分钟数。

<%
Dim currentTime, randomSeconds, randomTime
currentTime = Now() ' 获取当前时间
Randomize Timer ' 使用系统时钟来初始化随机数生成器
randomSeconds = Int((3600 * 24) * Rnd) ' 生成0到24小时之间的随机秒数
randomTime = DateAdd("s", randomSeconds, currentTime) ' 将随机秒数加到当前时间上
Response.Write "Random Time: " & FormatDateTime(randomTime, vbLongDate & " " & vbLongTime)
%>

16.生成唯一16位字符串

要生成一个唯一的16位字符串，你可以结合随机字符和一些系统唯一值（比如时间戳的一部分）。

<%
Function GenerateUnique16String()
    Dim chars, i, uniqueString, uniqueChars, charPool
    charPool = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
    uniqueString = ""
    Randomize Timer ' 使用系统时钟来初始化随机数生成器
    
    ' 生成16个随机字符
    For i = 1 To 16
        uniqueChars = Mid(charPool, Int((Len(charPool) * Rnd) + 1), 1)
        uniqueString = uniqueString & uniqueChars
    Next
    
    ' 为了确保唯一性，可以添加当前时间的前几位
    uniqueString = uniqueString & Right(Now(), 4) ' 取当前时间的小时和分钟部分（4位）
    uniqueString = Left(uniqueString, 16) ' 确保结果仍然是16位
    
    GenerateUnique16String = uniqueString
End Function
 
Dim uniqueString
uniqueString = GenerateUnique16String()
Response.Write "Unique 16-Character String: " & uniqueString
%>

请注意，虽然通过结合随机字符和时间戳的部分可以生成一个相对唯一的字符串，但在高并发或分布式系统中，这种方法的唯一性保证可能不足。如果需要更强的唯一性保证，可以考虑使用UUID（通用唯一识别码）生成库或方法。

17.生成时间戳（毫秒级）

<%
Function GetTimestamp()
    Dim dt : Set dt = Server.CreateObject("Scripting.DateTime")
    Dim timestamp : timestamp = CInt(DateDiff("s", dt, DateAdd("y", 0, dt)) * 1000) + CInt(Mid(dt.ToUniversalString(), 11, 3))
    GetTimestamp = timestamp
End Function
' 调用示例
Response.Write(GetTimestamp()) ' 输出类似：1677721968123
%>
生成随机时间数（可指定范围）
asp
<%
Function GenerateRandomTime(minValue, maxValue)
    Dim random : Set random = Server.CreateObject("MSWC.Random")
    random.Seed = Now() ' 使用当前时间作为种子
    
    Dim randomNumber : randomNumber = random.NextInteger(minValue, maxValue)
    
    ' 转换为时间格式
    Dim randomTime : randomTime = DateAdd("n", randomNumber, Now())
    GenerateRandomTime = CDate(randomTime)
End Function
' 调用示例 (生成1-60分钟内的随机时间)
Response.Write(GenerateRandomTime(1, 60)) ' 输出类似：2025-3-3 20:35:42
%>

18.生成唯一16位字符串（含时间+随机）

<%
Function GenerateUniqueID()
    ' 获取当前时间精确到毫秒
    Dim dt : Set dt = Server.CreateObject("Scripting.DateTime")
    Dim timePart : timePart = Right(dt.ToUniversalString(), 13) ' 格式：yyyyMMddHHmmssxxx
    
    ' 生成8位随机数
    Dim random : Set random = Server.CreateObject("MSWC.Random")
    random.Seed = Now()
    Dim randomPart : randomPart = Right(CStr(random.NextInteger(10000000, 99999999)), 8)
    
    ' 组合成16位唯一ID
    uniqueID = timePart & randomPart
    GenerateUniqueID = uniqueID
End Function
' 调用示例
Response.Write(GenerateUniqueID()) ' 输出类似：20250303202748123456
%>