8-15.asp

asp开发 asp开发 asp开发 asp开发

<%
	Set count = Server.CreateObject("MSWC.pagecounter")
	count.PageHit()				'将当前网页访问次数加1
	Dim visit_number
	visit_number=count.Hits()	'获取当前网页访问次数
	Response.Write "您是第" & cStr(visit_number) & "位访问者！"
%>