onlineplay.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本
set rs=server.CreateObject("ADODB.Recordset")
SQL="select * from onlinePlay Order By PlayFileData Desc"
rs.open SQL,conn,1,1

if not rs.eof then
  set rsTemp=server.CreateObject("ADODB.Recordset")
  tempSQL="select * from flash where flashId="&rs("PlayFileID")
  rsTemp.open tempSQL,conn,1,1

  '发送数据到FLASH
  rs.MoveFirst
  i=1
  do while i<2
  
  PlayInfo = "<FONT COLOR='#FFFF00'>"&rs("HaoYouName")&"</FONT>你好！<br>你的好友:<FONT COLOR='#FFFF00'>"&rs("HYname")&"</FONT><br>祝你:<FONT COLOR='#FFFF00'>"&rs("happy")&"</FONT><br>特点播:<FONT COLOR='#FFFF00'>"&rsTemp("flashTitle")&"</FONT>以供欣赏。"
  Response.Write("PlayInfo="& PlayInfo &"&")
  Response.Write("id="&rs("PlayFileID")&"&")
  Response.Write("onlinePlay=1")
  
  i=i+1
  rs.MoveNext
  if rs.eof then exit do end if
  loop
else
  '发送没有数据
  Response.Write("onlinePlay=0&")
end if
rs.close
set rs=Nothing
CloseDataConn()
%>