配合焦点图flash使用，原来是取得最新的图片文章，然后把相关信息作为参数传递给flash播放。
focus.asp代码如下：
<!--#Include File="conn.asp" -->
<!--#Include File="include/inc.asp"-->
<%
'首页焦点页面
'by winston
'2010/05/15
Dim QueryArray
Dim FocusLinks,FocusPcis,FocusText
Dim PageNum,PageSize,PageCount,ReCount,Column
Dim i
PageNum=EA_Pub.SafeRequest(1,"page",0,1,0)
PageSize=10
ReCount=EA_DBO.Get_Article_ImgStat()(0,0)
PageCount=EA_Pub.Stat_Page_Total(PageSize,ReCount)
If PageNum>PageCount And PageCount>0 Then PageNum=PageCount
If PageCount>0 Then
QueryArray=EA_DBO.Get_Article_ImgList(PageNum,PageSize)
For i=0 To UBound(QueryArray,2)
If 0=i Then
FocusLinks= EA_Pub.Cov_ArticlePath(QueryArray(0,i),QueryArray(5,i),EA_Pub.SysInfo(18)) & ""
FocusPcis= QueryArray(2,i) & ""
FocusText=EA_Pub.Add_ArticleColor(QueryArray(3,i),QueryArray(1,i))& ""
Else
FocusLinks=FocusLinks & "|"& EA_Pub.Cov_ArticlePath(QueryArray(0,i),QueryArray(5,i),EA_Pub.SysInfo(18))
FocusPcis=FocusPcis & "|"& QueryArray(2,i)
FocusText=FocusText & "|"& EA_Pub.Add_ArticleColor(QueryArray(3,i),QueryArray(1,i))
End If
Next
Else
FocusLinks=""
FocusPcis=""
FocusText=""
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>flash</TITLE>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.3676" name=GENERATOR>
</HEAD>
<BODY style="BACKGROUND: none transparent scroll repeat 0% 0%; MARGIN: 0px" mce_style="BACKGROUND: none transparent scroll repeat 0% 0%; MARGIN: 0px
在做Flash应用时，有时可能会遇到需要使用服务器时间的情况，例如应用程序中显示当前系统时间、定时提醒等功能。使用new Date()创建的是客户端的时间，这并不是我们需要的，客户端时间很容易被用户更改，我们需要统一的服务器时间。
使用Flash与后台通信，我想您应该已经应用到您的项目中，不管使用哪种方式，都可以把服务 ......
