<% dim rs dim sql,area2 dim count set Objrs=Conn.execute("select * from area order by id desc") area2=Objrs.getrows() Objrs.close Set Objrs=nothing set rs=server.createobject("adodb.recordset") sql = "select * from [city] order by ID desc" rs.open sql,conn,1,1 %> 深圳珠宝网-->企业黄页
 
当前类别: <%if Request("classname")<>"" then Response.Write(""&Request("classname")&"")%>  
公司列表
<% Dim ors,classname,sendtype Set ors=new Cls_ShowoPage if Request("classname")<>"" then if isnumeric(Request("classname")) then classname=saferequest("classname",1) else classname=saferequest("classname",0) end if sendtype=saferequest("SendType",1) end if With ors .Conn=conn .DbType="MSSQL" .RecType=0 .RecSql=0 .RecTerm=2 .CookieName="recsql" .Order=1 .PageSize=12 .JsUrl="Inc/" if Request("classname")<>"" then select case sendtype case 1 .Sql="id,name,synopsis,create_time$company$charindex('"&classname&"',type)>0 and Company_Check=1$id$id" case 2 .Sql="id,name,synopsis,create_time$company$area='"&classname&"' and Company_Check=1$id$id" case 3 .Sql="id,name,synopsis,create_time$company$charindex('"&classname&"',brand)>0 and Company_Check=1$id$id" case 4 .Sql="id,name,synopsis,create_time$company$Industry='"&classname&"' and Company_Check=1$id$id" case 5 .Sql="id,name,synopsis,create_time$company$Company_Level=1 and Company_Check=1$id$id" end select else .Sql="id,name,synopsis,create_time$company$Company_Check=1$id$id" end if End With iRecCount=ors.RecCount() iRs=ors.ResultSet() If iRecCount<1 Then %> <% Else For i=0 To Ubound(iRs,2)%> <% Next End If %>
暂时没有企业加入......
<%=left(iRs(1,i),30)%> <%=iRs(3,i)%>
<%=left(iRs(2,i),120)%>
<%ors.ShowPage()%>
<% iRs=NULL ors=NULL Set ors=NoThing %>