<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Function.asp"-->
<%
ConnectionDatabase
 Dim NewsID,Hits,SqlStr,RS
 NewsID = Request("NewsID")
 If NewsID = "" Then
	Hits = 0
 Else
	SqlStr = "SELECT Hits From Article_ACT Where NewsID='" & NewsID &"'"
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open SqlStr, conn, 1, 3
	If RS.bof And RS.EOF Then
		Hits = 0
	Else
		Hits = rs(0) + 1
		rs(0) = Hits
		rs.Update
	End If
	rs.Close
	Set rs = Nothing
 End IF
Response.Write "document.write('" & Hits & "');"


%>