<%=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)%>
 
更多信息 更多信息 更多信息 更多信息