ASP实现播放Flash的例子

ggp asp 2013-06-29 410 次浏览

<!– #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&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=”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=”/edu/UploadPic/2007-12/200712913312635.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>龟头尖锐湿疣上海性病医院尖锐湿疣吃药能好吗

回顶部