时间(效率)比较 结果 : 


File_Read: 1.5625
rs_Val: 81.2500
N2/N1: 52.0000
20T/100* T3(ALL): .421875
 

结论:

N2/N1: = 25,32,52 倍
就是说, 读数据库慢,时间是读文件的 20倍以上!   
(数据库: Access,1.44M)
另: 读文件(约15K) / 判断文件存在 = (时间)5倍 
就是说, 判断文件是否存在 比读文件 快 5倍以上!
另: Server.Execute几乎不用时间!
( 读文件是Server.Execute的45倍! )

代码如下:

R1 = 20 '''' 10~100
R2 = 100 '''' 100

T1 = Timer()
For i=1 To R1/1
s = File_Read("../upfile/sys/para/links_Lnk0012.htm","utf-8")
Next

T2 = Timer()
For i=1 To R1/2
s = rs_Val(conn,"SELECT InfSubj FROM InfoNews WHERE KeyID=''''0BA7C2382C52KAH8J7Q95N2S''''","InfSubj")
Next

T3 = Timer()
N1 = FormatNumber(R2*(T2-T1)*1,4)
N2 = FormatNumber(R2*(T3-T2)*2,4)
N3 = FormatNumber(N2/N1,4)
N4 = T3-T1

Response.Write "<div style=""width:360px; text-align:right; font-family:''''Courier New'''', Courier, monospace"">"
Response.Write "<br>File_Read: "&N1
Response.Write "<br>rs_Val: "&N2
Response.Write "<br>N2/N1: "&N3
Response.Write "<br>20T/100* T3(ALL): "&N4
Response.Write "<br>"
Response.Write "</div>"