<% flag="尚未处理" set rs=server.createobject("adodb.recordset") sqltext="select * from PE_Company,PE_User where PE_Company.CompanyID = PE_User.CompanyID and (PE_User.GroupID=2 or PE_User.GroupID=3) order by PE_User.CompanyID desc" rs.open sqltext,mconn,1,1 dim PerPage PerPage=29 If rs.eof and rs.bof then response.write "

还没任何企业加入

" response.end End if text="0123456789" Rs.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list If Rs.recordcount > PerPage then end if Sub list()%>
  导航:枣网>>企业名片>>诚信企业

 1、免费注册:填写您的企业信息资料,资料完善后便可发布。
 2、发布您的企业时尽可能的完善相关资料,有利于综合宣传您的企业。
 3、在注册完您的企业时,及时的发布供求信息,我们的工作人员会更积极的审核您的企业名片;
 4、您可以随时在会员中心更新您的资料;
 5、推广方案:对所发布的信息同时发布在“枣网”相关栏目中。
 6、享受更多服务,请注册为收费会员。

<%call honest()%>

诚信企业