refresh.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 24 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
strSQL="select * from webcount"
objRS.open strSQL,objConn,1,3
if FormatDateTime(objrs("last_vistime"),vbShortDate)=FormatDateTime(date,vbShortDate) then
	objrs("last_vistime")=now
else
	if objrs("BBS_TdyPosCnt")>objrs("BBS_TopCnt") then
		objrs("BBS_TopCnt")=objrs("BBS_TdyPosCnt")
		objrs("BBS_TopTime")=objrs("last_vistime")
	end if
	objrs("last_vistime")=now
	objrs("BBS_YdyPosCnt")=objrs("BBS_TdyPosCnt")
	objrs("User_TdyCnt")=0
	objrs("Vis_TdyCnt")=0
	objrs("BBS_TdyPosCnt")=0	
	objrs("Blog_YdyCnt")=objrs("Blog_TdyCnt")
	objrs("Blog_TdyCnt")=0
	objrs("Blog_TdyRplCnt")=0
	objrs("User_TdyCnt")=0
end if
objrs.update
objrs.close
%>