%
dim pConn,Rs,BigClassID,i,nowpage,ID
Set pConn=Server.CreateObject("Adodb.Connection")
Set Rs =Server.CreateObject("Adodb.RecordSet")
pConn.Open Application("strConMassage")
BigClassID=int(Request("BigClassID"))
ID = int(Request("ID"))
%>
<%
if Rs.State=1 then Rs.Close
pConn.Execute("Update Article set hits=hits+1 where ArticleID="&ID)
Rs.Open "select * from Article where ArticleID="&ID&"",pConn,3,1
%>