类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
随机数的功能就象一些网站登记短信时,会生成一个随机码发送到手机,用户接到随机码后确认登陆.
登陆后有用户选择感兴趣的指标,想用复选框来完成.用户钩上感兴趣的指标,接着插入数据库记录,每条指标生成一条记录.
基本就是这样,由于对asp不熟悉,语法不清楚,希望大家给一些代码参考一下,谢谢.
网友回答：
第一个
Function RoundNumber(length)
randomize
RoundNumber = Round(RND * (10 ^ length))
End Function
第二个
表单页面
<%
while not rs.close
response.write "<td><input type=checkbox name=" & rs("classid") & "></td>"
response.write "<td><input type=hidden name=classid value=" & rs("classid") & ">" & rs("classname") & "</td>"
rs.movenext
wend
%>
处理页面
<%
for each id in request("classid")
id = CStr(id)
status = request(id)
if status = "on" then
insert into db
end if
next
%>
生成随机码函数：
Function gen_key(digits) digits为随机码的位数，比如3位，4位，....
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
End Function
第二个就用楼上的方法行了。