<% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
dim id
dim hits
 id=Replace_Text(request("id"))
 
hits=Replace_Text(request("hits")) 


conn.execute("update Websen_productshow set hits=hits+1 where id="&id&"")

 
sql="select sortid,typeid,typeid_2,id from Websen_productshow where id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write"<br><br><div align=center>此条信息已经删除或不存在</div>"
else
response.redirect (""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html")
end if
rs.close 
set rs=nothing
%>