%
dim rs,cn,sqlstr
dim company_count,product_count,business_count,order_count,xunjia_count
set cn=Server.CreateObject("Adodb.Connection")
set rs=Server.CreateObject("Adodb.RecordSet")
cn.open Session("connstr")
rs.CursorType =0
rs.LockType =3
rs.ActiveConnection=cn
sqlstr="select count(*) from company_info where sign=0 and if_taoci_net_user='1'"
rs.source=sqlstr
rs.open
company_count=rs(0)
rs.close
sqlstr="select count(*) from t_product_info where display='1' and type1='27' "
rs.source=sqlstr
rs.open
product_count=rs(0)
rs.close
sqlstr="select count(*) from t_business_chance where remark1=0 and vocation_id=27"
rs.source=sqlstr
rs.open
business_count=rs(0)
rs.close
sqlstr="select count(*) from order_form where if_taocinet_user='1'"
'sqlstr="select count(*) from order_form"
rs.source=sqlstr
rs.open
order_count=rs(0)
rs.close
sqlstr="select count(*) from t_xunjia_form where if_taoci_net_user=1"
rs.source=sqlstr
rs.open
xunjia_count=rs(0)
rs.close
%>