设为首页
联系我们
加入收藏
| 网络工具 | 系统工具 | 应用软件 | 多媒体类 | 联络聊天 | 行业软件 | 图形图像 | 安全相关 | 编程开发 | 教育教学 | 游戏娱乐 |
| 程序源码 | ASP 源码 | CGI 源码 | PHP 源码 | 驱动下载 | 字体下载 | 素材下载 | 桌面大全 | 闪客天地 | 外挂插件 | 考题下载 |

站内搜索:

您的位置:首页-> 资讯中心-> 技术开发-> ASP 学院-> ASP实例-> ASP实现播放Flash的例子

ASP实例

ASP教程
ASP文摘
ASP实例
ASP FAQ
ASP安全
ASP组件
ASP其它

本类阅读TOP10

·一个功能完善的专栏管理的程序(二)
·ASP如何获取真实IP地址
·披著羊皮的大野狼 - Session
·用VB编写ActiveX DLL实现ASP编程
·开辟一条自由ASP快车道
·ASP编写完整的一个IP所在地搜索类
·插入Access记录后马上得到自动编号值的方法
·asp+版本简单的留言板的制作(一)
·一个简单的域名自动转向源代码
·用ASP发送邮件

精品推荐

ASP实现播放Flash的例子

作者:未知 来源:未知 加入时间:2004-12-1

<!-- #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")%>&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>

(出处:不详 )





相关文章
相关软件