资源大全 | 神秘文化 | 在线翻译 | QQ专区 | 视频教程 | 彩信频道 | 搜索引擎 | BT下载 |  | 网站地图
设为首页
加入收藏
联系站长
您现在的位置: 一百网络 >> ASP编程 >> ASP应用 >> 文章正文
最近更新
普通文章 良精多语言多风格网站管
普通文章 ASP操作Excel技术总结
普通文章 多个绑定多域名的ASP代码
推荐文章 不用WinRar将网络空间上
推荐文章 ASP按钮菜单制作实例
推荐文章 ASP网页模板的应用
普通文章 使用ASP/VBS 调用Google
推荐文章 在线实时开通WEB及FTP源
普通文章 不用组件实现上载功能(
普通文章 关于流行开发工具(Java
推荐文章
推荐文章 不用WinRar将网络空间上
推荐文章 ASP按钮菜单制作实例
推荐文章 ASP网页模板的应用
推荐文章 在线实时开通WEB及FTP源
推荐文章 ASP实现播放Flash的例子
推荐文章 论坛树状记录表的堆栈展
推荐文章 关于翻页的函数
推荐文章 二文件上传,才30行代码
推荐文章 基于ACCESS数据库的纯as
推荐文章 无组件文件上传代码实例
ASP实现播放Flash的例子

文章作者:佚名 录入时间:2006-5-31 来源:不详
网站声明:本站的文章除部分特别声明禁止转载的专稿外,可以自由转载.但请务必注明出处和原始作者,文章版权归本网站与文章作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。


<!-- #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>
       

  • 上一篇文章:

  • 下一篇文章:
  •     查找更多“ASP实现播放Flash的例子”的内容  
    相关连接
  • 奇妙的文件系统对象组件

  • 读取目录下的文件得到一个数组

  • ASP中FSO的神奇功能 - 简介

  • ASP中FSO的神奇功能 - 写文件

  • ASP中FSO的神奇功能 - 文件读取