?!--#include file="Head.asp"-->
首页产品展示<% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %>
 
  关于我们
 
<% =WebMenu() %>
      布袋产品大全
  资讯搜烦
 
<%=SearchForm()%>
  联系我们
电话Q?10-63280509
手机Q?3901146377
E-mailQsjd6377@163.com
google
<% ChildSort() %>
北京劲东伟图q告有限责Q公司是一安无h布袋 制作和印L公司。北京劲东彩印包装制品厂隶属于北京劲东伟囑ֹ告有限责d叔R无h布手袋、环保布袋子、环保购物袋、展会袋、礼品袋{环保布袋设计制作生产于一体的北京无h布袋?/a>Q公司生产无U布手提袋、无U布购物袋、不l布袋、展会袋?a href="../fanbudai/">帆布?/a>、礼品袋、帆布袋、棉布袋、牛z布袋等环保袋h格实惠质量上乘广受各大公司和用户的喜爱?/td>
   
<% function TopAffiche() dim rs,sql,i set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID from Ameav_News where ViewFlag and NoticeFlag order by id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "暂无相关信息" end if for i=1 to 4 if rs.eof then exit for response.write "·"&rs("NewsName")&"  " rs.movenext next rs.close set rs=nothing end function function TopNews() dim rs,sql,i,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID,AddTime from Ameav_News where ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("NewsName"))<=48 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),46) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
  4 "&NewsName&""&NewFlag&"
" rs.close set rs=nothing end function function TopMessage() dim rs,sql,i,MesName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,MesName,AddTime from Ameav_Message where ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("MesName"))<=46 then MesName=rs("MesName") else MesName=StrLeft(rs("MesName"),44) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
  4 "&MesName&""&NewFlag&"
" rs.close set rs=nothing end function function TopProducts() dim rs,sql,i,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select ID,ProductName,SortID,SmallPic,GroupID,Exclusive from Ameav_Products where ViewFlag and NewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else response.write"" for i=1 to 4 if rs.eof then exit for response.write"" rs.movenext next response.write"" end if response.write "
暂无相关信息
" if StrLen(rs("ProductName"))<=20 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),18) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.write "" &_ "
" &_ "" &_ "
 "&ProductName&"
" response.write"
" rs.close set rs=nothing end function function TopFriendSite() dim rs,sql dim i,SiteFace set rs = server.createobject("adodb.recordset") sql="select * from Ameav_FriendSite where ViewFlag order by id desc" rs.open sql,conn,1,1 if not (rs.bof and rs.eof) then response.write "" &_ "" &_ "" for i=1 to 7 if rs.eof then exit for response.write "
" if rs("LinkType") then SiteFace="" else SiteFace=rs("SiteFace") if len(SiteFace)>8 then SiteFace=left(SiteFace,8) end if response.write "" &_ "
" &_ ""&SiteFace&"" &_ "
" rs.movenext next response.write "
" end if rs.Close set rs=nothing end function function WebMenu() dim rs,sql,i set rs = server.createobject("adodb.recordset") sql="select ID,AboutName from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc" rs.open sql,conn,1,1 response.write"" if rs.bof and rs.eof then response.write "" else do response.write "" response.write "" rs.movenext loop until rs.eof end if response.write"
暂无相关信息
"&rs("AboutName")&"
" rs.close set rs=nothing end function function ContentList() dim SortPath SortPath=request.QueryString("SortPath") dim idCount'记录L dim pages'每页条数 if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then pages=12 elseif request.cookies("Style")="List" then pages=10 elseif request.cookies("Style")="Brief" then pages=5 end if dim pagec'总页? dim page'늠 page=clng(request("Page")) dim pagenc'每页昄的分页码数?pagenc*2+1 pagenc=2 dim pagenmax'每页昄的分늚最大页? dim pagenmin'每页昄的分늚最页? dim datafrom'数据表名 datafrom="Ameav_Products" dim datawhere'数据条g if SortPath<>"" then'是否查看的分cM? datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 " else datawhere="where ViewFlag " end if dim sqlid'本页需要用到的id dim Myself,PATH_INFO,QUERY_STRING'本页地址和参? PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis'排序的语?asc,desc taxis="order by id desc " dim i'用于循环的整? dim rs,sql'sql语句 '获取记录L sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '获取记录L if(idcount>0) then'如果记录L=0,则不处理 if(idcount mod pages=0)then'如果记录L除以每页条数有余??记录L/每页条数+1 pagec=int(idcount/pages)'获取总页? else pagec=int(idcount/pages)+1'获取总页? end if '获取本页需要用到的id============================================ 'd所有记录的id数?因ؓ只有id所以速度很快 sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages '每页昄记录? if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next '获取本页需要用到的idl束============================================ end if Response.Write "" if(idcount>0 and sqlid<>"") then'如果记录L=0,则不处理 '用in刷选本|语言的数?仅读取本|需的数?所以速度? sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 dim ProductName,SmallPicPath,Content if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then'q方式昄 dim R,C'昄行数和列? for R=1 to 3 Response.Write "" & vbCrLf for C=1 to 4 '填充数据到表? if C=1 or C=4 then Response.write"" rs.movenext if rs.eof then exit for next Response.Write "" & vbCrLf if rs.eof then exit for next elseif request.cookies("Style")="List" then'列表昄方式 for R=1 to 5 Response.Write "" & vbCrLf for C=1 to 2 '填充数据到表? if C=1 then Response.write"" rs.movenext if rs.eof then exit for next Response.Write "" & vbCrLf if rs.eof then exit for next elseif request.cookies("Style")="Brief" then'介显C方? while not rs.eof '填充数据到表? Response.write"" Response.write"" Response.Write "" rs.movenext wend end if else response.write "
" elseif C=2 then Response.write"" elseif C=3 then Response.write"" end if if StrLen(rs("ProductName"))<=18 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),16) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.write "" &_ "
" &_ "" &_ "
 "&ProductName&"
" response.write"
" else Response.write"" end if if StrLen(rs("ProductName"))<=28 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),26) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.write "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
" &_ "  "&ProductName&"
 ~号Q?&rs("ProductNo")&"
 hQ?&rs("Price")&"
 厂商Q?&rs("Maker")&"
 日期Q?&rs("AddTime")&"
" response.write"
" ProductName=rs("ProductName") Content=rs("Content") SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) Response.write "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
" &_ "  " &_ ""&ProductName&"
"&Content&"
" Response.write "
暂无相关信息
" exit function end if Response.Write "" & vbCrLf if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then Response.Write "" & vbCrLf Response.Write "" & vbCrLf elseif request.cookies("Style")="List" then Response.Write "" & vbCrLf Response.Write "" & vbCrLf elseif request.cookies("Style")="Brief" then Response.Write "" & vbCrLf Response.Write "" & vbCrLf end if Response.Write "pQ?font color='#ff6600'>"&idcount&"条记?nbsp;|Q?font color='#ff6600'>"&page&"/"&pagec&" 每页Q?font color='#ff6600'>"&pages&"?nbsp;   " & vbCrLf pagenmin=page-pagenc '计算늠开始? pagenmax=page+pagenc '计算늠l束? if(pagenmin<1) then pagenmin=1 '如果늠开始值小??1 if(page>1) then response.write ("9 ") '如果늠大于1则显C?W一? if(pagenmin>1) then response.write ("7 ") '如果늠开始值大?则显C?更前) if(pagenmax>pagec) then pagenmax=pagec '如果늠l束值大于总页??总页? for i = pagenmin to pagenmax'循环输出늠 if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") '如果늠l束值小于总页数则昄(更后) if(page:") '如果늠于总页数则昄(最后页) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.close set rs=nothing end function function ChildSort() dim ParentID ParentID=request.QueryString("SortID") if ParentID="" or (not isnumeric(ParentID)) then exit function dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then exit function else response.write "" while not rs.eof response.write " | "&rs("SortName")&" |" rs.movenext wend response.write "" end if rs.close set rs=nothing end function %>