music.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 在线电台 插件 for 6KBBS
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="up.asp"--><!--#include file="fun.asp"-->
<%
name=lgname
pwd=lgpwd
if name="" then
Response.Redirect"login.asp"
response.end
end if
application(name)=1%>
<script language="JavaScript">
<!--
function getusr()
{
  var search=window.location.search.substr(1); //remove &
  splits = search.split("&");
  for (i=0;i<splits.length ;i++ ) 
  {
    var pair = splits[i].split("=");
    if(pair[0]=="username")
    {
      return pair[1];
    }
  }
  return "";
}
function getCookieVal (offset) {var endstr=document.cookie.indexOf (";",offset);if (endstr==-1) endstr=document.cookie.length;return unescape(document.cookie.substring(offset, endstr));} 
//-->
</script>
<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<br><br>
<div align='center'>
  <center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=98% ><tr>
    <td bgcolor=<%=c1%> width=100% background=pic/<%=sp%>3.gif height=23>&nbsp;<img border=0 src=pic/fl.gif> <font color=#FFFFFF><b>在 线 电 台</b></font></td></tr></table>
  </center>
</div>
<center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" bordercolor="<%=c1%>" width="98%">
<tr>
      <td width="100%" align="center" height="25" bgcolor="<%=c2%>"><br>
      <br>
      <br><br><%
	stats="娱乐电台"
		'call nav()
		'call headline(1)

'if membername="" then
'end if
dim lurl
lurl=Request.QueryString("url")
if ucase(right(lurl,4))=".rm.wma.wax" then
%>
<%else 
  if  ucase(right(lurl,3))=".RM" or ucase(right(lurl,3))=".RA" then %>
<embed src="<%=lurl%>" type="audio/x-pn-realaudio-plugin" controls="ControlPanel,StatusBar" console="Clip1"  height="50" width="493" autostart="true"></embed>
    <% else %>
<object id=NsPlay width=493  height=50   classid=CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95><param name=ShowStatusBar value=-1><param name=FileName value=<%=lurl%>><param name=Volume value=0></object>
   <%end if%>
<%end if%><br><br>
      <br>
      <br>
      <br></td>
    </tr>
  </table>
  </center>
</div>
  <div align="center">
    <center>
<TABLE borderColor=<%=c1%> cellSpacing=0 cellPadding=0 width="98%" border=1 style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px">
<TBODY>
<TR height=25>
<TD height=2>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0 style="border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0">
<TBODY>
<TR>
<TD><b><!--#include file="music_dz.asp"--></b></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</center>
  </div><br><br><!--#include file="down.asp"-->