如何生成一个不重复的12位随机数啊？？

2006-07-10 06:24:29 597 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32硬件SPI驱动W5500以太网模块全流程（附避坑指南）本文详细介绍了STM32硬件SPI驱动W5500以太网模块的全流程，包括硬件架构设计、SPI接口选型、官方驱动移植、网络协议栈配置与优化等关键步骤。通过实战案例和性能对比数据，帮助开发者快速实现稳定高效的网络连接，特别提供了常见问题排查指南和性能调优技巧。阅读详情

如何生成一个不重复的12位随机数啊？？

...全文

怎么选？一文读懂12种SPC控制图，从基础到进阶，再到Python代码实现本文系统介绍了12种常用SPC控制图的应用场景和特点，包括计量型（Xbar-R图、Xbar-s图、I-MR图等）、计数型（P图、NP图、U图等）及进阶控制图（EWMA图、CUSUM图、多元控制图）。文章强调控制图是SPC的核心工具，能有效区分过程变异类型，实现"预防优于检测"的质量管理目标。通过数据示例和Python代码展示了各类控制图的实现方法，为质量管理人员提供了实用参考。阅读详情

hope0802

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

BlueDestiny 2006-07-10

打赏
举报

来个简单的

<%
Set x = CreateObject("Scriptlet.TypeLib")
Response.Write left(replace(replace(replace(x.Guid,"-",""),"}",""),"{",""),12)
%>

net205 2006-07-10

打赏
举报

你有什么要求？？随便加呀

function
...

sql="select * from tablename where fieldname="&strRndNum(12)
set rs=....
rs.open.....

hope0802 2006-07-10

打赏
举报

各位。。再问一下。。我要想在
Function strRndNum(byVal Digit)
Dim strTmp,strResult
For ii=1 to Digit
Randomize
strTmp = Left(CStr(Rnd*10000),1)
strResult = strResult&strTmp
Next
strRndNum = strResult
End Function

response.write strRndNum(12)

加一个sql语句，查库，加在什么位置啊？

zhangjingcheng 2006-07-10

打赏
举报

hehe
那就省力了啊
还不好啊！！

net205 2006-07-10

打赏
举报

汗，我正准备写呢，
你的帖出来了.......

阿_浩 2006-07-10

打赏
举报

试试
Function gen_key(digits)
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "a"
char_array(11) = "b"
char_array(12) = "c"
char_array(13) = "d"
char_array(14) = "e"
char_array(15) = "f"
char_array(16) = "g"
char_array(17) = "h"
char_array(18) = "i"
char_array(19) = "j"
char_array(20) = "k"
char_array(21) = "l"
char_array(22) = "m"
char_array(23) = "n"
char_array(24) = "o"
char_array(25) = "p"
char_array(26) = "q"
char_array(27) = "r"
char_array(28) = "s"
char_array(29) = "t"
char_array(30) = "u"
char_array(31) = "v"
char_array(32) = "w"
char_array(33) = "x"
char_array(34) = "y"
char_array(35) = "z"
randomize
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now)
End Function

net205 2006-07-10

打赏
举报

Function strRndNum(byVal Digit)
Dim strTmp,strResult
For ii=1 to Digit
Randomize
strTmp = Left(CStr(Rnd*10000),1)
strResult = strResult&strTmp
Next
strRndNum = strResult
End Function

response.write strRndNum(12)

不过这个有可能重复的

如何生成一个不重复的12位随机数啊？？

相关推荐