配合焦点图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
处境堪忧的Adobe Flash将面临另一次打击，在线文档最终也开始表明立场。目前网上大部分文档（PDF、Word文档、幻灯片）只能在Flash播放器内部播放，无法显 示为完整的网页。明天在线文档分享网站Scribd上的数百万份文档不再使 用Flash播放，而是将转化为本地HTML5网页。这些文档不仅可以在iPad上完美显示 ......
今天更新我们公司的网站首页遇到了点问题，新装的dreamweaver cs3 做好的页面上传后发现嵌入的*.swf文件无法显示（感觉就像不存在一样）。我排除了所有可能出现问题的地方（比如链接地址、相对和绝对路径、文件名等），最后多方查找终于发现，原来是dreamweaver cs3 的版本问题。这还是我的同事从百度上搜到的解决办法。
� ......
