<!--#include file="../../conn/conn_other.asp"-->
<!--#include file="../Incs/SysCode.asp"-->
<%
Dim ID
ID=CheckNum(Request("ID"))
Dim Rs,Sql,Hits
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select Hits From Dm_Video Where VideoID="&ID&""
Rs.Open Sql,Conn,1,3
If Not (Rs.Bof And Rs.Eof) Then
	Hits=Rs("Hits")
	Rs("Hits")=Rs("Hits")+1
	Rs.Update
Else
	Hits=0
End If
Rs.Close
Set Rs=Nothing
Call CloseDB()
%>
document.write("<%=Hits%>");