%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Session.CodePage="65001" Response.Charset="UTF-8" %>
<% set rs_p=server.createobject("adodb.recordset") sql_p="select * from 5_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 5_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 %>