您正在查看 "Vbscript" 分类下的文章
2006年12月04日 星期一 1:18 P.M.
蓝色理想的zkxp写的随机读取数据库的方法，需要读取所有的数据，而且游标上下移动太多，效率不会很高。
还有其他的随机方法，详见
http://www.tsingfeng.com/article.asp?id=228
但以上方法感觉都不是很理想。毕竟几万篇文章批量生成的时候，每次都要加载所有数据，那样生成效率下降很多。所以还是觉得批量读取成排数据比较合适
比如：
dim rs,rndid
rndid=*** ' 获得一个随机数，但需要单独读取max(id)和min(id)值，要把rndid限制在这两个值中间。
set rs=conn.execute("select top 10 id,articletitle from where id<"&rndid&";")
if not rs.eof and not rs.bof then
'输出数据部分
end if
rs.close
set rs=nothing
|
2006年12月03日 星期日 1:34 A.M.
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")
cmd.ActiveConnection = conn
cmd.CommandText = "Select * from people order by id desc"
Set rs = cmd.Execute
rsArray = rs.GetRows()
for i=0 to ubound(rsArray,2)
Response.write rsArray(0,i)&" | "
next
%> |
