按行业分类
<% set rs=server.createobject("adodb.recordset") sql="select * from bigclass where bigclass<>'' order by id asc" rs.open sql,conn,1,1 if rs.eof or rs.bof then response.write"" end if for i=1 to rs.recordcount %> <% rs.movenext next rs.close %>
所有行业
暂时没有数据!
"><%=cutstr(rs("bigclass"),30)%>
  广告专区
<% dim bigclass bigclass=fstr(request("bigclass")) if bigclass="" then sql="Select * from [info] where vip2=1 Order by vip desc,id asc" else sql="Select * from [info] where bigclass='"&bigclass&"' and vip2=1 Order by vip desc,id asc" end if %> <%if not (rs.bof or rs.eof) then i=1 do until rs.eof or i>uspage %> <% if i mod 2 =0 then response.write"" end if i=i+1 rs.movenext loop end if %>
<% dim ifsite ifsite=rs("site") if ifsite="http://" then response.write"" else %> " target="_blank"> <%end if%> <% if rs("companypic")<>"" then %>" width="120" height="90" border="0"> <%else%> <%end if%> 名称:<%=trim(rs("company"))%>
地址:<%=cutstr(rs("address"),32)%>
电话:<%=trim(rs("phone"))%>
网址:<% if ifsite="http://" then response.write"http://"&Request.ServerVariables("HTTP_HOST")&"/"&rs("id")&".html" else %> " target="_blank"><%=trim(rs("site"))%> <% end if %>

<%=Spage(geturl,allpage,10)%>
<% rs.close Set rs=nothing%>