www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/make_musiclist.asp
<!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<%
If Not CheckAdmin(ScriptName) Then
strMsg="<Li>您没有管理本页面的权限。"
Call Msg()
else
Specialid=request.QueryString("im286")
FILENAME="../musiclist/"&Specialid&".htm"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成歌曲HTML文件</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
Set rs=server.createobject("adodb.recordset")
sql="select gequ from mb"
rs.open sql,conn,0,1
pencat=rs("gequ")
rs.close
'################ 读标题开始 ################
sql = "SELECT * FROM special where Specialid="&Specialid
rs.open sql,conn,0,1
if rs.eof and rs.bof then
Response.write"参数错误，请输入正确的参数"
Response.End
else
nclass=rs("NClass")
specialname=rs("name")
gequ_3=gequ_3&""&nclass&""&specialname&""
'################ 读横栏 开始 ################
gequ_1="<a href=../index.htm>"&site_info(0)&"</a> → <a href='../"&rs("SClassid")&"_0912.htm'>"&rs("SClass")&"</font></a> → <a href='../Albumlist/"&rs("NClassid")&".htm'>"&rs("Nclass")&"</a> → "&rs("Name")&" 歌曲列表"
end if
rs.close
pencat=replace(pencat,"Gequ_1",gequ_1)
pencat=replace(pencat,"Gequ_3",gequ_3)
'################ 读主题 开始 ################
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,0,1
if rs.eof then
Response.write "参数错误，请输入正确的参数"
Response.End
else
hits=rs("hits")
Classid=rs("Classid")
SClassid=rs("SClassid")
NClassid=rs("NClassid")
Nclass=rs("Nclass")
name=rs("name")
Gongsi=rs("Gongsi")
Yuyan=rs("Yuyan")
pic=rs("pic")
intro=rs("intro")
gequ_2=gequ_2&"<TABLE width=764 border='0' align=center cellpadding='0' cellspacing='0' bgcolor=E4EAD4>"&_
"<tr><td width=100% >"&_
"<table border=1 cellpadding=4 cellspacing=0 style='border-collapse: collapse' bordercolor=#CCCCCC width=100% >"&_
"<tr>"&_
"<td width=100% bgcolor=#EEEEEE>"&_
"<table width=100% border=0 cellspacing=0 cellpadding=0>"&_
"<tr>"&_
"<td width=* bgcolor=#FFFFFF align=left rowspan=2 height=1>"&_
"<table border=0 cellpadding=0 cellspacing=0 width=110 height=110>"&_
"<tr>"&_
"<td width=100% background=../images/bg_88.gif>"&_
"<p align=center>"
if pic="" then
gequ_2=gequ_2&"===暂无==="
else
gequ_2=gequ_2&"<img src='../"&pic&"' alt='专辑图片' border='0'></td>"&_
"</tr>"&_
"</table>"&_
"</td>"&_
"<td width=40% bgcolor=#FFFFFF height=*>"
gequ_2=gequ_2&"<table border=1 cellpadding=3 cellspacing=0 bordercolor=#FFFFFF width=100% ><tr>"&_
"<td width=20% bgcolor=#FF9933 align=center><font color=#FFFFFF>歌手：</font></td>"&_
"<td width=80% bgcolor=#EEEEEE><a href='../Albumlist/"&rs("NClassid")&".htm'>"&rs("NClass")&"</a> <a href='http://www.caishow.com/ring_body.asp?f=7599&search="&rs("NClass")&"' target=_blank>下载"&rs("NClass")&"的手机铃声</a></td></tr><tr>"&_
"<td width=20% bgcolor=#FF9933 align=center><font color=#FFFFFF>专辑：</font></td>"&_
"<td width=80% bgcolor=#EEEEEE><font color=#FF6600><strong>"&name&"</strong></font></td></tr><tr>"&_
"<td width=20% bgcolor=#FF9933 align=center><font color=#FFFFFF>唱片：</font></td>"&_
"<td width=80% bgcolor=#EEEEEE>"&Gongsi&"</td></tr><tr>"&_
"<td width=20% bgcolor=#FF9933 align=center><font color=#FFFFFF>发行：</font></td>"&_
"<td width=80% bgcolor=#EEEEEE>"&rs("Times")&"</td></tr><tr>"&_
"<td width=20% bgcolor=#FF9933 align=center><font color=#FFFFFF>语言：</font></td>"&_
"<td width=80% bgcolor=#EEEEEE>"&Yuyan&" </td></tr></table>"&_
"</tr>"&_
"<tr>"&_
"<td width=78% bgcolor=#FFFFFF height=1>"
gequ_2=gequ_2&"</tr>"&_
"</table>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"</td>"
gequ_2=gequ_2&"</tr>"
gequ_2=gequ_2&"<TR bgcolor=FAFFE5>"
gequ_2=gequ_2&"<TD align=center>"
gequ_2=gequ_2&"<TABLE width=97% border=0 cellspacing=0 cellpadding=0>"
gequ_2=gequ_2&"<TR><TD><B>专辑介绍:</B><BR>"
end if
if intro="" then
gequ_2=gequ_2&"===暂无==="
else
gequ_2=gequ_2&intro
end if
gequ_2=gequ_2&""
end if
rs.close
gequ_2=gequ_2&"</TD>"&_
"</tr>"&_
"</table></TD></TR></TABLE>"
sql="select * from MusicList where Specialid="&cstr(Specialid)
rs.open sql,conn,0,1
if rs.eof then
gequ_2=gequ_2&"<div align=center>未收录歌曲</div>"
else
gequ_2=gequ_2&"<IMG SRC='../images/span.gif' WIDTH='5' HEIGHT='5' BORDER='0' ALT=''>"&_
"<table width='764' border='0' align='center' cellpadding='0' cellspacing='0' bgColor='#ffc253'>"&_
"<tr>"&_
"<td width='100%' align='center'>"&_
"<span class='style1'><strong>本专辑地址</strong></span> <input name='textarea1' type='text' style='background-color:#F8F0DC' value='"&site_info(1)&"/MusicList/"&Specialid&".htm "&Nclass&"的专辑《"&name&"》，来听听，不错。' size='75' maxlength='100'>"&_
"<input type='button' name='Button' value='点此复制给好友' style='background-color:#FFCC66' onClick=JM_cc('textarea1')>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"<table width='764' border='0' align='center' cellpadding='8' cellspacing='1' bgcolor='#cccccc'>"&_
"<tr>"&_
"<td bgcolor=#FFFFFF>"&_
"<TABLE cellSpacing=1 cellPadding=5 width=100% align=center border=0>"&_
"<TBODY>"&_
"<TR bgColor=#f5f5f5>"&_
"<TD align=middle width=11% height=17><font color=#333333>选择<input name='id' type=hidden value='"&rs("id")&"'></font></td>"&_
"<TD align=middle width='60%' height=17> <TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>"&_
"<TBODY>"&_
"<TR>"&_
"<TD width='59%'> </TD>"&_
"<TD width='41%'><font color='#333333'>歌曲名称</font></TD>"&_
"</TR>"&_
"</TBODY>"&_
"</TABLE></TD>"&_
"<TD align=middle width='6%' height=17> <div align=center><font color='#333333'>点播</font></div></TD>"&_
"<TD width='6%' height=17> <DIV align=center><font color='#333333'>歌词</font></DIV></TD>"&_
"<TD width='10%' height=17> <DIV align=center><font color='#333333'>人气</font></DIV></TD>"&_
"<TD width='6%' height=17> <DIV align=center><font color='#333333'>铃声</font></DIV></TD>"&_
"<form name='special' onSubmit=""javascript:return list();"" action=../play_slb.asp target=1tinglist></tr>"
i=0
do while not rs.eof
i=i+1
gequ_2=gequ_2&"<tr bgColor=#e8f3ff onmouseout=""this.style.backgroundColor='' "" onmouseover=""this.style.backgroundColor='#F7F7F7'"">"&_
"<TD align=middle width='11%'><input type='checkbox' name='checked' value='"&rs("id")&"'></td>"&_
"<TD>" & i & "."&rs("MusicName")&""&_
"<TD align=middle width='10%'><div align=center>"
gequ_2=gequ_2&"<a href=javascript:playit('"&rs("id")&"')><img border='0' src='../images/icon_play.gif' alt='试听本歌曲'></a></div></TD>"
gequ_2=gequ_2&"<TD align=middle width='10%'><div align=center><a href=javascript:playit2('"&rs("id")&"')><IMG alt=歌词 src='../images/g.gif' border=0></a>"
gequ_2=gequ_2&"</div></TD><TD align=middle width='20%'><div align=center>"&rs("hits")&"</div></TD>"&_
"<TD align=middle width='10%'><div align=center><a href='http://www.caishow.com/ring_body.asp?f=1205&search="&rs("MusicName")&"' target=_blank><img src='../images/cmi.gif' border='0' alt='发送铃声到您的手机'></a></div></TD>"&_
"</tr>"
rs.movenext
loop
gequ_2=gequ_2&"<TR><TD align=middle colSpan=8 height=40 class='tab_lb'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='49%' align='right'><input name='chkall' type='button' class='but2' id='chkall2' title='选择显示的所有歌曲' onClick='CheckAll(this.form)' value='全选'> <input name='chkOthers' type='button' class='but2' id='chkOthers2' title='反向选择歌曲' onClick='CheckOthers(this.form)' value='反选'> <input type='submit' class='but2' name='B1' value='电信连播' title='请先选择你想听的歌曲后再点击连播'><span class='style2'></td></tr></table></TD></TR></TABLE></form></td></tr></table></TABLE></form></td>"&_
"</tr></table>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"Gequ_2",gequ_2)
'################ 读结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(FILENAME))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
%>
<font color="#FF0000">·</font><font color="#FF0000">生成 <%=nclass%> 专辑 <%=specialname%> HTML文件完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=FILENAME%>">点此浏览<%=FILENAME%></a>
</body>
</html>
<%end if%>