<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %>-产品中心
产品展示
<% Datafrom="ameav_ProductSort" ListView="Product" ListSort(0) %>
信息搜索
   
<%=SearchForm()%>
山东利通化工产品展示 <% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %>  
  <%=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=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'数据条件 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 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'简介显示方式 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&"
 编号:"&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 "共计:"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条    " & vbCrLf pagenmin=page-pagenc '计算页码开始值 pagenmax=page+pagenc '计算页码结束值 if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1 if(page>1) then response.write ("9 ") '如果页码大于1则显示(第一页) if(pagenmin>1) then response.write ("7 ") '如果页码开始值大于1则显示(更前) if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数 for i = pagenmin to pagenmax'循环输出页码 if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") '如果页码结束值小于总页数则显示(更后) if(page:") '如果页码小于总页数则显示(最后页) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.close set rs=nothing end function %>