<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> 幼儿园儿童木质滑梯-公园室外儿童游乐设施-户外亲子乐园_北京开心乐园玩具PK10计划
<%=TopProducts()%>
产品目录

<% Datafrom="ameav_ProductSort" ListView="html/Product" ListSort(0) %>
最新产品

<%=ContentList()%>
<% Function WebLocation(ID) Dim rs,sql,LocationText Set rs=server.CreateObject("adodb.recordset") sql="Select * From Ameav_ProductSort where ViewFlag and ID="&ID rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "错误" exit function end if LocationText=""&rs("SortName")&"" if rs("ParentID")<>0 then WebLocation rs("ParentID") response.write LocationText 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 function ContentList() dim SortPath SortPath=request.QueryString("SortPath") dim idCount'记录总数 dim pages'每页条数 if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then pages=20 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'数据条件 if SortPath<>"" then'是否查看的分类产品 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语句 '获取记录总数 sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '获取记录总数 if(idcount>0) then'如果记录总数=0,则不处理 if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1 pagec=int(idcount/pages)'获取总页数 else pagec=int(idcount/pages)+1'获取总页数 end if '获取本页需要用到的id============================================ '读取所有记录的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 '获取本页需要用到的id结束============================================ end if Response.Write "" if(idcount>0 and sqlid<>"") then'如果记录总数=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'橱窗方式显示 dim R,C'显示行数和列数 for R=1 to 3 Response.Write "" & vbCrLf for C=1 to 3 '填充数据到表格 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'简介显示方式 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&"
规格型号:"&rs("ProductNo")&"
" 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&"
 编号:"&rs("ProductNo")&"
 价格:"&rs("Price")&"
 厂商:"&rs("Maker")&"
 日期:"&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 "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.close set rs=nothing end function %> <% function TopAffiche() dim rs,sql,i,NewsName 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 "暂无相关信息" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("NewsName"))<=28 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),26) end if response.write"" response.write "" rs.movenext next response.write"
 "&NewsName&"
" rs.close end if 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,SortPath 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 8 if rs.eof then exit for if StrLen(rs("NewsName"))<=46 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),45) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write"
暂无相关信息
 "&NewsName&""&NewFlag&"
" rs.close set rs=nothing end function function downnews() dim rs,sql,i,downName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,downName,SortID,AddTime,SortPath from Ameav_Download 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 5 if rs.eof then exit for if StrLen(rs("downName"))<=46 then downName=rs("downName") else downName=StrLeft(rs("downName"),45) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
 "&downName&""&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 5 if rs.eof then exit for if StrLen(rs("MesName"))<=46 then MesName=rs("MesName") else MesName=StrLeft(rs("MesName"),45) 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 top 15 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"" if rs.bof and rs.eof then response.write "" else response.write"" do while not rs.eof response.write"" rs.movenext loop response.write"" end if response.write "
暂无相关信息
" if StrLen(rs("ProductName"))<=12 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),10) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.Write"
" response.write "" &_ "" &_ "
 "&ProductName&"" response.Write "
" response.write"
" rs.close set rs=nothing end function %> 友情链接: 儿童滑梯| 幼儿园滑梯| 儿童组合滑梯| 幼儿实木床| 幼儿园玩具| 幼儿园设备|