<% Function RndCode() CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" AmountSet = 62　 ' 这里设他多少个字有什么用 Randomize

' 随机产生字符 Dim vCode(10), vCodes For i = 0 To 9 vCode(i) = Int(Rnd * AmountSet) '为什么要用到数组，不好意思啊，我是菜鸟不要笑我啊 vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1) Next RndCode=vCodes End Function

%> <%=RndCode()%>

随机只能直接产生数字 要想产生别的 就要利用数组

他上面随机生成
vCode(i) = Int(Rnd * AmountSet)
为什么是AmountSet不是CodeSet 因为CodeSet 里面才有字啊

islet你好，你会做ＨＴＭＬ分页吗，我想做一个，但不会做，能帮帮我吗？ http://caiyakang.xicp.net 你进入看看，我想在所有文章实现分页，用ＨＴＭＬ分页，但是我不会．

[此贴子已经被作者于2005-8-1 11:50:12编辑过]

html不能直接读数据库 没办法直接分页

1、可以用asp读数据库生成html 利用asp分页功能或其他功能 生成多个html页（按分页顺序）每个页面的“下一页”“第N页”做好相应的链接
2、利用asp的js脚本读数据库在相应的页面都相应的页 例如第二页叫page2.html 里面欠js文件可以为page.asp?page=2

为什么是AmountSet不是CodeSet 因为CodeSet 里面才有字啊

<% Function RndCode() CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" AmountSet = 62'上面CodeSet一共62个,动态的话建议AmountSet = StrLen(CodeSet) Randomize

' 随机产生字符 Dim vCode(10), vCodes For i = 0 To 9 vCode(i) = Int(Rnd * AmountSet)'利用随机种子产生偏移量数组 vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)'通过Mid以及偏移量数组,从CodeSet获取指定偏移的字符,并追加到vCodes Next RndCode=vCodes End Function

%> <%=RndCode()%>

[此贴子已经被作者于2005-8-1 16:14:55编辑过]