musiclist.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Include/Connect.asp"-->
<%
username=request.querystring("username")
set rs = server.CreateObject("adodb.recordset")
sql="select * from go_show8_ALLMusic where Username='"&username&"'"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
%>
mkList("http://localhost/UploadMusic/hyj/求佛 - 誓言.mp3","求佛 - 誓言");

<%
else
do while not rs.eof
%>
mkList("http://localhost/Uploadmusic/<%=rs("Username")%>/<%=rs("Filename")%>","<%=rs("Musicname")%>");
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>