📄 music.asp
字号:
<!--#include file="dmwh_conn.asp"-->
<!--#include file="Admin.asp"-->
<script language=javascript src=inc/mouse_on_title.js></script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY>
<%
action=request("ok")
if action="" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from dm_mp3"
rs.open sql,conn,1,1
Set fso = CreateObject("Scripting.FileSystemObject")
set music=Fso.OpenTextFile(server.mappath("../music/exobudpl.js"))
musiclist=music.readall
music.close
musiclist=replace(musiclist,"mkList(","")
musiclist=replace(musiclist,");","")
musiclist=replace(musiclist,chr(34),"")
musiclist=replace(musiclist,vbCRLF,"<br>")
for i=1 to 10
musiclist=replace(musiclist,"<br><br>","<br>")
next
musiclist=replace(musiclist,"<br>",vbCRLF)
set fso=nothing
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=music.asp method=post name=setup>
<tr class=backs><td colspan=2 class=td height=18>好歌不断--音乐设置</td></tr>
<tr><td width=20% align=right>是否播放音乐 </td><td > <input type="radio" name="music" value="1" <%if rs("other1")="1" then%>checked<%end if%>>播放 <input type="radio" name="music" value="0" <%if rs("other1")<>"1" then%>checked<%end if%>>关闭</td></TR>
<tr><td width=20% align=right>音乐文件列表 </td><td><TEXTAREA alt="每个网址单独一行<br>如：http://www.xinmengjia/shop/music/kfc.mp3" NAME="musiclist" ROWS=22 style="width=90%;overflow:auto;">
<%
response.write musiclist
%>
</TEXTAREA></td></TR>
<tr><td colspan=2 width="568" ><INPUT name="ok" TYPE="hidden" value="ok"><INPUT name=action TYPE="submit" value="保存设置"></table>
</form>
<font color=red>※提示：</font><br><br>每个音乐网址/文件占一行。注意：网址和文件名中不能有中文；<br>
如果是网上的音乐，请填写以http://、mms://开头的网址，例如：http://www.hew.cn/music/laoshuaidami.mp3；<br>
如果是站内音乐，请将文件上传到music目录，在上面填写文件名，例如：laoshuaidami.mp3；<br>支持.mp3、.wma、.asf、.wmv等格式，不支持.rm、.ram格式。
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
if action="ok" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from dm_mp3"
rs.open sql,conn,1,3
rs("other1")=request.form("music")
rs.update
url="music.asp"
rs.close
set rs=nothing
conn.close
set conn=nothing
musiclist=request.form("musiclist")
musiclist=replace(musiclist,vbCRLF,"<br>")
for i=1 to 10
musiclist=replace(musiclist,"<br><br>","<br>")
next
temp=split(musiclist,"<br>")
for i=0 to ubound(temp)
if trim(temp(i))<>"" then music_list=music_list&"mkList("&chr(34)&temp(i)&chr(34)&");"&vbCRLF
next
Set fso = CreateObject("Scripting.FileSystemObject")
set music=Fso.OpenTextFile(server.mappath("../music/exobudpl.js"),2)
music.write(music_list)
music.close
set fso=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，您设置的信息已保存！');"
response.write "location.href='"&url&"';"
response.write "</script>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -