nettv.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><%
	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 align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=400 height=400 ><param name=ShowStatusBar value=-1><param name=Filename value=<%=lurl%>>
  <embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=lurl%>  width=400 height=400></embed></object>
   <%end if%>
<%end if%><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="nettv_dz.asp"--></b></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</center>
  </div>
<br><br><!--#include file="down.asp"-->