% productid=request("pid")
Set rstObj=Server.CreateObject("ADODB.Recordset")
strSQL="select * from products_data where pro_id = '"&productid&"'"
rstObj.Open strSQL,cnnDB,1,3
tonglei=rstObj("pro_muluid")
rstObj("pro_dianji")=rstObj("pro_dianji")+1
proname=rstObj("pro_name")
titlekey=proname
if rstObj("pro_keyword")<>"" then titlekey=proname&","&rstObj("pro_keyword")
rstObj.update
%>