📄 syplayer.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/radio.asp" -->
<%
Dim player
Dim player_numRows
Set player = Server.CreateObject("ADODB.Recordset")
player.ActiveConnection = MM_radio_STRING
player.Source = "SELECT * FROM player"
player.CursorType = 0
player.CursorLocation = 2
player.LockType = 1
player.Open()
player_numRows = 0
%>
<html>
<head>
<title>UP!RADIO 全球网络电台--点歌平台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/radio.css" type="text/css">
<script language="JavaScript">
<!--
if (window.Event)
document.captureEvents(Event.MOUSEUP);
function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
}
document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<style type="text/css">
<!--
a:link {
color: #000000;
}
.style1 {font-size: 12px}
.style2 {font-size: 12}
body {
background-color: #F0F0F0;
}
.style3 {color: #0099CC}
-->
</style></head>
<body leftmargin="0" topmargin="0" onConTextMenu="event.returnValue=false">
<!-- ImageReady Slices (play.jpg) -->
<table width="289" border="0" cellspacing="00" cellpadding="0" height="172">
<tr>
<td width="289" height="120" background="../images/playbg.png">
<table width="97%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td width="19%" align="right"><span class="style3">节目名：</span></td>
<td height="20" width="81%"><span class="style2"><%=(player.Fields.Item("name").Value)%></span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td width="19%" align="right"><span class="style3">主持人：</span></td>
<td width="31%" height="20"><span class="style2"><%=(player.Fields.Item("nj").Value)%></span></td>
<td width="8%" height="20"><font color="#FF6600">QQ:</font></td>
<td width="42%" height="20"><font size="2" class="style2"><%=(player.Fields.Item("njqq").Value)%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td width="17%" align="right"><span class="style3">嘉 宾：</span></td>
<td width="33%" height="20"><font size="2" class="style2"><%=(player.Fields.Item("guest").Value)%></font></td>
<td width="8%" height="20"><font color="#FF6600">QQ:</font></td>
<td width="42%" height="20"><span class="style2"><%=(player.Fields.Item("guestqq").Value)%></span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="left"><span class="style3"> 节目时间：</span><span class="style2"><%=(player.Fields.Item("shour").Value)%></span><font size="2"><strong>:</strong><span class="style2"><%=(player.Fields.Item("sminu").Value)%></span>～<span class="style2"><%=(player.Fields.Item("ehour").Value)%></span><strong>:</strong><span class="style2"><%=(player.Fields.Item("eminu").Value)%></span></font></td>
</tr>
<tr>
<td>
<table width="56%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td nowrap>
<span class="style1"> <span class="style2">
<marquee scrolldelay=200 width="100%">
<font color="#0000ff"><%=(player.Fields.Item("intro").Value)%></font>
</marquee>
</span> </span> </td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td><table width="217" border="0">
<tr>
<td width="211"><strong><a href="#"><img src="../player/<%=(player.Fields.Item("air").Value)%>.gif" width="167" height="45" border="0" align="center" onMouseUp="MM_openBrWindow('../asp/music.asp','','width=750,height=150')"></a></strong></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<!-- End ImageReady Slices -->
</body>
</html>
<%
player.Close()
Set player = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -