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

 conn.execute("update Websen_news set hits=hits+1 where newsid="&newsid&"")
  
sql="select typeid,newsid from Websen_news where newsid="&newsid&""
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("detail/"&rs("typeid")&"-"&rs("newsid")&".html")
end if
rs.close 
set rs=nothing
%>