怎样生成一个随机的字符串

[flmn]

保证不重复，是不适用时间做种子？怎么写？那位大虾有现成的代码？

[sdyqingdao]

取sesion 的id 可以吗？
保证不重复

[zykj_2000]

干吗不用时间啊， 大不了你把时间生成的时间字符串，在用一个过程全变成字符串
比如
20021024211525
变为chr(int(20))&chr(int(02))........&chr(int(25))

[挨踢啊挨踢]

const NUMBER = 10
dim RandNumber(9)
dim i
dim upperbound, lowerbound '指定范围的上下界
dim mystring

mystring=""
Randomize

For i=0 to NUMBER
RandNumber(i) = chr((upperbound - lowerbound + 1) * Rnd + lowerbound)

mystring = trim(mystring&RandNumber(i))
Next

[cshadow]

6位
<script language=vbs>
function getRnd(b,e)
Randomize
getRnd=clng(rnd*(e-b)+b)
end function
for i=0 to 100
document.write getRnd(111111,999999),"<br/>"
next
</script>

[Reker熊]

建立随机生成的HTML代码是一件相当容易实现的ASP特性。你可能创建过“每日一帖”、滚动广告等等，只需要稍加点缀就会令你的网站日久弥新。

对存储在数据库中的数据来说，随机数特性能给出上面的效果，但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如下所示的循环：
Randomize
RNumber = Int(Rnd*499) +1

While Not objRec.EOF
If objRec("ID") = RNumber THEN

... 这里是执行脚本 ...

end if
objRec.MoveNext
Wend

这很容易理解。首先，你取出1到500范围之内的一个随机数（假设500就是数据库内记录的总数）。然后，你遍历每一记录来测试ID 的值、检查其是否匹配RNumber。满足条件的话就执行由THEN 关键字开始的那一块代码。假如你的RNumber 等于495，那么要循环一遍数据库花的时间可就长了。虽然500这个数字看起来大了些，但相比更为稳固的企业解决方案这还是个小型数据库了，后者通常在一个数据库内就包含了成千上万条记录。这时候不就死定了？

采用SQL，你就可以很快地找出准确的记录并且打开一个只包含该记录的recordset，如下所示：
Randomize
RNumber = Int(Rnd*499) + 1

SQL = "SELECT * FROM Customers WHERE ID = " & RNumber

set objRec = ObjConn.Execute(SQL)
Response.WriteRNumber & " = " & objRec("ID") & " " & objRec("c_email")

不必写出RNumber 和ID，你只需要检查匹配情况即可。只要你对以上代码的工作满意，你自可按需操作“随机”记录。Recordset没有包含其他内容，因此你很快就能找到你需要的记录这样就大大降低了处理时间。

再谈随机数

现在你下定决心要榨干Random 函数的最后一滴油，那么你可能会一次取出多条随机记录或者想采用一定随机范围内的记录。把上面的标准Random 示例扩展一下就可以用SQL应对上面两种情况了。

为了取出几条随机选择的记录并存放在同一recordset内，你可以存储三个随机数，然后查询数据库获得匹配这些数字的记录：
SQL = "SELECT * FROM Customers WHERE ID = " & RNumber & " OR ID = " & RNumber2 & " OR ID = " & RNumber3

假如你想选出10条记录（也许是每次页面装载时的10条链接的列表），你可以用BETWEEN 或者数学等式选出第一条记录和适当数量的递增记录。这一操作可以通过好几种方式来完成，但是 SELECT 语句只显示一种可能（这里的ID 是自动生成的号码）：
SQL = "SELECT * FROM Customers WHERE ID BETWEEN " & RNumber & " AND " & RNumber & "+ 9"

注意：以上代码的执行目的不是检查数据库内是否有9条并发记录。如果你需要保证每次选出10条记录，那么你必须进一步设计查询。