www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > play.asp
<!-- #include file="conn.asp" -->
<!--#include file="include.asp"-->
<!-- #include file="inc/function.asp" -->
<%
id=RequestQueryNum("id")
Set rs=conn.Execute("Select * From multimedia Where id="& id &"")
If rs.bof And rs.eof Then
Response.Write "param error!"
Response.End
End If
title=rs("title")
singer=rs("singer")
lyrics=rs("lyrics")
url=rs("url")
cid=rs("categoryid")
Set rs=conn.Execute("Select top 1 id from multimedia Where id < "& id &" and categoryid="& cid &" order by id desc")
If rs.bof And rs.eof Then
Else
linkNext="<a href=""?id="& rs("id") &""">下一首</a>"
End If
Set rs=conn.Execute("Select top 1 id from multimedia Where id > "& id &" and categoryid="& cid &" order by id asc")
If rs.bof And rs.eof Then
Else
linkPre="<a href=""?id="& rs("id")&""">上一首</a>"
End If
Set rs=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%> 让我更出色_播放器</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
color:#FFFFFF;
background-color: #000000;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #FFFFFF;
}
.STYLE1 {
color: #CCCCCC;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><img src="images/aboutme_r1_c6.jpg" width="276" height="55" border="0" usemap="#Map2"><map name="Map2"><area shape="rect" coords="144,26,211,43" href="default.asp"><area shape="rect" coords="212,26,266,42" href="link.asp"></td>
</tr>
<tr>
<td align="right"><table width="100%" height="279" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" align="center"><img src="images/Multimedia_22_r1_c1.jpg" width="535" height="10"></td>
</tr>
<tr>
<td width="7%" align="left"><img src="images/Multimedia_22_r2_c1.jpg" width="36" height="263"></td>
<td width="85%" valign="bottom" align="center"><%Call play()%></td>
<td width="8%"><img src="images/Multimedia_22_r2_c3.jpg" width="43" height="263"></td>
</tr>
<tr>
<td colspan="3" background="images/Multimedia_2_r3_c1.jpg" width="535" height="50" align="center">
<table width="100%"><tr>
<td width="100"></td>
<td><%=linkPre%> <%=linkNext%></td>
<td width="100"><a href="multimedia.asp?cid=<%=cid%>">返回</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="38%"><img src="images/Multimedia_r1_c12.jpg" width="386" height="267"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%" rowspan="3" valign="bottom"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="67%"><img src="images/Multimedia_r10_c1.jpg" width="292" height="143"></td>
<td width="33%" rowspan="2"><img src="images/Multimedia_r10_c8.jpg" width="145" height="256"></td>
</tr>
<tr>
<td><img src="images/Multimedia_r11_c1.jpg" width="292" height="113"></td>
</tr>
</table></td>
<td width="56%"><img src="images/Articlemuen.jpg" width="563" height="60" border="0" usemap="#Map"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r1_c1.jpg" width="563" height="93"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r3_c1.jpg" width="563" height="103"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map"><area shape="rect" coords="11,20,83,55" href="aboutme.asp">
<area shape="rect" coords="87,15,140,47" href="Article.asp">
<area shape="rect" coords="149,21,228,46" href="Multimedia.asp">
<area shape="rect" coords="241,25,293,49" href="photo.asp">
<area shape="rect" coords="300,27,377,55" href="tool.asp">
<area shape="rect" coords="393,28,459,51" href="book.asp">
</map></body>
</html>
<%
Sub play()
'url="gerUrl.asp?id="&id
'music
If cid=1 Then
If lyrics <>"" then
%>
<IFRAME src="lyrics.asp?id=<%=id%>" frameborder="0" scrolling="YES" width="450" height="178"></IFRAME>
<%
End If
%>
<div align="left">歌名：<%=title%> 歌手：<%=singer%></div>
<div id="player">
<object id="MediaPlayer1" width="450" height="64" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"
codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,7,1112"
align="baseline" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="URL" value="<%=url%>">
<param name="autoStart" value="true">
<param name="invokeURLs" value="false">
<param name="playCount" value="100">
<param name="defaultFrame" value="datawindow">
<embed src="<%=url%>" align="baseline" border="0" width="350" height="68"
type="application/x-mplayer2"
pluginspage=""
name="MediaPlayer1" showcontrols="1" showpositioncontrols="0"
showaudiocontrols="1" showtracker="1" showdisplay="0"
showstatusbar="1"
autosize="0"
showgotobar="0" showcaptioning="0" autostart="1" autorewind="0"
animationatstart="0" transparentatstart="0" allowscan="1"
enablecontextmenu="1" clicktoplay="0"
defaultframe="datawindow" invokeurls="0">
</embed>
</object>
</div>
<%
'video
ElseIf cid=2 Then %>
<div id="player">
<object width="450" classid=clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95 codebase="http://activex.microsoft.com/activex/controls/mplayer
/en/nsmp2inf.cab#Version=6,1,5,217"
id=MediaPlayer type=application/x-oleobject standby="Loading Microsoft Windows Media Player components..." VIEWASTEXT align=MIDDLE>
<param name=AudioStream value=-1>
<param name=AutoSize value=0>
<param name=AutoStart value=1>
<param name=AnimationAtStart value=0>
<param name=AllowScan value=-1>
<param name=AllowChangeDisplaySize value=0>
<param name=AutoRewind value=0>
<param name=Balance value=0>
<param name=BaseURL value="">
<param name=BufferingTime value=5>
<param name=CaptioningID value="">
<param name=ClickToPlay value=0>
<param name=CursorType value=32512>
<param name=CurrentPosition value=-1>
<param name=CurrentMarker value=0>
<param name=DefaultFrame value=1>
<param name=DisplayBackColor value=0>
<param name=DisplayForeColor value=16777215>
<param name=DisplayMode value=0>
<param name=DisplaySize value=0>
<param name=Enabled value=-1>
<param name=EnableContextMenu value=-1>
<param name=EnablePositionControls value=0>
<param name=EnableFullScreenControls value=0>
<param name=EnableTracker value=1>
<param name=Filename value="<%=url%>">
<param name=InvokeURLs value=-1>
<param name=Language value=-1>
<param name=Mute value=0>
<param name=PlayCount value=1>
<param name=PreviewMode value=0>
<param name=Rate value=1>
<param name=SAMILang value="">
<param name=SAMIStyle value="">
<param name=SAMIFileName value="">
<param name=SelectionStart value=0>
<param name=SelectionEnd value=true>
<param name=SendOpenStateChangeEvents value=-1>
<param name=SendWarningEvents value=-1>
<param name=SendErrorEvents value=-1>
<param name=SendKeyboardEvents value=0>
<param name=SendMouseClickEvents value=0>
<param name=SendMouseMoveEvents value=0>
<param name=SendPlayStateChangeEvents value=-1>
<param name=ShowCaptioning value=0>
<param name=ShowControls value=1>
<param name=ShowAudioControls value=1>
<param name=ShowDisplay value=0>
<param name=ShowGotoBar value=0>
<param name=ShowPositionControls value=1>
<param name=ShowStatusBar value=0>
<param name=ShowTracker value=1>
<param name=TransparentAtStart value=0>
<param name=VideoBorderWidth value=0>
<param name=VideoBorderColor value=0>
<param name=VideoBorder3D value=0>
<param name=Volume value=-1070>
<param name=WindowlessVideo value=1>
</object>
</div>
<%
'flash
ElseIf cid=3 Then %>
<P align=center>
<OBJECT width="450" height="250" codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
<PARAM NAME="_cx" VALUE="14552">
<PARAM NAME="_cy" VALUE="10583">
<PARAM NAME="FlashVars" VALUE="">
<PARAM NAME="Movie" VALUE="<%=url%>">
<PARAM NAME="Src" VALUE="<%=url%>">
<PARAM NAME="WMode" VALUE="Window">
<PARAM NAME="Play" VALUE="-1">
<PARAM NAME="Loop" VALUE="-1">
<PARAM NAME="Quality" VALUE="High">
<PARAM NAME="SAlign" VALUE="">
<PARAM NAME="Menu" VALUE="-1">
<PARAM NAME="Base" VALUE="">
<PARAM NAME="AllowScriptAccess" VALUE="">
<PARAM NAME="Scale" VALUE="ShowAll">
<PARAM NAME="DeviceFont" VALUE="0">
<PARAM NAME="EmbedMovie" VALUE="0">
<PARAM NAME="BGColor" VALUE="">
<PARAM NAME="SWRemote" VALUE="">
<PARAM NAME="MovieData" VALUE="">
<PARAM NAME="SeamlessTabbing" VALUE="1">
<PARAM NAME="Profile" VALUE="0">
<PARAM NAME="ProfileAddress" VALUE="">
<PARAM NAME="ProfilePort" VALUE="0">
<embed src="<%=url%>" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' >
</embed>
</OBJECT>
</P>
<%
End If
End Sub
%>