ASP实现播放Flash的例子
2016-01-29 17:24
ASP实现播放Flash的例子,ASP实现播放Flash的例子
<%
mingcheng=request("mingcheng")
sec=Request("score")
session("mingcheng")=mingcheng
session("sec")=sec
If session("ID")="" then
response.redirect "qzhuce.asp"
response.end
End If
dim time1
sec=Request("score")
Set conn = GetMdbConnection("score.mdb")
time1=Cstr(date)
SQL2="select * from mmd where nickname='"&session("id")&"'"
Set zy2 = Conn.Execute( SQL2 )
old = zy2("mgdf")
'response.write old
'zy2.close
if cint(old) <= cint(sec) and cint(old)<0 then
SQL1="update mmd set mgdf ="&old&",time1='"&time1&"' where nickname ='"&session("id")&"'"
else
SQL1="update mmd set mgdf ="&sec&",time1='"&time1&"' where nickname ='"&session("id")&"'"
end if
Set zy1 = Conn.Execute( SQL1 )
'zy1.close
%
<HTML
<HEAD
<TITLE m&m's</TITLE
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"
</HEAD
<BODY BGCOLOR=#FFFFFF marginwidth=0 marginheight=0 leftmargin=0 topmargin=0
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
WIDTH=550 HEIGHT=400
<param name="_cx" value="14552"
<param name="_cy" value="10583"
<param name="Movie" value="/mms/search_score.swf?user=<%=session("id")%&score=<%=sec%"
<param name="Src" value="/mms/search_score.swf?user=<%=session("id")%&score=<%=sec%"
<param name="WMode" value="Window"
<param name="Play" value="0"
<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="Scale" value="ShowAll"
<param name="DeviceFont" value="0"
<param name="EmbedMovie" value="0"
<param name="BGColor" value
<param name="SWRemote" value<embed src="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/0512100114051576.swf"" quality="high" bgcolor="#FFFFFF" WIDTH="550" HEIGHT="400" YPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"
</OBJECT
</body
</html
