<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Session.CodePage="65001" Response.Charset="UTF-8" %> <% set rs_p=server.createobject("adodb.recordset") sql_p="select * from News_Product where 1=1" if request("ID")<>"" then sql_p=sql_p&" and ArticleID="&(request("ID"))&"" end if sql_p=sql_p&" order by pro_px, ArticleID desc" 'set rs2=GetRecordset(sql2) rs_p.open sql_p,conn,1,3 if not (rs_p.eof and rs_p.bof) then rs_p("Hits")=int(rs_p("Hits"))+1 rs_p.update bigClassID_p=rs_p("Big_ID") SmallClassID_p=rs_p("Sma_ID") SmasmaClassID_p=rs_p("SmaSma_ID") BigClassName_p=rs_p("BigClassName") SmallClassName_p=rs_p("SmallClassName") smallsmallclass_p=rs_p("smallsmallclass") title_p=rs_p("title") Key=rs_p("Key") describe=rs_p("describe") smallpic_p=rs_p("smallpic") Content_p=rs_p("Content") 'Summary_p=rs_p("Summary") Hits_p=rs_p("Hits") date01_p=rs_p("date01") else response.Write "网站资料更新中..." end if %> <% if SmallClassID_p<>"" then sql="SELECT * FROM news_smallclass where 1=1 " if SmallClassID_p<>"" then sql=sql&" and SmallClassID="&SmallClassID_p&"" end if sql=sql&" order by pro_px, smallclassid desc" set rs=GetRecordset(sql) if not (rs.eof and rs.bof) then while not rs.eof BigClassName_p=rs("BigClassName") SmallClassName_p=rs("SmallClassName") rs.MoveNext() WEnd else %> 没有添加信息 <% end if rs.close end if %> <%=title_p%>-金瓶黑豹建材
  • 当前位置：网站首页 >> <%=BigClassName_p%> >> <%=SmallClassName_p%>
  • <% if len(SmallClassName_p)>2 then response.Write SmallClassName_p&">" else if len(BigClassName_p)>2 then response.Write BigClassName_p&">" end if end if %>
  • <%=title_p%>
    发布日期：<%=date01_p%>      浏览次数：<%=Hits_p%>
    <%=Content_p%>



    <% ArticleID=request("ID") set rs1=server.createobject("adodb.recordset") sql1="select * from News_Product where 1=1" if bigClassID_p<>"" then sql1=sql1&" and Big_ID="&bigClassID_p&"" end if if SmallClassID_p<>"" then sql1=sql1&" and Sma_ID="&SmallClassID_p&"" end if ' if SmasmaClassID<>"" then ' sql2=sql2&" and SmaSma_ID="&SmasmaClassID&"" ' end if sql1=sql1&" and ArticleID<"&ArticleID sql1=sql1&" order by ArticleID desc" set rs1=getrecordset(sql1) if not (rs1.eof and rs1.bof) then %>上一篇：&BigClassID=<%=rs1("Big_ID")%>&SmallclassId=<%=rs1("Sma_ID")%>&co=<%=request("co")%>"><%=CutFont(Rs1("Title"),60,"…")%>
    <% else response.write "无" end if rs1.close %> <% set rs2=server.createobject("adodb.recordset") sql2="select * from News_Product where 1=1" if bigClassID_p<>"" then sql2=sql2&" and Big_ID="&bigClassID_p&"" end if if SmallClassID_p<>"" then sql2=sql2&" and Sma_ID="&SmallClassID_p&"" end if ' if SmasmaClassID<>"" then ' sql2=sql2&" and SmaSma_ID="&SmasmaClassID&"" ' end if sql2=sql2&" and ArticleID>"&ArticleID sql2=sql2&" order by ArticleID" set rs2=getrecordset(sql2) if not (rs2.eof and rs2.bof) then %>下一篇：&BigClassID=<%=rs2("Big_ID")%>&SmallclassId=<%=rs2("Sma_ID")%>&co=<%=request("co")%>"><%=CutFont(Rs2("Title"),60,"…")%> <% else response.write "无" end if rs2.close %>