ASP实现播放Flash的例子
2018-09-06 11:57
<!-- #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
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
%>
<OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codebase=
<embed src=/edu/UploadPic/2007-12/200712913312635.swf quality=high bgcolor=#FFFFFF WIDTH=550 HEIGHT=400 YPE=application/x-shockwave-flash PLUGINSPAGE=