深圳货运信息|深圳物流资讯|货运服务-深圳市顺发货运公司|货运热线0755--82057598

<% set conn = Server.CreateObject("adodb.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("web_data/livy_pro_mdb.mdb") conn.open connstr %> 深圳货运信息|深圳物流资讯|货运服务-深圳市顺发货运公司|货运热线0755--82057598

深圳市顺发货运公司专业从事深圳货运、深圳物流、货运代理、公路运输、航空货运、深圳搬家、深圳物流资讯等服务。

深圳市顺发货运公司热线电话：0755-82434189 82057598 13076939219 货运公司传真：0755-82267913 13902435056 联系人：何先生常小姐真诚期盼您的来电，我们将竭诚为您服务！！

企业精神

严格的管理是我们生存的基石，
做深圳货运公司中的律已先锋。
优质的服务是我们一贯的作风，
做深圳货运公司中的服务楷模。
运输的安全是我们永恒的承诺，
争深圳货运公司中的安全标兵。
最好的信誉是我们不变的追求，
建深圳货运公司中的诚信服务。

友情链接

深圳宇发货运公司
深圳天天货运公司
深圳搬家公司
深圳物流公司
深圳顺发货运公司
深圳装修公司
深圳装饰公司
深圳佳捷搬家公司
深圳佳捷物流公司
深圳深达环宇货运
GOOGLE搜索
百度搜索

物流货运资讯

24小时服务热线：0755－82057598 82267913 13076939219

货运资讯 <% BigClassName=trim(request("BigClassName")) sqlBigClass="select * from BigClass" Set rsBigClass= Server.CreateObject("ADODB.Recordset") rsBigClass.open sqlBigClass,conn,1,1 if rsBigClass.eof then response.Write("请首先添加类别。") end if do while not rsBigClass.eof if trim(rsBigClass("BigClassName"))=BigClassName then response.Write(" | " & rsBigClass("BigClassName") & "") BigClassName00=rsBigClass("BigClassName") else response.Write(" | " & rsBigClass("BigClassName") & "") end if rsBigClass.movenext loop rsBigClass.close set rsBigClass=nothing %>

<% sqlnew="select id,BigClassName,product_name,dateandtime,sx from product_info where id>0" if BigClassName<>"" then sqlnew=sqlnew & " and BigClassName='" & BigClassName & "' " end if sqlnew=sqlnew & " order by sx asc" set rs=server.CreateObject("adodb.recordset") rs.open sqlnew,conn,1,1 %> <% if rs.recordcount=0 then %>

没有找到信息！

<% else rs.PageSize =20 iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %>
<% for i=1 to x %> <% rs.movenext next %>

<% if trim(rs("BigClassName"))<>"" then response.write "["&rs("BigClassName")&"]" %> "><%= rs("product_name") %> <%=rs("dateandtime")%>

<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("末页 " & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("末页 " & vbCrLf) end if Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "条" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub %>

　专　业　专　注　用　心　服　务

公司地址：深圳市罗湖区宝岗北路长城货代市场67号

0755-82057598 82267913深圳市顺发环宇货运有限公司