<%=w78_gonggao%>

<%=w78_Flash()%>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 7 * from news where ssfl=4 order by data desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无信息!") end if while not ssfl.eof %>

" title="<%=ssfl("title") %>"><%=InterceptString(ssfl("title"),44)%>

[<%=year(ssfl("data")) %>-<%=month(ssfl("data")) %>-<%=day(ssfl("data")) %>]

<% ssfl.movenext wend %> <% ssfl.close set ssfl=nothing %>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 1 * from Topics order by id desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无专题信息 !") end if while not ssfl.eof dim url if IsNull(ssfl("url")) or trim(ssfl("url")&"")="" then url="Topics.asp?id="&ssfl("id")&"" else url=""&ssfl("url")&"" end if %> " >

" width="155" height="100"/> <% ssfl.movenext wend %>

<% dim ary(11) set rs=server.createobject("adodb.recordset") exec="select * from pic where id=1 order by id desc " rs.open exec,conn,1,1 ary(0)=""&rs("img")&"" ary(1)=""&rs("link")&"" ary(2)=""&rs("img_X")&"" rs.close set rs=nothing set rs=server.createobject("adodb.recordset") exec="select * from pic where id=2 order by id desc " rs.open exec,conn,1,1 ary(3)=""&rs("img")&"" ary(4)=""&rs("link")&"" ary(5)=""&rs("img_X")&"" rs.close set rs=nothing set rs=server.createobject("adodb.recordset") exec="select * from pic where id=3 order by id desc " rs.open exec,conn,1,1 ary(6)=""&rs("img")&"" ary(7)=""&rs("link")&"" ary(8)=""&rs("img_X")&"" rs.close set rs=nothing set rs=server.createobject("adodb.recordset") exec="select * from pic where id=4 order by id desc " rs.open exec,conn,1,1 ary(9)=""&rs("img")&"" ary(10)=""&rs("link")&"" ary(11)=""&rs("img_X")&"" rs.close set rs=nothing %>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 8 * from news where ssfl=1 order by id desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无信息!") end if while not ssfl.eof %>

" title="<%=ssfl("title") %>"><%=InterceptString(ssfl("title"),30)%>

[<%=year(ssfl("data")) %>-<%=month(ssfl("data")) %>-<%=day(ssfl("data")) %>]

<% ssfl.movenext wend %> <% ssfl.close set ssfl=nothing %>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 8 * from news where ssfl=5 order by id desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无信息!") end if while not ssfl.eof %>

" title="<%=ssfl("title") %>"><%=InterceptString(ssfl("title"),45)%>

<% ssfl.movenext wend %> <% ssfl.close set ssfl=nothing %>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 8 * from news where ssfl=7 order by id desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无信息!") end if while not ssfl.eof %>

" title="<%=ssfl("title") %>"><%=InterceptString(ssfl("title"),45)%>

<% ssfl.movenext wend %> <% ssfl.close set ssfl=nothing %>

<% set ssfl=server.CreateObject("adodb.recordset") ssfl.open "select top 8 * from news where ssfl=6 order by id desc",conn,1,1 if ssfl.eof and ssfl.bof then response.Write(" 暂无信息!") end if while not ssfl.eof %>

" title="<%=ssfl("title") %>"><%=InterceptString(ssfl("title"),45)%>

<% ssfl.movenext wend %> <% ssfl.close set ssfl=nothing %>

<% set tuijian=server.createobject("adodb.recordset") exec="select top "&config("sytuijianproducts")&" * from [products] where tuijian=1 order by id desc " tuijian.open exec,conn,1,1 if tuijian.eof and tuijian.bof then response.Write(" 暂无风光图片 !") end if %>

<% dim ii ii=1 do while not tuijian.eof %> <% if ii mod 10 =0 then response.Write "" end if ii=ii+1 tuijian.movenext loop tuijian.close set tuijian=nothing %>

" class="img" title="<%=tuijian("title")%>">

" height="115" hspace="5" />

" title="<%=tuijian("title")%>"><%=InterceptString(tuijian("title"),24)%>