set rs = server.CreateObject ("adodb.recordset")
sql="select top 8 * from table order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "<BR><center>没有图片新闻!</center>"
'rs.close:set rs=nothing
'conn.close:set conn=nothing
'Response.end
else
for i=1 to rs.recordcount
pic1=rs("photo")
title1=rs("title")
id=rs("id")
rs.movenext
if rs.eof then exit for
pic2=rs("photo")
title2=rs("title")
id2=rs("id")
rs.movenext
if rs.eof then exit for
pic3=rs("photo")
title3=rs("title")
id3=rs("id")
rs.movenext
if rs.eof then exit for
pic4=rs("photo")
title4=rs("title")
id4=rs("id")
rs.movenext
if rs.eof then exit for
var focus_width=<%=w%>
var focus_height=<%=h%>
var text_height=20
var swf_height = focus_height+text_height
var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5+"|"+imgUrl6
var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5+"|"+imgLink6
var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5+"|"+imgtext6
CType=trim(Request("CType"))
if CType<>"1" then
CType="2"
end if
Sql = "Select Top 5 id,TopUrl,Title From Product_DB Where isTop=1 and (TopUrl<>'' and TopUrl is not null)"
sql=sql &" and BclassID='"& CType &"' ORDER by adddate DESC,id DESC"
Set Rs = Conn.Execute(Sql)
If Not Rs.eof Then
DataArray = Rs.getRows(-1)
Rs.Close
set rs=nothing
Dim i,DataArray,TempPic,TempUrl,TempText
For i = 0 To UBound(DataArray,2)
TempPic = TempPic & http & DataArray(1,i) & "|"
TempUrl = TempUrl & http &"Product/Product.asp?id="&DataArray(0,i) & "|"
TempText = TempText & DataArray(2,i) & "|"
Next
Set DataArray = Nothing
End If
if TempPic="" then TempPic="|"
if TempUrl="" then TempUrl="|"
if TempText="" then TempText="|"
%>
var focus_width=150
var focus_height=110
var text_height=0
var swf_height = focus_height+text_height
var pics="<%=Left(TempPic,Len(TempPic)-1)%>"
var links="<%=Left(TempUrl,Len(TempUrl)-1)%>"
var texts="<%=Left(TempText,Len(TempText)-1)%>"
var focus_width=270;
var focus_height=200;
var text_height=14;
var swf_height = focus_height+text_height;
var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5+"|"+imgUrl6;
var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5+"|"+imgLink6;
var texts=imgText1+"|"+imgText2+"|"+imgText3+"|"+imgText4+"|"+imgText5+"|"+imgText6;