主题:  请大侠帮忙看一看。

透明男孩
职务：普通成员
等级：2
金币：0.0
发贴：373
#12002/4/15 22:43:12
我下载了一些系统，如音乐，交友等。

在这些系统里有什么最新加入，排名等，我想把这些资料放到首页。

至是我把代码复制到了首页，结果不行。

下面是代码：
交友系统最新加入的代码：
<%=rs_new("sex")%> 性别
<%=rs_new("netname")%> 网名
<%=rs_new("renqi")%> 人气

另外在交友系统首页的头里还有这样一句：
'取得最新加入的网友（10位）
Set rs_new = Server.CreateObject("ADODB.Recordset")
rs_new.open "select * from larchives order by lar_id desc",conn,1,1

音乐系统的排名：
<%=m%>
<%=rs("name")%>
<%=rs("hits")%>

我就是把这些代码复制到了首页，不管用。

这些代码好像是指到了数据库吧？如果在这些代码前加上绝对路径呢？
不知我说的对吗？

请大侠们帮帮忙。



lowchikeung
职务：普通成员
等级：2
金币：1.0
发贴：607
#22002/4/15 23:18:07
倒，老兄呀，你的conn到哪里呀

5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
#32002/4/16 10:11:04
注意要抄全的地方:

1.连接数据库
2.建立conn连接
3.建立recordset
4.循环输出



透明男孩
职务：普通成员
等级：2
金币：0.0
发贴：373
#42002/4/16 19:53:36
实在对不起，因为小生我水平有限，帖出来的不全，造成了大家不能帮我解决问题。

下面是我想要的地方的原代码：
<%
if ShowMusicTop10=1 then
    MusicTop10
end if
if ShowSpecialTop10=1 then
    SpecialTop10
end if
if ShowStatistic=1 then
%>
<%
end if

function MusicTop10
%>












<%
end function

function SpecialTop10
%>













<%end function%>

<%
if ShowGoodSite=1 then
    GoodSite
end if
%>
<%
sub GoodSite
%>












<%
m=0
set rs=conn.execute("SELECT top 10 id,Singer,ClassID,SClassID,NClassID,MusicName,hits FROM MusicList order by hits desc")
if not Rs.eof then
    do while not rs.eof
        m=m+1
%>




<%
    rs.movenext
    loop
else
    response.write "尚无收录"
end if
rs.close
%>
 <%=m%>.','ShowMusic','width=366,height=100')"><%=rs("MusicName")%> <%=rs("hits")%>











<%
m=0
set rs=conn.execute("SELECT top 10 Specialid,name,Classid,SClassid,NClassid,NClass,hits FROM Special order by hits desc")
if not Rs.eof then
    do while not rs.eof
        m=m+1
%>




<%
    rs.movenext
    loop
else
    response.write "尚无收录"
end if
rs.close
%>
 <%=m%>. target="_blank"><%=rs("name")%> <%=rs("hits")%>