8-15.asp

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

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