请大家帮帮忙看看我这段代码是不是写错啦,最近访问人数超过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编辑过]

没什么问题,
你这里的FSO建的干什么的?
rs.close
set rs=nothing
还有CONN.CLOSE等,每次查询完关掉.

rs.open "select area from area order by areaOrder desc",conn,1,1
如果这里要用
rs.open "select area from area order by areaOrder desc",conn,1,3
或该一下打开类型，为允许同时操作数据库呢？

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

那你得用SQL数据库了!

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 while not rs.eof and not rs.bof
response.write(rs("area"))
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing