用ASP实现播放Flash的例子

&lt;!-- #include file = &quot;DB.fun&quot; --&gt;<br>
&lt;%<br>
mingcheng=request(&quot;mingcheng&quot;)<br>
sec=Request(&quot;score&quot;)<br>
session(&quot;mingcheng&quot;)=mingcheng<br>
session(&quot;sec&quot;)=sec<br>
If session(&quot;ID&quot;)=&quot;&quot; then <br>
&nbsp;&nbsp;&nbsp;response.redirect &quot;qzhuce.asp&quot;<br>
&nbsp;&nbsp;&nbsp;response.end<br>
End If<br>
dim time1<br>
sec=Request(&quot;score&quot;)<br>
Set conn = GetMdbConnection(&quot;score.mdb&quot;)<br>
time1=Cstr(date)<br>
SQL2=&quot;select * from mmd where nickname='&quot;&session(&quot;id&quot;)&&quot;'&quot;<br>
Set zy2 = Conn.Execute( SQL2 ) <br>
old = zy2(&quot;mgdf&quot;)<br>
'response.write old<br>
'zy2.close<br>
if cint(old) &lt;= cint(sec) and cint(old)&lt;&gt;0 then<br>
&nbsp;&nbsp;&nbsp;&nbsp;SQL1=&quot;update mmd set mgdf =&quot;&old&&quot;,time1='&quot;&time1&&quot;' where nickname ='&quot;&session(&quot;id&quot;)&&quot;'&quot;<br>
else&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;SQL1=&quot;update mmd set mgdf =&quot;&sec&&quot;,time1='&quot;&time1&&quot;' where nickname ='&quot;&session(&quot;id&quot;)&&quot;'&quot;<br>
end if<br>
Set zy1 = Conn.Execute( SQL1 )<br>
'zy1.close<br>
%&gt;<br>
&lt;HTML&gt;<br>
&lt;HEAD&gt;<br>
&lt;TITLE&gt; m&m's&lt;/TITLE&gt;<br>
&lt;META HTTP-EQUIV=&quot;Content-Type&quot; CONTENT=&quot;text/html; charset=gb2312&quot; &gt;<br>
&lt;/HEAD&gt;<br>
&lt;BODY BGCOLOR=#FFFFFF marginwidth=0 marginheight=0 leftmargin=0 topmargin=0&gt;<br>
&lt;OBJECT classid=&quot;clsid:D27CDB6E-AE6D-11cf-96B8-444553540000&quot;<br>
codebase=&quot;http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0&quot;<br>
WIDTH=550 HEIGHT=400&gt;<br>
&lt;param name=&quot;_cx&quot; value=&quot;14552&quot;&gt;<br>
&lt;param name=&quot;_cy&quot; value=&quot;10583&quot;&gt;<br>
&lt;param name=&quot;Movie&quot; value=&quot;/mms/search_score.swf?user=&lt;%=session(&quot;id&quot;)%&gt;&amp;score=&lt;%=sec%&gt;&quot;&gt;<br>
&lt;param name=&quot;Src&quot; value=&quot;/mms/search_score.swf?user=&lt;%=session(&quot;id&quot;)%&gt;&amp;score=&lt;%=sec%&gt;&quot;&gt;<br>
&lt;param name=&quot;WMode&quot; value=&quot;Window&quot;&gt;<br>
&lt;param name=&quot;Play&quot; value=&quot;0&quot;&gt;<br>
&lt;param name=&quot;Loop&quot; value=&quot;-1&quot;&gt;<br>
&lt;param name=&quot;Quality&quot; value=&quot;High&quot;&gt;<br>
&lt;param name=&quot;SAlign&quot; value&gt;<br>
&lt;param name=&quot;Menu&quot; value=&quot;-1&quot;&gt;<br>
&lt;param name=&quot;Base&quot; value&gt;<br>
&lt;param name=&quot;Scale&quot; value=&quot;ShowAll&quot;&gt;<br>
&lt;param name=&quot;DeviceFont&quot; value=&quot;0&quot;&gt;<br>
&lt;param name=&quot;EmbedMovie&quot; value=&quot;0&quot;&gt;<br>
&lt;param name=&quot;BGColor&quot; value&gt;<br>
&lt;param name=&quot;SWRemote&quot; value&gt;&lt;embed src=&quot;search_score.swf&quot; quality=&quot;high&quot; bgcolor=&quot;#FFFFFF&quot; WIDTH=&quot;550&quot; HEIGHT=&quot;400&quot; YPE=&quot;application/x-shockwave-flash&quot; PLUGINSPAGE=&quot;http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash&quot;&gt;<br>
&lt;/OBJECT&gt;<br>
&lt;/body&gt;<br>
&lt;/html&gt;<br>

300*300
  • 没有相关文章
  • 没有评论
 文章首页关于迷茫时代关于我写意人生
版权所有:迷茫时代 All rights reserved   
执行时间:0.00429 秒