| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 541 人关注过本帖
标题:ASP一段小程序是我写错了吗,请各位指正
只看楼主 加入收藏
弯曲的直线
Rank: 1
等 级:新手上路
帖 子:89
专家分:0
注 册:2006-7-21
收藏
 问题点数:0 回复次数:7 
ASP一段小程序是我写错了吗,请各位指正

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

搜索更多相关主题的帖子: ASP 
2006-07-21 16:40
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 

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


http://toorup.3v.do
loading...
2006-07-21 18:56
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

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
或该一下打开类型,为允许同时操作数据库呢?

2006-07-21 21:44
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
说真的,我看的不是很明

http://www./
2006-07-22 12:23
弯曲的直线
Rank: 1
等 级:新手上路
帖 子:89
专家分:0
注 册:2006-7-21
收藏
得分:0 

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


上论坛感觉就象和人拼贴子
2006-07-24 08:55
弯曲的直线
Rank: 1
等 级:新手上路
帖 子:89
专家分:0
注 册:2006-7-21
收藏
得分:0 
自己再顶

上论坛感觉就象和人拼贴子
2006-07-25 08:59
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 

那你得用SQL数据库了!


http://toorup.3v.do
loading...
2006-07-25 09:20
jnzsk
Rank: 1
等 级:新手上路
威 望:1
帖 子:403
专家分:0
注 册:2004-11-13
收藏
得分:0 

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


2006-07-25 09:24
快速回复:ASP一段小程序是我写错了吗,请各位指正
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028327 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved