<% 
dim rndnum,verifycode 
Randomize 'ʼRnd,RNDйɵظ 
Do While Len(rndnum)<4 '4,һַ. 
num1=CStr(Chr((57-48)*rnd+48)) ' 
rndnum=rndnum&num1 'ÿβ 
loop 
session("verifycode")=rndnum 'ɵֵַsession 
%> 

оӦ֤Ч.
--------------------------------------
rndaspһ漴sqlв޴˺ʣsqlġ 
д 
<!-- #include file="conn.asp" --> 
<% 
set rs=server.CreateObject("adodb.recordset") 
rs.open "select top 1 id from url order by id desc",conn,1,1 
if not rs.bof and not rs.eof then 
maxid=rs("id") 
rs.close 
function suiji() 
Randomize 
suiji=Int((maxid - 1+ 1) * Rnd + 1) 
end function 

'Ȼʼ漴ȡ¼ 
i=0 
do while i<1 
rs.open "select * from url where id="&suiji(),conn,1,1 
if not rs.bof and not rs.eof then 
i=i+1 
response.write "漴ȡļ¼id"&rs("id") 
end if 
rs.close 
loop 

%> 
漴ȡһˣǺǲǺܼ򵥣Ȼ漴ȡһǲģ
ȡܻܿظʾôȡ¼ʱظأԼɹǰдСˡ
-------------------------------------------
ÿѧ100⣬ݱֵIDֵȻѭ100ΣųʾͿˡ 
<% 
dim a(1 to 100) 
y=o 
for x=1 to 100 
Randomize 
a(x)=int(100*rnd+1) 
next 
do while not rs.eof 
y=y+1 
if rs("ID")=a(y) then 
%> 
<tr><td><%=y%></td>() 
<td><%=rs("Ŀ")%></td></tr>Ŀ 
<% 
end if 
rs.movenext 
loop 
%> 
Ĳ˵ 
ظô죿Խ 
<% 
for i=1 to 99 
for j=1 to 100-i 
if a(j)=a(j+1) then 
Randomize 
a(j+1)=int(100*rnd+1) 
end if 
next 
next 
%>
-----------------
˼ 
ҪиԶֶΣidֶ 

<!-- #include file="dblj.asp"--> 
<% 

set rs=server.createobject("adodb.recordset") 
selectid="select id from sy1" 
rs.open selectid,conn,1,3 
'ͳܹж¼ 
rscount=rs.recordcount 
' 
Randomize() 
suiji=Int(rnd()*rscount) 
'һ,СΪͳƼ¼ĴС 
dim arr() 
redim arr(rscount) 
'ÿһ¼idŽһԪ 
for i=0 to rscount-1 
arr(i)=rs.fields.item("id").value 
rs.movenext 
next 
'ȡһid 
suijiid=arr(suiji) 
set rss=server.createobject("adodb.recordset") 
rss.open "select * from sy1 where id="&suijiid,conn,1,3 
'¼ 
for each fd in rss.fields 
response.write fd.value&"<br>" 
next 
rss.close 
set rss=nothing 
%> 
-----------------
set rs=server.CreateObject("adodb.recordset") 
sql="select * from " 
rs.open sql,conn,1,3'ݿ 
i=1 
dim webon() 
do while not rs.Eof'д 
Redim Preserve webon(i) 
webon(i)=rs("id") 
i=i+1 
rs.movenext 
loop 

randomize'õ¼ 
p=Int((rs.recordcount*rnd)+1)'ȫ¼ 
rndid=webon(p) 

Set rs=conn.Execute("select * from  where id="&rndid)',ٴ¼. 
------------------

