用ASP实现播放Flash的例子

2016-01-29 19:37 82 1 收藏

用ASP实现播放Flash的例子,用ASP实现播放Flash的例子

【 tulaoshi.com - ASP 】

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

来源:http://www.tulaoshi.com/n/20160129/1509814.html

延伸阅读
标签: ASP
  <% '***** BEGIN FUNCTION AREA ***** ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working tex...
标签: Delphi
如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法 修改TWinControl,让Handle可写。 建立TWinControl子类,并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二...
标签: ASP
       花君      下面是用ASP+来纺写的上载例子!!在ASP中我们就才上载有许多组件:      <html>      <script language="VB" runat=server>   'VB代码   Sub UploadBtn_Click(Sender as Object, E as EventArg...
标签: ASP
  编者(icech)按:这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像,根据这个想法,我们还可以抓取很多其他网站的信息,如天气预报、新闻等等。 <script language="javascript" <!-- function getFaceImg(QQcode) { var Re=new RegExp("^[1-9]{1}\d+$","g"); if (!QQc...
标签: Web开发
传统的网页BBS大多是采用CGI模式实现的,它的实现要求编程者既要掌握编程语言如Perl或C等,又要了解关于CGI模式的各项技术内容,因此要制作自己的网页BBS确实困难不小。ASP(Active Server Pages 动态服务器主页)的出现,使我们眼前一亮,能不能利用ASP实现网页BBS呢?回答当然是肯定的。ASP的诱人之处就在于它提供了一种简单易学的脚本,并带...

经验教程

323

收藏

38
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部