多次调用同一函数.该如何解决效率问题.

[agpsy]

比如
1.asp
<%
Sub First(TopId)
Dim Conn,DsnTemp
Set Conn = Server.CreateObject("ADODB.Connection")
DsnTemp="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=agp;DATABASE=m188"
Conn.open DsnTemp
Set rs=Server.CreateObject("ADODB.RECORDSET")

Dim Sql
Sql = "Select top "&TopId&" New_Title From NewContent Order by New_Id Desc"
Rs.Open Sql,conn,1,1

Do While Not rs.Eof
Response.Write rs("New_Title")
rs.MoveNext
Loop
rs.Close
Set rs = NoThing
Conn.Close
Set Conn = Nothing
End Sub
%>
2.asp
<!--#include file="1.asp"-->
<%
First "10"
First "20"
%>
如果这样调用,是不是效率会很低,该如何解决。

[agpsy]

czq9966(大家知道龟兔赛跑谁会赢？)
你的那样，我也试验了。用timer看执行时间．他们差不多．

[agpsy]

自己up下吧

[KimSoft]

Dim Conn,DsnTemp
Set Conn = Server.CreateObject("ADODB.Connection")
DsnTemp="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=agp;DATABASE=m188"
Conn.open DsnTemp

Sub First(TopId)
Set rs=Server.CreateObject("ADODB.RECORDSET")

Dim Sql
Sql = "Select top "&TopId&" New_Title From NewContent Order by New_Id Desc"
Rs.Open Sql,conn,1,1

Do While Not rs.Eof
Response.Write rs("New_Title")
rs.MoveNext
Loop
rs.Close
Set rs = NoThing
End Sub
Conn.Close
Set Conn = Nothing

把Conn放在函数外面，会好一些。

[wojiaogyp]

没有啊 ,该关的都关了 ,没有什么要优化的了吧.

[创造奇迹9999]

觉得这样应该不错，把可以只执行一次以后就不用再执行的程序放到一起，如第一次调用打开一次数据库，而后又关了，第二次调用再打开，再关了，这样我觉得很费资源，不如直接改成如下

<%
Dim conn
Sub Open_Conn()
Dim DsnTsmp
Set Conn = Server.CreateObject("ADODB.Connection")
DsnTemp="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=agp;DATABASE=m188"
Conn.open DsnTemp
End Sub
Sub Close_Conn()
Conn.Close
Set Conn=Nothing
End Sub
Sub First(TopId)
Set rs=Server.CreateObject("ADODB.RECORDSET")
Dim Sql
Sql = "Select top "&TopId&" New_Title From NewContent Order by New_Id Desc"
Rs.Open Sql,conn,1,1
Do While Not rs.Eof
Response.Write rs("New_Title")
rs.MoveNext
Loop
rs.Close
Set rs = NoThing
End Sub
%>
2.asp
<!--#include file="1.asp"-->
<%
Open_Conn()
First "10"
First "20"
Close_Conn()
%>

[harryCom]

Dim Conn,DsnTemp
Set Conn = Server.CreateObject("ADODB.Connection")
DsnTemp="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=agp;DATABASE=m188"
Set rs=Server.CreateObject("ADODB.RECORDSET")

Sub First(TopId)
Conn.open DsnTemp
Dim Sql
Sql = "Select top "&TopId&" New_Title From NewContent Order by New_Id Desc"
Rs.Open Sql,conn,1,1

Do While Not rs.Eof
Response.Write rs("New_Title")
rs.MoveNext
Loop
rs.Close
Conn.Close
Set Conn = Nothing
End Sub