musiclist.asp

学习的一个好的例子,是一个购物的例子,相当不错!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Include/Connect.asp"-->
<%
username=request.querystring("username")
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLMusic where Username='"&username&"'"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
%>
mkList("http://www.show5.net/UploadMusic/zhouyu/Skinnydippn.mp3","Skinnydippn");
mkList("http://www.show5.net/UploadMusic/zhouyu/凤凰传奇-月亮之上.mp3","凤凰传奇-月亮之上");
mkList("http://www.show5.net/UploadMusic/zhouyu/韩宝仪-无言的温柔.mp3","韩宝仪-无言的温柔");
mkList("http://www.show5.net/UploadMusic/zhouyu/寂寞沙洲冷- 周传雄.mp3","寂寞沙洲冷- 周传雄");
mkList("http://www.show5.net/UploadMusic/zhouyu/亮亮-亲爱的不要离开我.mp3","亮亮-亲爱的不要离开我");
mkList("http://www.show5.net/UploadMusic/zhouyu/刘德华-男儿志.mp3","刘德华-男儿志");
mkList("http://www.show5.net/UploadMusic/zhouyu/王心凌-第一次爱的人.mp3","王心凌-第一次爱的人");
mkList("http://www.show5.net/UploadMusic/zhouyu/王心凌-月光.mp3","王心凌-月光");
mkList("http://www.show5.net/UploadMusic/zhouyu/小刚-记事本.mp3","小刚-记事本");
mkList("http://www.show5.net/UploadMusic/zhouyu/许茹芸-不爱我放了我.mp3","许茹芸-不爱我放了我");
mkList("http://www.show5.net/UploadMusic/zhouyu/周笔畅-笔记.mp3","周笔畅-笔记");
mkList("http://www.show5.net/UploadMusic/zhouyu/周传-雄忘记.mp3","周传-雄忘记");
<%
else
do while not rs.eof
%>
mkList("http://www.show5.net/Uploadmusic/<%=rs("Username")%>/<%=rs("Filename")%>","<%=rs("Musicname")%>");
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>