<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%>
会员登陆
<% call ShowUserLogin() %>
产品列表
<% call ShowSmallClass_Tree() %>
站内调查
<% call ShowVote() %>
友情连接
<% set rs_links=server.createobject("adodb.recordset") sqltext4="select top 10 * from links order by id desc" rs_links.open sqltext4,conn,1,1 %> <%i=0 do while not rs_links.eof%> <% rs_links.movenext i=i+1 if i=10 then exit do loop rs_links.close %>
 企业新闻
 业内资讯
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select top 10 * from Conews 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=10 then exit do loop rs_news.close %>
"> <%=cutstr(rs_news("title"),18)%><%if rs_news("time")>date()-2 then%><%else%><%end if%>
<% set rs_news=server.createobject("adodb.recordset") sqltext4="select top 10 * from Yenews 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=10 then exit do loop rs_news.close %>
"> <%=cutstr(rs_news("title"),18)%><%if rs_news("time")>date()-2 then%><%else%><%end if%>
 
<% call ShowSearch(2) %>
<% set rs_Product=server.createobject("adodb.recordset") sqltext="select top 10 * from Product where Passed=True And Elite=True order by UpdateTime desc" rs_Product.open sqltext,conn,1,1 %>
<%row_count=1 %> <% Do While Not rs_Product.EOF%> <%if row_count mod 2 <>0 then%> <%end if%> <% if row_count mod 2 =0 then%> <%end if%> <% rs_Product.MoveNext row_count=row_count+1 Loop rs_Product.close %>
产品名称: "><%=rs_Product("Title")%>
产品编号: <%=rs_Product("Product_Id")%>
产品信息: >