当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实现播放Flash的例子

ASP
生成像资源管理器一样的树形目录
将连接数据库的代码隐藏在DLL中
ASP中从数据库读取二进制文件数据代码
asp查询xml的代码,实现了无刷新、模糊查询功能
一个asp函数, 解决SQL Injection漏洞
在ASP中利用COM组件开发Web应用程序
关于如何利用COM+,来提高ASP执行权限的问题!
升级MD5.ASP,打造完全动态不重复的安全加密代码
ASP安全检测与过滤函数SafeCheck
在ASP中,用JScript脚本实现分页的另类办法
查看服务器Application/Session变量工具
自己写的一个简单ASP调用存储过程查询
ASP登陆验证页应做的安全问题
使用ASP与javascript配合实现多个复选框数据关联显示
Windows 2003下不注册组件用ASP发邮件
数据分页方法新思路,速度非常快!
ASP程序中同一个用户不允许同时登陆两次
分栏显示记录集的表格演示,并实现了分页
关于Adodb.Stream的写数据库数据到客户端文件的实践
将ASP的Debug变得简单的两个函数

ASP实现播放Flash的例子


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 118 ::
收藏到网摘: n/a

  <!-- #include file = "DB.fun" -->
<%
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")%>&amp;score=<%=sec%>">
<param name="Src" value="/mms/search_score.swf?user=<%=session("id")%>&amp;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="/upload/tech/20091103/20091103102356_a532400ed62e772b9dc0b86f46e583ff.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>