% 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 %>
![]() |
|
|
|||||||||||
|