
<%
psw=request("id")
   dim conn
   dim connstr
   'on error resume next
   connstr="DBQ="+server.mappath("music.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr

sql = "select * from data where  pass='"&psw&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
picture=rs("picture")
%>




<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收听歌曲</title>
<link rel="stylesheet" href="style.css">

<BGSOUND SRC=<%=rs("midifile")%> LOOP=-1>

</head>


<body bgcolor=#9E9E9E oncontextmenu="return false;" ondragstart="return false;" onselectstart="return false;">
<table border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td width="400" height="242" bgcolor="#9AA46A"> 
      <%if right(   trim(picture),3  )="swf" then%>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
 id=Movie1 width=400 height=300 vspace="0" hspace="0" border="0" align="middle">
        <param name=movie value=<%=picture%>>
        <param name=quality value=high>
        <param name=bgcolor value=#FFFFFF>
        <embed src=<%=picture%> quality="high" bgcolor="#FFFFFF" type="application/x-shockwave-flash">
        </embed> 
      </object> 
      <%else%>
      <object id=video1 classid=" clasid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" 
      width=400 height=300 align="middle">
        <param name="_ExtentX" value="7938">
        <param name="_ExtentY" value="2646">
        <param name="AUTOSTART" value="1">
        <param name="SHUFFLE" value="0">
        <param name="PREFETCH" value="0">
        <param name="NOLABELS" value="0">
        <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">
        <param name="CONTROLS" value="ControlPanel,StatusPanel">
        <param name="SetWantErrors" value="true">
        <param name=movie value=<%=picture%>>
        <embed        
                 src=<%=picture%>         
               type="audio/x-pn-realaudio-plugin" console="chip1"                
         controls="imagewindow" width=400 height=300 autostart=true align="middle">
        </embed> 
      </object><br>
      <%end if%>
      <b><%=rs("titletext")%></b> <b><%=rs("toname")%>：</b>您好，这是<%=rs("myname")%>送给你的一首歌，希望你喜欢。<br>
      <b>＝＝　情感寄语　＝＝</b> <font color="#CCCCCC" style='FONT-SIZE: 9pt'><br>
      </font><font style='FONT-SIZE: 9pt'><%=rs("message")%> <br>
      </font></td>
  </tr>
</table>
<p align="center"><a href="http://www.mlxh.com/pgjq.asp">我也要回送一首歌给<%=rs("myname")%></a></p>

</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</html>
