make_playlist.asp 要听音乐网完美修正版 1.0源码程序 - ASP源码程序

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/make_playlist.asp
    <!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<%
If Not CheckAdmin(ScriptName) Then
    strMsg="<Li>您没有管理本页面的权限。"
    Call Msg()
else
id=request.QueryString("im286")
filename="../playlist/"&id&".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 mxda from mb"
set rs = conn.execute(sql)
pencat=rs("mxda")
rs.close
'################ 读标题 开始 ################
sql = "SELECT * FROM MusicList where ID="&id
set rs = conn.execute(sql)
if rs.eof then 
	Response.write"参数错误，请输入正确的参数"
  Response.End 
Else
	musicname=rs("MusicName")
	geshou=rs("Singer")
		dangan_3=dangan_3&""&musicname&"-"&geshou&""
'################ 读横栏 开始 ################
		dangan_1=dangan_1&"<table width='400' border='0' align='center' cellpadding='0' cellspacing='4' bgcolor='#FFFFFF'><tr><td>"
    dangan_1=dangan_1&"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='4' bgColor='#ffc253'><tr>"
    dangan_1=dangan_1&"<td width='80' align='center'>本歌曲地址:</td>"
    dangan_1=dangan_1&"<td width='220' align='left'><input name='textarea1' type='text' style='background-color:#F8F0DC' value='"&site_info(1)&"/playlist/"&id&".htm  "&geshou&"的"&musicname&"，来听听，不错。' size='34' maxlength='100'></td>"
    dangan_1=dangan_1&"<td width='76' align='center'><input type='button' name='Button' value='复制给好友' style='background-color:#FFCC66' onClick=JM_cc('textarea1')></td>"
    dangan_1=dangan_1&"</tr></table></td></tr></table>"
end if
pencat=replace(pencat,"Dangan_1",dangan_1)
pencat=replace(pencat,"Dangan_3",dangan_3)
'################ 读主体 开始 ################
dangan_2=dangan_2&"../wma.asp?id="&id&""
dangan_4=dangan_4&"<iframe id=orangebox2 name='orangebox2' class='iframelink' src='../music_word.asp?id="&id&"' width='380' height='300' scrolling='yes' frameborder='0' marginwidth='0' marginheight='0' ></iframe>"
rs.close
set rs = nothing
conn.close
set conn=nothing                   
                    
pencat=replace(pencat,"Dangan_2",dangan_2)
pencat=replace(pencat,"Dangan_4",dangan_4)
'################ 读结束 ################
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">生成 <%=geshou%>→<%=musicname%> 播放文件完成</font><br>
<font color="#FF0000">·</font><a target="_blank" href="<%=filename%>">点此浏览<%=filename%></a>
</body>
</html>
<%end if%>