社区
ASP
帖子详情
请教:关于论坛性能的问题!
yesir_xiaoye
2004-05-06 01:41:15
问题背景:
我编了一个论坛,为提高性能,将一些系统数据放在了application中,我在本机调试时,发现首页访问速度是62.5毫秒,但我把这个论坛放到服务器上去调试,却发现首页访问速度总是1800多毫秒,为什么差距这么大呢。。问题出在哪里了,我的这个程序编写得有问题,还是服务器有问题,还是带宽有问题?
请大家帮看看,谢谢!
...全文
51
7
打赏
收藏
请教:关于论坛性能的问题!
问题背景: 我编了一个论坛,为提高性能,将一些系统数据放在了application中,我在本机调试时,发现首页访问速度是62.5毫秒,但我把这个论坛放到服务器上去调试,却发现首页访问速度总是1800多毫秒,为什么差距这么大呢。。问题出在哪里了,我的这个程序编写得有问题,还是服务器有问题,还是带宽有问题? 请大家帮看看,谢谢!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yesir_xiaoye
2004-05-07
打赏
举报
回复
up...
yesir_xiaoye
2004-05-06
打赏
举报
回复
'获得某个用户名为strUserName的用户信息数据集
Function CachePage_GetUser_From_User(strUserName)
'Dim Time1,Time2,Time3
'Time1 = Timer
Dim tempDataSet(22,1)
If Not IsArray(Application("CP_DataSet_User")) Then
tempDataSet(0,0) = "0"
Else
Dim intT1,intT2
intT2 = 0
intT1 = 0
For intT2 = 0 To UBound(Application("CP_DataSet_User"),2)
If CStr(Application("CP_DataSet_User")(1,intT2)) = CStr(strUserName) Then
tempDataSet(0,0) = Application("CP_DataSet_User")(0,intT2)
tempDataSet(1,0) = Application("CP_DataSet_User")(1,intT2)
tempDataSet(2,0) = Application("CP_DataSet_User")(2,intT2)
tempDataSet(3,0) = Application("CP_DataSet_User")(3,intT2)
tempDataSet(4,0) = Application("CP_DataSet_User")(4,intT2)
tempDataSet(5,0) = Application("CP_DataSet_User")(5,intT2)
tempDataSet(6,0) = Application("CP_DataSet_User")(6,intT2)
tempDataSet(7,0) = Application("CP_DataSet_User")(7,intT2)
tempDataSet(8,0) = Application("CP_DataSet_User")(8,intT2)
tempDataSet(9,0) = Application("CP_DataSet_User")(9,intT2)
tempDataSet(10,0) = Application("CP_DataSet_User")(10,intT2)
tempDataSet(11,0) = Application("CP_DataSet_User")(11,intT2)
tempDataSet(12,0) = Application("CP_DataSet_User")(12,intT2)
tempDataSet(13,0) = Application("CP_DataSet_User")(13,intT2)
tempDataSet(14,0) = Application("CP_DataSet_User")(14,intT2)
tempDataSet(15,0) = Application("CP_DataSet_User")(15,intT2)
tempDataSet(16,0) = Application("CP_DataSet_User")(16,intT2)
tempDataSet(17,0) = Application("CP_DataSet_User")(17,intT2)
tempDataSet(18,0) = Application("CP_DataSet_User")(18,intT2)
tempDataSet(19,0) = Application("CP_DataSet_User")(19,intT2)
tempDataSet(20,0) = Application("CP_DataSet_User")(20,intT2)
tempDataSet(21,0) = Application("CP_DataSet_User")(21,intT2)
Exit For
End If
Next
End If
CachePage_GetUser_From_User = tempDataSet
'Time2 = Timer
'Time3 = (Time2-Time1)*1000
'Response.Write "Time3=" & Time3
End Function
说明:这段代码在执行的时候,随着Application("CP_DataSet_User")中的数据量越大,它所耗费的计算时间就越长,直到无法忍受。。。请问这段代码应该如何改良?
yesir_xiaoye
2004-05-06
打赏
举报
回复
我发现这个函数很耗时间,麻烦帮我看看有何办法可以改良这个函数或采用别的解决办法,代码如下:
'获得某个用户名为strUserName的用户信息数据集
Function CachePage_GetUser_From_User(strUserName)
'Dim Time1,Time2,Time3
'Time1 = Timer
Dim tempDataSet(22,1)
If Not IsArray(Application("CP_DataSet_User")) Then
tempDataSet(0,0) = "0"
Else
Dim intT1,intT2
intT2 = 0
intT1 = 0
For intT2 = 0 To UBound(Application("CP_DataSet_User"),2)
If CStr(Application("CP_DataSet_User")(1,intT2)) = CStr(strUserName) Then
tempDataSet(0,0) = Application("CP_DataSet_User")(0,intT2)
tempDataSet(1,0) = Application("CP_DataSet_User")(1,intT2)
tempDataSet(2,0) = Application("CP_DataSet_User")(2,intT2)
tempDataSet(3,0) = Application("CP_DataSet_User")(3,intT2)
tempDataSet(4,0) = Application("CP_DataSet_User")(4,intT2)
tempDataSet(5,0) = Application("CP_DataSet_User")(5,intT2)
tempDataSet(6,0) = Application("CP_DataSet_User")(6,intT2)
tempDataSet(7,0) = Application("CP_DataSet_User")(7,intT2)
tempDataSet(8,0) = Application("CP_DataSet_User")(8,intT2)
tempDataSet(9,0) = Application("CP_DataSet_User")(9,intT2)
tempDataSet(10,0) = Application("CP_DataSet_User")(10,intT2)
tempDataSet(11,0) = Application("CP_DataSet_User")(11,intT2)
tempDataSet(12,0) = Application("CP_DataSet_User")(12,intT2)
tempDataSet(13,0) = Application("CP_DataSet_User")(13,intT2)
tempDataSet(14,0) = Application("CP_DataSet_User")(14,intT2)
tempDataSet(15,0) = Application("CP_DataSet_User")(15,intT2)
tempDataSet(16,0) = Application("CP_DataSet_User")(16,intT2)
tempDataSet(17,0) = Application("CP_DataSet_User")(17,intT2)
tempDataSet(18,0) = Application("CP_DataSet_User")(18,intT2)
tempDataSet(19,0) = Application("CP_DataSet_User")(19,intT2)
tempDataSet(20,0) = Application("CP_DataSet_User")(20,intT2)
tempDataSet(21,0) = Application("CP_DataSet_User")(21,intT2)
Exit For
End If
Next
End If
CachePage_GetUser_From_User = tempDataSet
'Time2 = Timer
'Time3 = (Time2-Time1)*1000
'Response.Write "Time3=" & Time3
End Function
baggio785
2004-05-06
打赏
举报
回复
那重新赋值阿?
检查一下你的代码
看看是否还可以再优化
yesir_xiaoye
2004-05-06
打赏
举报
回复
如果我不保存在application中,而使用const来定义,那么我这些数据如果是要求动态变化的该怎么办呢?
yesir_xiaoye
2004-05-06
打赏
举报
回复
恩。。我的问题可能出在我使用了很多数组来保存这些数据和从这些数组中过滤数据。。。你说可能是这个原因么?
baggio785
2004-05-06
打赏
举报
回复
速度慢和很多因素有关的
比如服务器的带宽
单单讲代码的原因,建议不要用application,系统数据可以用const定义阿
论坛数据量大的话,尽量用存储过程(如果是mssql的话)
服务器如果不能控制的话,尽量从代码方面查找原因
做技术的看不起做业务的?做业务的看不起打杂的?老板:都是打工的!
大家好,之前写过一篇关于职场当中打杂文化的文章,反响不错。最近刚好有些小伙伴在准备校招,来
请教
我招聘信息当中的“做业务”究竟是什么意思。所以我就写下了本文,把这里面的门道给大家说道说道。 我们谈到业务...
主题:
请教
:如何提高BigDecimal的
性能
这样运行的效率很低,而我需要使用它做精确计算,因我处理的是大量的数据,
性能
,实时要求比较高,所以想
请教
下有没有更好的优化方法或者其他替代的类库. 注: BigDecimal只有构造函数为String时才能真正做到精确计算,...
请教
:运放噪声 5nV/根号Hz 什么意思啊?(电压噪声,电流噪声)
请教
:运放噪声 5nV/根号Hz 什么意思啊? - 维库电子市场网 http://www.dzsc.com/dzbbs/20060929/20076518228437300.html 其实噪声是个能量概念 或者说功率概念 白噪声总功率(W)与带宽(Hz)成正比 所以噪声...
高
性能
日志:如何提升日志
性能
避免 IO 瓶颈?
是当系统处理大量磁盘 IO 操作的时候,由于 CPU 和内存的速度远高于磁盘,可能导致 CPU 耗费太多时间等待磁盘返回处理的结果。对于这部分 CPU 在 IO 上的开销,我们称为 “iowait...那么,这种 CPU 开销对
性能
会有什么
unity3d 移动平台
性能
优化专题(12):面板的colider
问题
和rigibody设置
首先有一个官方的说法:静态Colider请不要移动,否则会引起物理引擎啥啥啥重置,消耗
性能
。 然后面板上毫无疑问是有colider的,而且可以肯定的是面板总是存在移动。那么就加上刚体,第二个
问题
来了,大量的刚体...
ASP
28,409
社区成员
356,971
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章