产品中心

int(ProductRs("ClassID")) Then %><% Else %> class="cur"<% End If %>>" class="tit<% If rss("BigClassID")<>int(ProductRs("ClassID")) Then %><% Else %> on<% End If %>"><%= rss("BigClassName") %> <% set RsSmallClass=server.createobject("adodb.recordset") SmallClassSql="select * from [SmallClass] where BigClassID="&rss("BigClassID")&" order by px desc, SmallClassID asc" RsSmallClass.open SmallClassSql,conn,1,1 if not RsSmallClass.eof then %>

<% do while not RsSmallClass.eof %> &smallclassid=<%= RsSmallClass("SmallClassID") %>"<% If RsSmallClass("SmallClassID")<>int(ProductRs("SmallClassID")) Then %><% Else %> class="on"<% End If %>><%= RsSmallClass("SmallClassName") %> <% RsSmallClass.movenext loop RsSmallClass.close set RsSmallClass=nothing %>

<% End If %> <% rss.movenext next end if rss.close set rss=nothing %>

<% '定义下一篇过程!AID是传过来的ID号 Sub ShowHead(AID) NextPageSql = "Select top 1 * from [Product] Where ID >"& AID &" order by ID" Set HRs = Conn.Execute(NextPageSql) If Not HRs.Eof Then Response.Write ""&HRs("Title")&"" Else Response.Write "已是最后一个！" End If HRs.Close Set HRs = Nothing End Sub '定义上一篇过程!AID是传过来的ID号 Sub ShowNext(AID) NextPageSql = "Select top 1 * from [Product] Where ID <"& AID &" order by ID desc" Set HRs = Conn.Execute(NextPageSql) If Not HRs.Eof Then Response.Write ""&HRs("Title")&"" Else Response.Write "已是第一个！" End If HRs.Close Set HRs = Nothing End Sub %>

<% set BigClass_Rs=server.CreateObject("adodb.recordset") BigClass_Sql="select top 1 * from [BigClass] where BigClassID="&ProductRs("ClassID")&" order by BigClassID" BigClass_Rs.open BigClass_Sql,conn,1,2 %> <%= ProductRs("Title") %> 您的位置：首页 产品中心 " title="<%= BigClass_Rs("BigClassName") %>"><%= BigClass_Rs("BigClassName") %>详细内容 <% BigClass_Rs.close Set BigClass_Rs=nothing %>

<%=ProductRs("Title")%>

发布时间：<%= FormatTime(ProductRs("UpdateTime"),2)%>　　浏览：<%= ProductRs("Hits")%>次　　字号：大　中　小

<% If productRs("DefaultPicUrl")<>"images/nopic.gif" Then %>

" Id="CasePicShow" onload="AutoResizeImage(885,0)" style="border:1px #EDEDED solid; padding:1px;" alt="<%=ProductRs("Tilte")%>" />

<% End If %>

<%=ProductRs("Content")%>

上一篇：<% call ShowNext(ProductRs("ID")) %>

下一篇：<% call ShowHead(ProductRs("ID")) %>