% ShowSmallClassType=ShowSmallClassType_Article dim ArticleID ArticleID=trim(request("ArticleID")) if ArticleId="" then response.Redirect("Product.asp") end if sql="select * from Product where ArticleID=" & ArticleID & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" else rs("Hits")=rs("Hits")+1 rs.update if rs("hits")>=HitsOfHot then rs("Hot")=True rs.update end if BigClassName=rs("BigClassName") SmallClassName=rs("SmallClassName") %>
|
||||||||||||||||||
| 陕西赛高实业发展有限公司 版权所有 地址:中国.陕西西安经济技术开发区未央路中段B2区16号 邮编:710016 电话:0086-29-86520070 传真:0086-29-86511071 电子邮件: qubo@sieco.com.cn |
||||||||||||||||||