ASP实现播放Flash的例子<!-- #include file = "DB.fun" --><%mingcheng=request("mingcheng")sec=Request("score")session("mingcheng")=mingchengsession("sec")=secIf session("ID")="" then response.redirect "qzhuce.asp"response.endEnd Ifdim time1sec=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.closeif cint(old) <= cint(sec) and cint(old)<>0 thenSQL1="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 ifSet 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="search_score.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>
ASP实现播放Flash的例子
最新推荐文章于 2012-10-23 17:07:00 发布