花二个星期做了个网站,但访问的速度实在是太慢，请大家给我说说优化的方法？

[songfuqiang]

我接触asp不久，最近做了个网站，传到服务器访问的速度很慢，请问应该从哪些方面做优化？每当打开这个网站cpu的使用率就达到100% 这是怎么回事？
我写段代码，看是不是最优化的，以下是我用的连接
<%
function getConn()
dim conn
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"/nsite/database/#newasp.asa") &";"
set getConn = conn
end function

function getrs()
dim rs
set rs=server.createobject("ADODB.recordset")
set getrs=rs
end function
%>
下面是我定义的函数
Function obtainTitle(ClassID)
set conn=getConn
set resultSet=getrs
dim sql
sql="select ClassName From NC_Classify Where ClassID=" & Cstr(ClassID)
resultSet.Open sql,conn,0,1
If not resultSet.Eof Then
title=resultSet("ClassName")
End If
obtainTitle=title
End Function

Function contentTitle(ArticleID)
set conn=getConn
set resultSet=getrs
dim sql
sql="select ArticleID,title From NC_Article Where ArticleID=" & Cstr(ArticleID)
resultSet.Open sql,conn,0,1
If Not resultSet.Eof Then
title=resultSet("title")
End If
contentTitle=title
End Function

这两个函数每次调用都得重新连接，我可不可以做成一个连接，，如果行应该怎么做？

[sy_binbin]

每次看见你打开了，为什么没看见关闭呢

[xgl0315]

你用的不好．还要多学习．

[songfuqiang]

未必是数据库没释放所IE的使用率达100%

[cdcjk]

学习

[scscms太阳光]

拿得起就要放得下,有的放矢,代码规范化,界面DIV化,速度快速化

[anjing5566]

常用数据可以考虑用动态数组，至于动态数组的效率问题，应该适合楼主用吧

[wangkk125]

页可能是服务器的问题啊