%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=1"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="198">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=3"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="65">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=4"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="65">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=5"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="65">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=6"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="65">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from GuangGao where id=7"
rs_news.open sqltext4,conn,1,1 %>
<%if rs_news.bof and rs_news.eof then %>
<%
else
if rs_news("LogoUrl")<>"" then
%>
" target='blank'>
" border="0" width="210" height="65">
<%
else
%>
<%
end if
end if
rs_news.close
%>
<% 'call ShowFriendLinks(2,16,8,2) '文字链接
call ShowFriendLinks(1,12,2,2) '图片链接
%>
<% If IsQQ="Yes" Then %>
<% end if %>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 8 * from news where BigClassName='市场新闻' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='行业动态' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='会展信息' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='政策法规' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news where BigClassName='农技推广' order by id desc"
rs_news.open sqltext4,conn,1,1
%>