请教：关于论坛性能的问题！

yesir_xiaoye 2004-05-06 01:41:15
问题背景：
我编了一个论坛，为提高性能，将一些系统数据放在了application中，我在本机调试时，发现首页访问速度是62.5毫秒，但我把这个论坛放到服务器上去调试，却发现首页访问速度总是1800多毫秒，为什么差距这么大呢。。问题出在哪里了，我的这个程序编写得有问题，还是服务器有问题，还是带宽有问题？

请大家帮看看，谢谢！
...全文
69 7 打赏 收藏 转发到动态 举报
写回复
用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的话）
服务器如果不能控制的话，尽量从代码方面查找原因
做技术的看不起做业务的？做业务的看不起打杂的？老板：都是打工的！
老板：搁这瞧不起谁呢？都给我干活去！ 前言 大家好，之前写过一篇关于职场当中打杂文化的文章，反响不错。最近刚好有些小伙伴在准备校招，来请教我招聘信息当中的“做业务”究竟是什么意思。所以我就写下了本文，把这里面的门道给大家说道说道。 我们谈到业务这个词，大家联想得最多的应该是销售或者是售后服务这类岗位。但实际上在互联网公司也有技术和业务的区别。面试的时候，HR也经常拿这个说事：我们是技术驱动的公司，或者是面向技术的岗位。我们都明白她的言下之意是我们这个岗位很金贵的，你要好好把握。 但为什么做技术就金贵、..
主题：请教:如何提高BigDecimal的性能
    BigDecimal b1 = new BigDecimal(String.valueOf(price));             BigDecimal b2 = new BigDecimal(String.valueOf(stockPrice));             BigDecimal b3 = new BigDecimal(String.valueOf(conversionR
请教：运放噪声 5nV/根号Hz 什么意思啊？(电压噪声，电流噪声)
请教：运放噪声 5nV/根号Hz 什么意思啊？ - 维库电子市场网 http://www.dzsc.com/dzbbs/20060929/20076518228437300.html   其实噪声是个能量概念 或者说功率概念 白噪声总功率（W）与带宽（Hz）成正比 所以噪声密度的单位是 W/Hz 但是平常习惯用电压电流表示信号，所以要把功率换算成电压   功率跟电压是平方关系，所以开平方后...
高性能日志：如何提升日志性能避免 IO 瓶颈？
是当系统处理大量磁盘 IO 操作的时候，由于 CPU 和内存的速度远高于磁盘，可能导致 CPU 耗费太多时间等待磁盘返回处理的结果。对于这部分 CPU 在 IO 上的开销，我们称为 “iowait”。 iowait 怎么查看呢？ 如果你用的是 Linux 系统或者 Mac 系统，当你在执行一项很耗费磁盘 IO 的操作时，比如读写大文件，通过 top 命令便可以看到。如下图所示： CPU 开销示意图 其中的 2.6 wa 便是 iowait 占用了 2.6% CPU。 那么，这种 CPU 开销对性能会有什么
unity3d 移动平台性能优化专题(12)：面板的colider问题和rigibody设置
首先有一个官方的说法：静态Colider请不要移动，否则会引起物理引擎啥啥啥重置，消耗性能。       然后面板上毫无疑问是有colider的，而且可以肯定的是面板总是存在移动。那么就加上刚体，第二个问题来了，大量的刚体导致物理引擎计算时间过长。 但我纳闷，刚体都是不动的，为啥会如此耗时呢？请教了下外国友人，如下：       If you need the colliders j
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章