📄 song.asp
字号:
<!--#include file="../config/config.asp"-->
<%useronlinename=Application("hxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(useronlinename," "&nickname&" ")=0 then Response.Redirect "chaterr.asp?id=001"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj1=n & "-" & y & "-" & r
sj2=s & ":" & f & ":" & m
sj3=sj1 & " " & sj2
Set fs=CreateObject("Scripting.FileSystemObject")
zjpath=Server.Mappath("mid")
zj=Request.QueryString("zj")
if InStr(zj,"..")<>0 or InStr(zj,".")<>0 or InStr(zj,"\")<>0 or InStr(zj,"/")<>0 or InStr(zj,"or")<>0 then Response.Redirect "error.asp?id=120"
%><html>
<head>
<title>点歌</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<script language="javaScript">
function gozj(){url="song.asp?zj="+document.forms[0].songzj.options[document.forms[0].songzj.selectedIndex].value;window.location.href=url;}
function send(){sendurl="songsend.asp?zj=" + document.forms[0].songzj.options[document.forms[0].songzj.selectedIndex].value + "&songname=" + document.forms[0].song.options[document.forms[0].song.selectedIndex].value;window.location.href=sendurl;}
</script>
<link rel="stylesheet" href="../lw/setup.css">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed" text="#FFFFFF">
<div align=center><font color="#FFFF00" style="font-size:10pt">点歌系统</font></div>
<hr size=1 color=FFFF00>
<table border="0" width="100%">
<form method="post" action="songplay.asp" name="" target="ps">
<tr>
<td>
<div>
<p><a href="javascript:history.go(0)" title="显示最新的曲目列表"><font color="#FFFFFF">刷新:<%=sj1%></font></a></p>
<p><font color="#FFFF00">选择专辑：</font><br>
<select name="songzj" style="font-size:9pt" onchange="javascript:gozj()"><%Set f=fs.GetFolder(zjpath)
Set fc=f.SubFolders
sss=0
For Each f1 in fc
fn=f1.name
if zj="" and sss=0 then zj=fn
sss=sss+1%><option value="<%=Server.URLEncode(fn)%>"<%if Server.HTMLEncode(zj)=Server.HTMLEncode(fn) then Response.Write " Selected"%>><%=fn%></option>
<%next%></select>
</p>
</div>
<p> <font color="#FFFF00">选择曲目：</font><br>
<select name="song" style="font-size:9pt"><%songpath=Server.Mappath("mid/"&zj)
Set f=fs.GetFolder(songpath)
Set fc=f.Files
For Each f1 in fc
fn=f1.name%><option value="<%=Server.URLEncode(fn)%>"><%=left(fn,(len(fn)-4))%></option>
<%next
Set f=nothing
Set fc=nothing
Set fs=nothing%></select>
</p>
<table border="0" cellpadding="4">
<tr>
<td>
<input type="submit" name="play" value="播放" style="background-color:FF0000;color:FFFFFF;border: 1 double" onmouseover="this.style.color='FFFF00'" onmouseout="this.style.color='FFFFFF'">
</td>
<td align="right">
<input type="submit" name="st" value="停止" style="background-color:3366FF;color:FFFFFF;border: 1 double" onmouseover="this.style.color='FFFF00'" onmouseout="this.style.color='FFFFFF'">
</td>
</tr>
<tr>
<td colspan="2">
<input type="button" value="好歌赠好友" onClick="Javascript:send()" name="button" style="background-color:FF0000;color:FFFFFF;border: 1 double" onmouseover="this.style.color='FFFF00'" onmouseout="this.style.color='FFFFFF'">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<Script Language=Javascript>
parent.m.location.href='about:blank';
</Script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -