<!--#include file="Inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" --><%
Dim  DBC,Conn
Set  DBC = New DataBaseClass
Set  Conn = DBC.OpenConnection()
Set  DBC = Nothing
Newsid=Replace(request("Newsid"),"'","''")
conn.execute("update News set ClickNum=ClickNum+1 where Newsid='"&Newsid&"'")
set rs = server.createobject("adodb.recordset")
rs.source = "select ClickNum from News where Newsid='"&Newsid&"'"
rs.open rs.source,conn,1,1
if Not Rs.Eof then
%>
   javastr="<%=rs("ClickNum")%>"
   document.write(javastr)
<%
else
%>
   javastr="0"
   document.write(javastr)
<%
end if
rs.close
set rs=nothing
Set Conn = Nothing
%>
