<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function %> <% title=SiteTitle SiteContent=SiteTitle %>
 
<% call ShowVote() %>
<% call ShowFriendLinks(2,6,6,3) %>
 
 
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select top " & New_count & " * from news order by id desc" rs_news.open sqltext4,conn,1,1 %> <%i=0 do while not rs_news.eof%> <%rs_news.movenext i=i+1 if i=8 then exit do loop rs_news.close %>
<% call ShowNewBBS() %>
<% set rsCompVisualize=server.createobject("adodb.recordset") rsCompVisualize.open "select top 1 * from CompVisualize where ishome=True order by adddate desc",conn,1,1%> <% rsCompVisualize.close rsCompVisualize.open "select * from Aboutus where Title='企业简介'",conn,1,1 Response.Write(left(rsCompVisualize("content"),360)&"...")%> <% rsCompVisualize.close set rsCompVisualize=nothing %>