<% '========================================================= ' Description:home page ' Version:1.0 ' Date: 2009-04-02 ' Script Written by alvon xu ' Copyright (C) 1998-2009. huizhong All rights reserved. ' Web: http://www.vs99.net ' Email: alvon_xu@hotmail.com '========================================================= 'On Error Resume Next set rs=server.createobject("adodb.recordset") ' 公司简介 li_class =1 sql="select basic_details from sa_basic where id=" & li_class &" " set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then arr_profile=rs.getrows else is_no_profile =true end If ' 特惠精选 li_class =3 sql="select top 1 content from sa_art where class=" & li_class &" order by ID DESC " set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then arr_thjx=rs.getrows else is_no_thjx =true end If ' 最新动态 li_class =2 sql="select top 3 * from sa_art where class=" & li_class &" order by ID DESC " set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then arr_news=rs.getrows else is_no_news =true end If ' 企业员工 li_class =4 sql="select top 6 * from sa_art where class=" & li_class &" order by ID DESC " set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then arr_yz=rs.getrows else is_no_yz =true end If %>