用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="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>