displaysong.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
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 SiteBottom2
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="center"> 
          <td width="471" colspan="3">歌曲名字：<%=musicname%><br>
            下载地址：<a href="<%=musicurl%>" target="_blank"><%=musicurl%></a></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="Player">
              <param NAME="AudioStream" VALUE="-1">
              <param NAME="AutoSize" VALUE="0">
              <param NAME="AutoStart" VALUE="0">
              <param NAME="AnimationAtStart" VALUE="-1">
              <param NAME="AllowScan" VALUE="-1">
              <param NAME="AllowChangeDisplaySize" VALUE="-1">
              <param NAME="AutoRewind" VALUE="0">
              <param NAME="Balance" VALUE="10">
              <param NAME="BaseURL" VALUE>
              <param NAME="BufferingTime" VALUE="5">
              <param NAME="CaptioningID" VALUE>
              <param NAME="ClickToPlay" VALUE="-1">
              <param NAME="CursorType" VALUE="0">
              <param NAME="CurrentPosition" VALUE="1.023381">
              <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="0">
              <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="261.302">
              <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="1">
              <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%>
<%
function SiteBottom2
	Response.Write "<a name=bottom></a>"&vbcrlf
	Response.Write "<table width='98%' border='0' cellspacing='0' cellpadding='0' align='center' bgcolor='#ffffff'>"&vbcrlf
  	Response.Write "	<tr>"&vbcrlf 
	Response.Write "		<td height=8 background='"&const_txl_HomeUrl&"images/nevb.gif'></td>"&vbcrlf
  	Response.Write "	</tr>"&vbcrlf
  	Response.Write "	<tr>"&vbcrlf 
   	Response.Write "		<td  style='border:#e6e6e6 1px solid;font-size:12px;text-align:center;line-height:1.8;'>"&vbcrlf
    Response.Write 			const_copyright&vbcrlf
    Response.Write 			"<br>"&vbcrlf
    Response.Write "		Copyright &copy;2003 <a href='http://99167.jahee.com' target='_blank'><font face=Verdana, Arial, Helvetica, sans-serif style=font-size:10px><b>南昌航院<font color=#CC0000>040942班</font></b></font></a>  Powered by :<a href=http://99167.jahee.com/class2 target=_blank title='班级站'><font color=gray style='text-DECORATION: none'> V2.0</font></a>"&vbcrlf
 	Response.Write " 		页面执行时间:" & fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) & "ms"&vbcrlf
    Response.Write "		</td>"&vbcrlf
  	Response.Write "	</tr>"&vbcrlf
	Response.Write "</table>"&vbcrlf
	Response.Write "</BODY>"&vbcrlf
	Response.Write "</HTML>"&vbcrlf
end function
%>