请问这ASP代码怎么优化...

来源：百度知道 编辑：UC知道 时间：2024/05/27 10:41:02
每次流量一高.就相当吃车.甚至死机.

<%=uni("【")%><a href="mp3/index.asp"><%=uni("最新MP3")%></a><%=uni("】")%><br/>
<%
dim rmx
set rmx=server.CreateObject("adodb.recordset")
rmx.open "select * from mp3news order by id desc",cm,1,1,1
%>
<a href="mp3/show.asp?newsid=<%=rmx("id")%>"><%=uni(left(rmx("title"),10))%></a><br/>
<%rmx.movenext%>
<a href="mp3/show.asp?newsid=<%=rmx("id")%>"><%=uni(left(rmx("title"),10))%></a><br/>
<%rmx.movenext%>
<a href="mp3/show.asp?newsid=<%=rmx("id")%>"><%=uni(left(rmx("title"),10))%></a><br/>
<%rmx.movenext%>
<a href="mp3/show.asp?newsid=<%=rmx("id")%>"><%=uni(left(rmx("ti

<%=uni("【")%><a href="mp3/index.asp"><%=uni("最新MP3")%></a><%=uni("】")%><br/>
<%
dim rmx
set rmx=server.CreateObject("adodb.recordset")
rmx.open "select top 5 * from mp3news order by id desc",cm
do while not rmx.eof%>
<a href="mp3/show.asp?newsid=<%=rmx("id")%>"><%=uni(left(rmx("title"),10))%></a><br/>
<%rmx.movenext
loop
rmx.close
set rmx=nothing
%>

<%=uni("【")%><a href="movie/index.asp"><%=uni("最新电影")%></a><%=uni("】")%><br/>

<%
Dim rns
set rns=server.CreateObject("adodb.recordset")
rns.open "select top 6 * from movnews order by id desc",cnn
do while not rns.eof
%>
<a href="movie/show.asp?