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

yesir_xiaoye 2004-05-06 01:41:15

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

请大家帮看看，谢谢！

...全文

91 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