<%thisclass="product"%> <% id=request.QueryString("id") if id="" or not isnumeric(id) then Response.Write "" Response.End() end if set rs=server.createobject("adodb.recordset") exec="select * from [Products] where id="& id rs.open exec,conn,1,1 title=rs("title") ietitle=rs("ietitle") keywords=rs("keywords") description=rs("description") img=rs("img") key=title+ietitle if rs.eof then response.Write "无此记录！" response.End() end if set bigClass=server.createobject("adodb.recordset") exec="select * from [bigClass] where BigClassID="&rs("BigClassID")&"" bigClass.open exec,conn,1,1 if bigClass.eof then else BigClassName=bigClass("BigClassName") end if if rs("SmallClassID")<>"" and rs("SmallClassID")<>0 then set smallclass=server.createobject("adodb.recordset") exec="select * from [smallclass] where SmallClassID="&rs("SmallClassID")&"" smallclass.open exec,conn,1,1 SmallClassName=smallclass("SmallClassName") end if %> <%if ietitle<>"" then%><%=ietitle%><%else%><%=rs("title")%><%if rs("SmallClassID")<>0 then %>_<%=smallclass("SmallClassName")%><%end if%><%if rs("BigClassID")<>0 then %>_<%=BigClassName%><%end if%>__<%=xohome%><%end if%> <%=keywords%><%else%><%=rs("title")%><%if rs("SmallClassID")<>0 then %>,<%=smallclass("SmallClassName")%><%end if%><%if rs("BigClassID")<>0 then %>,<%=BigClassName%><%end if%><%end if%>" /> <%=description%><%else%><%=rs("title")%><%if rs("SmallClassID")<>0 then %>，<%=smallclass("SmallClassName")%><%end if%><%if rs("BigClassID")<>0 then %>，<%=BigClassName%><%end if%>，<%=xohome%><%end if%>" />

产品展示

当前位置 -> 首页 -> 产品中心 <%if rs("BigClassID")=0 then %><%else%> > "><%=BigClassName%><%end if%><%if rs("SmallClassID")=0 then %> <%else%> > &sid=<%=rs("SmallClassID")%>"><%=smallclass("SmallClassName")%><%end if%>

<%=rs("title")%>

产品品牌：<%if rs("pinpaiID")<>"0" then%><%set pinpai=server.createobject("adodb.recordset") exec="select * from [pinpai] where pinpaiID="&rs("pinpaiID")&"" pinpai.open exec,conn,1,1 %>" target="_blank" style="color:#003399"><%=pinpai("pinpai")%><%end if%>
产品介绍：
<%if rs("img")<>"" then%>" class="img">" width=200 height=180 hspace="3" vspace="3" align=right /><%end if%> <%=addkey(Delstyle(Delurl(rs("body"))))%> <%if len(Delhtml(rs("body")))<300 then%>
公司简介

<%Set rs3 = Server.CreateObject("ADODB.Recordset") sql3="select body from About where id=1" rs3.open sql3,conn,1,3 body=left(Delurl(rs3("body")),420+(len(rs("title"))*3)) %><%=addkey(Delurl(body))%>...【更多介绍】

<%end if%>
<%=xohome%>专业为您提供"><%=rs("title")%>，如有需要，可直接联系：
<%if config("name")<>"" then%><%=config("name")%> <%if config("sj")<>"" then%> <%=config("sj")%><%end if%> <%if config("qq")<>"" then%> &Site=<%=config("name")%>Menu=yes" title="QQ交谈" target="blank">:1 alt="QQ交谈" border="0"><%end if%><%end if%> <%if config("name1")<>"" then%>
<%=config("name1")%> <%if config("sj1")<>"" then%> <%=config("sj1")%><%end if%> <%if config("qq1")<>"" then%> &Site=<%=config("name1")%>Menu=yes" title="QQ交谈" target="blank">:1 alt="QQ交谈" border="0"><%end if%><%end if%> <%if config("name2")<>"" then%>
<%=config("name2")%> <%if config("sj2")<>"" then%> <%=config("sj2")%><%end if%> <%if config("qq2")<>"" then%> &Site=<%=config("name2")%>Menu=yes" title="QQ交谈" target="blank">:1 alt="QQ交谈" border="0"><%end if%><%end if%>
<% dim rstmp, nexttitle, prevtitle set rstmp=server.CreateObject("adodb.recordset") rstmp.open "select top 1 id, title from Products where fb=1 and id>" & request.QueryString("id") & " order by id asc",conn,1,1 if not rstmp.eof then nexttitle="" & InterceptString(rstmp(1),60) & "" else nexttitle = "无" end if rstmp.close rstmp.open "select top 1 id, title from Products where fb=1 and id<" & request.QueryString("id") & " order by id desc" if not rstmp.eof then prevtitle="" & InterceptString(rstmp(1),60) & "" else prevtitle = "无" end if rstmp.close set rstmp=nothing %> 上一个产品：<%=prevtitle%>
下一个产品：<%=nexttitle%>
相关产品
<%set rs=server.CreateObject("ADODB.Recordset") rs.open "select top 5 id,title,img from Products where fb=1 and id>"&ID&"+1 order by id asc",conn,1,1 if rs.eof and rs.bof then%> <%set rs2=server.CreateObject("ADODB.Recordset") rs2.open "select top 5 id,title,img from Products where fb=1 and id<"&ID&"+1 order by id desc",conn,1,1 if rs2.eof and rs2.bof then%> <%else%><% for i=1 to Rs2.recordcount if Rs2.Eof and Rs2.Bof then exit for%> <%Rs2.MoveNext if i mod 5=0 then response.write "" response.write "" end if next i=i+1 rs2.close end if %> <%else %><% for i=1 to Rs.recordcount if Rs.Eof and Rs.Bof then exit for%> <%Rs.MoveNext if i mod 5=0 then response.write "" response.write "" end if next i=i+1 rs.close end if %>
" class="img">" width="110" height="90"> " title="<%=rs2("title")%>" class="a1"><%=left(rs2("title"),25)%>
" class="img">" width="110" height="90">
" title="<%=rs("title")%>" class="a1"><%=left(rs("title"),25)%>