<% if trim(Request("page"))<>"" then vary=trim(Request("page")) for j=1 to len(vary) if instr("0123456789",mid(vary,j,1))<=0 then found_err=true err_mes="请正确输入要跳到的页数！" exit for end if next if found_err=true then Response.Write ""&chr(13) page=1 Else Page = CLng(Request("Page")) end if else Page=1 end if sea=trim(Request.Form ("sea")) xl=trim(Request.Form ("xl")) If sea<>"" then query_str=query_str&" and ggxh like '%"&sea&"%'" page=1 End if If xl<>"" then query_str=query_str&" and xl='"&xl&"'" page=1 End if If sea="" and xl="" then query_str=trim(Request.QueryString("query_str")) End if sql="select * from production where 1=1" sql=sql&query_str&" and dl='0' order by xl" set rs=server.CreateObject ("adodb.recordset") rs.Open sql,conn,1,1%>
现在位置：空调简介

 
 
 
 
公司名称:
山东海信商业有限公司
联系地址:
山东省济南市山大路185号
服务电话:0531-6553339
传真:0531-6553318
E_mail:
Fanke.No1@163.com

 
 

 

 
空调查询
   
 
 

<%If not rs.EOF then rs.PageSize = 10 If Page < 1 Then Page = 1 If Page >rs.PageCount Then Page =rs.PageCount If(page>0) Then rs.AbsolutePage = Page End if For iPage = 1 To rs.PageSize If rs.EOF Then Exit For RecNo = (Page - 1) * rs.PageSize + iPage select case trim(rs("xl")) case "0205" xl="HRV中央空调" case "0215" xl="定速一拖多" case "0214" xl="定速柜机" case "0213" xl="定速挂机" case "0212" xl="变频一拖多" case "0211" xl="变频柜机" case "0210" xl="变频挂机" end select %> <% rs.MoveNext If rs.EOF Then Exit For Next If ipage>rs.PageSize then ipage=rs.PageSize End if Else no_str=true %> <% end if If rs.PageCount>1 then %> <%End if%>
序号
规格型号
主要功能
制冷功率(p)
系列
<%=RecNo%>
 ") class="A1"><%=rs("ggxh")%> <%=rs("zygn")%>
<%=rs("zlgl")%>
<%=xl%>
暂无任何空调产品
<% If Page >1 Then Response.Write "第一页" Response.Write "上一页" End If If Page 下一页" Response.Write "最后一页" End If Response.Write (" 输入页数： ") If no_str=true then ipage=0 End if %> 页数:<%=Page%>/<%=rs.PageCount%>
<%rs.Close set conn=nothing%>
山东海信商业有限公司版权所有