请大家帮帮忙看看我这段代码是不是写错啦,最近访问人数超过100的话网速特慢,甚至出于打不开的情况,然后服务商那边说程序有问题,我试了一下,就加了下面一段就把服务商那边的资源占到100%,拜托各位啦,看看还有没有更好的写法,如果没错,大家估计执行这段程序能用多少时间,选取的记录不到40条
dim conn
dim connstr
dim db
db="/Data/data.mdb"
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

set rs=server.createobject("adodb.recordset")
rs.open "select area from area order by id desc",conn,1,1
do until rs.eof
response.write(rs("area"))
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
谢谢

[此贴子已经被作者于2006-7-24 12:04:26编辑过]

对啦还有一点忘说啦,就是如果同时在线人数少于130的话,可以正常浏览,超过的话,速度就开始受影响,