<% Dim rs,sql,id,userid,C_site dim ars,brs,crs,url Id=Request.QueryString("Id") Set rs=Server.CreateObject("Adodb.recordset") '企业信息(Ars) sql="select id,C_Name,C_Userid,C_PurveyProducts,C_hits,C_Cy,C_Mode,C_Turnover,C_PeopleCount,C_CreateTime,C_RegFund,C_adder,C_xingming,C_province,C_city,C_tel,C_fax,C_email,C_Url,C_QQ,C_Unit,C_site,C_info,C_License from R_company where id="&Id&" and C_unit>0" rs.open sql,conn,2,3 if rs.eof then rs.close:set rs=nothing conn.close:set conn=nothing response.write("您要找的文件已经被删除或转移!") response.End() else rs("C_hits")=rs("C_hits")+1 rs.update ars=rs.getrows(-1) end if rs.close 'if ars(20,0)="6" then 'set rs=nothing 'conn.close:set conn=nothing 'response.Redirect("http://"&ars(21,0)&".c-ps.net") 'response.End() 'end if '产品信息5条(Brs) sql="select TOP 10 id,I_title,I_Pic,i_CategoryID from R_info with(nolock) where I_userid='"&ars(2,0)&"' and I_unit=1 order by I_order desc,I_FbTime desc" rs.open sql,conn,1,1 if not rs.eof then brs=rs.getrows(-1) end if rs.close '企业资讯10条(Crs) sql="select top 10 id,T_title,T_url from R_trade with(nolock) where T_Userid='"&ars(2,0)&"' order by id desc" rs.open sql,conn,1,1 if not rs.eof then crs=rs.getrows(-1) end if '关闭记录集,数据库 rs.close:set rs=nothing conn.close:set conn=nothing Private function get_key(stra) dim str,key,i str=stra key="针孔,窃听,偷拍,作弊,假证,隐蔽,信号屏蔽,反屏蔽,泪剂,电警棍,警棍,电棍,伸缩棍,甩棍,防身器材,警用棍,电击棒,电警棍,催泪瓦斯,防身器,电警棒,电棍,防狼器,防身喷雾剂,电击器,电击枪,手枪,警用,手铐" key=split(key,",") if str<>"" then for i=0 to ubound(key) str=replace(str,key(i),"**") next end if get_key=str end function %> <%=ars(1,0)%>-企业大全-中国安防网
<% call cps_member(ars(1,0),ars(23,0),ars(20,0),"http://"&ars(21,0)&".c-ps.net") %>
首页 公司介绍 企业资讯 所有产品 联系我们
公司介绍

<% dim C_info if ars(22,0) <> "" then C_info=get_key(ars(22,0)) Response.Write(left(C_info,200)&"...") else Response.Write("暂无填写企业信息!") end if %>[详细]
供应产品
    <% if isarray(brs) then for i=0 to ubound(brs,2) if cint(brs(3,i))>0 then url="http://www.c-ps.net/info/"& brs(0,i) &".html" else url="http://b2b.c-ps.net/"& brs(0,i) &"_detail.html" end if %>
  • <%=f_str(brs(1,i))%>
  • <% next else response.Write("暂无产品信息") end if %>
更多产品信息>>
企业资讯