music_displaysong.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
Dim const_txl_HomeUrl,gs,musicurl,musicname
musicurl=Request("musicurl")
musicname=Request("musicname")
const_txl_HomeUrl=""
SiteHead2 const_txlname&"-音乐播放器"
gs=lcase(right(musicurl,len(musicurl)-Instrrev(musicurl,".")))

Call play
Call web_end
sub play
%>
<table width=471 border=0 align="center" cellpadding=0 cellspacing=0>
  <tr><td width=471 align=center>
	<table border="0" width="471" cellspacing="0" cellpadding="0" height="150">
        <tr align="center"> 
          <td width="471" colspan="3">播放歌曲</td>
        </tr>
<tr align="left"> 
<td width="471" colspan="3">
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">歌曲名字：</span></font><font color="#ff0000">【<%=musicname%>】</font><br>
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">下载地址：</span></font><a href="<%=musicurl%>"target=" _blank"> 点击下载</a><br>

<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">手机下载：</span></font>马上用手机登录<%=const_homepageurl%>免费下载</td>
        </tr>
        <tr> 
          <td width="75" align="center">　</td>
          <td width="320"> 
            <%if gs="rm" or gs="ram" then%>
            <object id=video1 classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" height=64 width=100% >
              <param name="controls" value="StatusBar,ControlPanel">
              <param name="console" value="Clip1">
              <param name="autostart" value="-1">
              <param name="src" value="<%=musicurl%>">
              <param name="SHUFFLE" value="0">
              <param name="PREFETCH" value="0">
              <param name="NOLABELS" value="-1">
              <param name="LOOP" value="0">
              <param name="NUMLOOP" value="0">
              <param name="CENTER" value="0">
              <param name="MAINTAINASPECT" value="0">
              <param name="BACKGROUNDCOLOR" value="#000000">
              <embed src="<%=musicurl%>" width=100% autostart=-1 loop="0" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="StatusBar,ControlPanel" shuffle="0" prefetch="0" nolabels="1" numloop="0" center="0" maintainaspect="0" backgroundcolor="#000000"> 
              </embed></object> 
            <%else%>
            <object id="Player2" type="application/x-oleobject" height="68" standby="Loading Windows Media Player components..." width="100%" border="0" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" name="8-1-2-3-8.Player">
         <param name="AudioStream" value="-1">
        <param name="AutoSize" value="0">
        <param name="AutoStart" value="-1">
        <param name="AnimationAtStart" value="-1">
        <param name="AllowScan" value="-1">
        <param name="AllowChangeDisplaySize" value="-1">
        <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="0">
        <param name="CurrentPosition" value="-1">
        <param name="CurrentMarker" value="0">
        <param name="DefaultFrame" value>
        <param name="DisplayBackColor" value="0">
        <param name="DisplayForeColor" value="16777215">
        <param name="DisplayMode" value="0">
        <param name="DisplaySize" value="4">
        <param name="Enabled" value="-1">
        <param name="EnableContextMenu" value="0">
        <param name="EnablePositionControls" value="-1">
        <param name="EnableFullScreenControls" value="0">
        <param name="EnableTracker" value="-1">
        <param name="Filename" value="<%=musicurl%>">
        <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="-1">
        <param name="SelectionEnd" value="-1">
        <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="-1">
        <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="-600">
        <param name="WindowlessVideo" value="0"><embed type="application/x-mplayer2" pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp" Name="Player" width="300" height="66" border="0" SHOWSTATUSBAR="-1" SHOWCONTROLS="0" SHOWGOTOBAR="0" SHOWDISPLAY="-1" INVOKEURLS="-1" AUTOSTART="1" CLICKTOPLAY="0" DisplayForeColor="12945678"> 
            </object> 
            <% end if%>
          </td>
          <td width="76"></td>
        </tr>
      </table>
	</td></tr>
</table>
<%End sub%>