<%
randomize
for i=1 to 3
j=int((6-1+1)*rnd+1)
sql="select * from body where bodyid="&j
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
response.Write(rs("body"))&"<br>"
rs.close
next
set conn=nothing
%>
<%radonmize
i=(15-1+1)*rnd+1
sql="select top 3 * from table where id="&i
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
response.write rs("news")
rs.movenext
loop%>记得关闭数据rs和数据库哦!!呵呵!!