<%
dim id
id=clear_num(request.QueryString("id"))
sql="select * from [Lin_product] where Lin_id="&id
set rs=conn.execute(sql)
if not rs.eof then
if rs("lin_cptj1")="1" then
call chkuser()
end if
else
okclose "抱歉，找不到该记录..."
end if
conn.execute("update Lin_product set Lin_hits=Lin_hits+1 where Lin_id="&id)
%>
