ASP实现播放Flash的例子
程序员文章站
2022-03-26 08:57:55
<%mingcheng=request("mingcheng")sec=request("score")sessi...
<!-- #include file = "db.fun" -->
<%
mingcheng=request("mingcheng")
sec=request("score")
session("mingcheng")=mingcheng
session("sec")=sec
if session("id")="" then
response.redirect "qzhuce."
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&ms</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="https://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="/edu/uploadpic/2007-12/200712913312635.swf"" quality="high" bgcolor="#ffffff" width="550" height="400" ype="application/x-shockwave-flash" pluginspage="https://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash">
</object>
</body>
</html>
<%
mingcheng=request("mingcheng")
sec=request("score")
session("mingcheng")=mingcheng
session("sec")=sec
if session("id")="" then
response.redirect "qzhuce."
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&ms</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="https://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="/edu/uploadpic/2007-12/200712913312635.swf"" quality="high" bgcolor="#ffffff" width="550" height="400" ype="application/x-shockwave-flash" pluginspage="https://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveflash">
</object>
</body>
</html>
上一篇： 详解JavaScript的定时器