<% Set rs= Server.CreateObject("ADODB.Recordset") '请勿改动下面这二行代码 MaxPerPage=Procount HeadTitle="产品展示" %> <% dim ID ID=replace(Trim(request("ID")),"'","") if ID="" then response.Redirect("Product.asp") end if sql="select * from okuoo_Product where ID=" & ID & "" rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" else ClassID=rs("ClassID") MaxPerPage=Procount strFileName="Product.asp?ClassID=" & ClassID Set rs1= Server.CreateObject("ADODB.Recordset") sql1="select * from okuoo_ProductClass where ClassID="& ClassID &" order by ClassID" rs1.open sql1,conn,1,3 bsortname=rs1("ClassName") if len(bsortname)=0 then bsortname="产品超市" end if rs1.close Set rs1= nothing rs("Hits")=rs("Hits")+1 rs.update Title=Trim(rs("Title")) HeadTitle=Title const ChannelID=2 'call MenuJS() if HeadTitle<>"" then SiteTitleAll= HeadTitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>
<% set pdrs=server.createobject("adodb.recordset") sql="select * from okuoo_ProductClass where ParentID=0 order by ClassID" pdrs.open sql,conn,1,3 do while not pdrs.eof %>
&title=<%=pdrs("ClassName")%>" class="left_link"><%=pdrs("ClassName")%>
<% pdrs.movenext loop pdrs.close set pdrs=nothing %>
 
<%= bsortname %> <% call ShowClassGuide() %>
<%=Title%> ",target="_blank">
<%fileExt=lcase(getFileExtName(rs("DefaultPicUrl")))%>
产品编号: <%=rs("Product_Id")%>
产品名称: <%=rs("title")%>
规  格: <%=rs("Spec")%>
产品备注: <%=rs("Memo")%>
 产品说明
 
<%call ShowProductContent()%>
 
  • 上一个产品: <% call ShowPrevProduct(200) %>

  • 下一个产品: <% call ShowNextProduct(200) %>
  • 点击数:<%=rs("Hits")%>  录入时间:<%= FormatDateTime(rs("UpdateTime"),2) %> 【打印此页】 【关闭 ",target="_blank">
    <% end if rs.close set rs=nothing call CloseConn() %>