📄 song.asp
字号:
<!--#INCLUDE FILE="config.asp" -->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
Set fs=CreateObject("Scripting.FileSystemObject")
kindpath=Server.Mappath("song")
kind=Request.QueryString("kind")
kind=Replace(kind,"..","")
zj=Request.QueryString("zj")
zj=Replace(zj,"..","")
towho=Request.QueryString("towho")
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>title</title>
<style>
<!--
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
a:active { color: <%=zzbird_chattext%>; font-size: 9pt }
a:link { color: <%=zzbird_chattext%>; font-size: 9pt }
a:visited { color: <%=zzbird_chattext%>; font-size: 9pt }
a { color: <%=zzbird_chattext%>; font-size: 9pt }
body { font-size: 10pt;color:<%=zzbird_chattext%>}
.but { border-style: ridge; border-width: 1; background-color:
<%=zzbird_butbg%> ;color: <%=zzbird_buttext%>;CURSOR: hand; }
.in { font-size: 9.5pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
select { font-size: 9pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
-->
</style>
<script language="javascript">
if(window==window.top){top.location.href="chat.asp?fp=1";}
function checksay()
{
if(document.songs.hename.value=="<%=info(0)%>" && document.songs.who[1].checked){alert("不能为自己点歌！");return false;}
if(document.songs.namelist.value==""){alert("没有专辑或没有歌曲，无法点歌！");return false;}
if(document.songs.target!='autosay'){parent.songs1();}
}
function ctlent(eventobject)
{if(event.ctrlKey)
{self.event.returnValue=false}
}
</script>
</head>
<body onkeydown="ctlent();" oncontextmenu="parent.l3.document.allsay.saysword.focus();self.event.returnValue=false;" bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>" <%end if%> topmargin="6" leftmargin="6">
<div class="bird" align="center"><font style="font-size: 11.5pt">
点歌控制台</font><hr color="#000000" size="1"><form onsubmit="return(checksay());" method="POST" name="songs" action="playsong.asp" target="<%if Request("towho")="" then%>song<%else%>autosay<%end if%>"><input type="radio" name="how" value="self" onclick="javascript:document.songs.B1.disabled=0;document.songs.songkind.disabled=1;document.songs.typelist.disabled=1;document.songs.namelist.disabled=1;document.songs.songurl.disabled=0;">自定义位置<br>
<input disabled type="text" name="songurl" size="17" value="http://" class="in"><hr>
<input type="radio" value="sele" checked name="how" onclick="javascript:document.songs.B1.disabled=0;document.songs.songkind.disabled=0;document.songs.typelist.disabled=0;document.songs.namelist.disabled=0;document.songs.songurl.disabled=1;">在下面选择<br>
<select size="1" name="songkind" onchange="window.open('song.asp?kind='+this.options[this.selectedIndex].value+'&towho=<%=towho%>','_self')" style="width:118">
<%Set f=fs.GetFolder(kindpath)
Set fc=f.SubFolders
i=0
For Each f1 in fc
fn=f1.name
if kind="" and i=0 then kind=fn
i=1%><option value="<%=fn%>"<%if Server.HTMLEncode(kind)=Server.HTMLEncode(fn) then Response.Write " Selected"%>><%=fn%></option>
<%next%>
</select><br>
专辑列表<br>
<select size="1" name="typelist" style="width: 118" onchange="window.open('song.asp?kind=<%=kind%>&zj='+this.options[this.selectedIndex].value+'&towho=<%=Request("towho")%>','_self')">
<%
zjpath=Server.Mappath("song/"&kind)
Set f=fs.GetFolder(zjpath)
Set fc=f.SubFolders
i=0
For Each f1 in fc
fn=f1.name
if zj="" and i=0 then zj=fn
i=1%><option value="<%=fn%>"<%if Server.HTMLEncode(zj)=Server.HTMLEncode(fn) then Response.Write " Selected"%>><%=fn%></option>
<%next%>
</select><br>
歌曲列表<br>
<select size="1" name="namelist" style="width: 118" onchange=document.songs.B1.disabled=0;>
<%
songpath=Server.Mappath("song/"&kind&"/"&zj)
Set f=fs.GetFolder(songpath)
Set fc=f.Files
For Each f1 in fc
fn=f1.name%><option value="<%=fn%>"><%=left(fn,(len(fn)-4))%></option>
<%next
set f=nothing
set fc=nothing
set fs=nothing%>
</select>
<hr>
<input type="radio" name="who" value="my" <%if towho="" then%>checked<%end if%> onclick="javascript:document.songs.B1.disabled=0;document.songs.target='song';document.songs.hename.disabled=1;javascript:document.songs.myloop.disabled=0;">自己欣赏<br>
<select <%if towho<>"" then%>disabled<%end if%> size="1" name="myloop" style="width: 118">
<option value="1" selected>播放一次</option>
<option value="0">循环播放</option>
</select><br>
<input type="radio" name="who" value="he" <%if towho<>"" then%>checked<%end if%> onclick="javascript:document.songs.B1.disabled=0;document.songs.target='autosay';document.songs.hename.disabled=0;javascript:document.songs.myloop.disabled=1;">馈赠聊友<br>
<select <%if towho="" then%>disabled<%end if%> size="1" name="hename" style="width: 118">
<Script Language="JavaScript">
var towho="<%=Request("towho")%>";
var v = "<%=Application("zzbird_name_" & info(7))%>";
var sel="";
if(v!="")
{v = v.replace(",","")
v = v + ","
lis = v.split(",,")
for(t=0;t<lis.length-1;t++)
{
if(towho==lis[t]){sel="selected";}
else{sel="";}
document.write("<option "+sel+" value=\"" + lis[t] + "\">" + lis[t] + "</option>");
}
}
</Script>
</select><br>
<br>
<input type="submit" value="确定" name="B1" class="but"><input type="button" value="停止" name="stop" onclick="javascript:parent.songs2();document.songs.B1.disabled=0;parent.playsong('');" class="but"></form>
</div></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -