multimediaList.asp 维六酷博客管理系统 1.1源码程序 - ASP源码程序

www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/multimediaList.asp

    <!--#include file="check.asp"-->
<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<link href="css.css" rel="stylesheet" type="text/css">
<body topmargin="10" background="images/bg1024.gif">
<%
Set rs=conn.Execute("Select * From multimedia Where top = 1 Order by toptime desc")
Do While Not rs.eof
	mList=mList&"mkList("""& rs("url") &""","""& rs("title") &""");"
	'mList=mList&"<ref href="""& rs("url") &"""/>"
	'mList=mList&"</entry>"
rs.MoveNext
Loop

path="../js/addlist.js"
Set fso=Server.CreateObject("scripting.fileSystemobject")
Set file=fso.CreateTextFile(Server.Mappath(path),true)
file.Write(mList)
Set file=nothing
Set fso=Nothing
Call MessageBox("生成音乐列表成功!","")
%>
</body>