双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2004-05-06 01:41:15 98 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

yesir_xiaoye 墨衍会员 · AI 创作全网分发关注 + 加入社区

Ubuntu下Ollama局域网共享大模型服务：5分钟搞定配置与防火墙设置本文提供了一份在Ubuntu系统上快速配置Ollama实现局域网共享大模型服务的实战指南。通过修改服务配置使其监听所有网络接口，并设置UFW防火墙规则，用户可在5分钟内让同一Wi-Fi下的其他设备（如笔记本、手机）便捷调用主机上的AI模型能力，实现团队或多设备间的AI资源共享。阅读详情

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

请大家帮看看，谢谢！

...全文

Lattice CrosslinkNx LIFCL-40实战解析：MIPI D-PHY硬核IP配置与CSI-2数据解析全流程本文详细解析了Lattice CrosslinkNx LIFCL-40 FPGA中MIPI D-PHY硬核IP的配置与CSI-2数据解析全流程。通过实战案例，介绍了硬件环境搭建、寄存器配置、数据包结构解析及视频流重构技巧，帮助开发者快速掌握高速图像采集系统的设计与优化方法。阅读详情

yesir_xiaoye

ASP 28,401 成员 356,938 内容

+ 关注 + 加入社区

切换为时间正序

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的话）
服务器如果不能控制的话，尽量从代码方面查找原因

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促