<% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
Read="0"
<%
 newsid=request("newsid")
 if newsid="" then 
 response.Write "<script>alert('数据参数传递错误!');location.href='../Error.html' </script>"
 response.End()
 end if
 set rs=server.CreateObject("adodb.recordset")
  sql="select Reads from Websen_news where newsid="&newsid
  rs.open sql,conn,1,3
if isnull(rs("Reads")) then
  rs("Reads")=1
  rs.update
 else
  rs("Reads")=clng(rs("Reads"))+1
  rs.update
end if  
  Read=rs("Reads")
  rs.close
%>
document.write("共阅读"+<%=Read%>+"次")