<%@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("BigclassID")<>"" then
sql_p=sql_p&" and Big_ID="&(cint(request("BigclassID")))&""
else
sql_p=sql_p&" and Big_ID=9"
end if
if request("SmallClassID")<>"" then
sql_p=sql_p&" and Sma_ID="&(cint(request("SmallClassID")))&""
else
sql_p=sql_p&" and Sma_ID=466"
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")
end if
%>
<%
sql="SELECT * FROM news_smallclass where 1=1 "
SmallClassID=request("SmallClassID")
if SmallClassID<>"" then
sql=sql&" and SmallClassID="&SmallClassID&""
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")
BigClassName_t=rs("BigClassName")&","
SmallClassName_p=rs("SmallClassName")
SmallClassName_t=rs("SmallClassName")&","
rs.MoveNext()
WEnd
end if
rs.close
%>
<%=BigClassName_t%><%=SmallClassName_t%>金瓶黑豹防水涂料,深圳金瓶黑豹建材有限公司
