cls_show.asp

又一个统计系统。这个是做网站访问统计使用的。大家可以试试。很不错。http://www.cn-study.com

<%
class cls_show
	Public Sub ShowPageInfo(table,id,condition,PageNo,PageSize,LinkFile)
		dim StrSql,TotalCount,TotalPageCount,OutStr
		StrSql="SELECT count("&id&") FROM "&table&" "&condition&""
		Set rs = hx.Execute(StrSql)
		TotalCount=rs(0)
		Set rs=Nothing

	'如果记录数为0，那么退出
	If TotalCount=0 Then
		Exit Sub
	End If
		OutStr="<P align=Center>"
	'如果记录数>MaxRecord，则记录数为MaxRecord
	if TotalCount>MaxRecord then
		OutStr = OutStr & Lang.item("g_022") & TotalCount & Lang.item("g_024") & " " & Lang.item("g_023") & MaxRecord & Lang.item("g_024")
		TotalCount=MaxRecord
	else
		OutStr = OutStr & Lang.item("g_022") & TotalCount & Lang.item("g_024")		
	end if
	'得到总页数
	If (TotalCount mod PageSize)=0 Then
		TotalPageCount=TotalCount\PageSize
	Else
		TotalPageCount=(TotalCount\PageSize)+1
	End If
	'防止提交的page参数大于第二次提交的总页数
	if PageNo>TotalPageCount then 
		PageNo=TotalPageCount
	End if
		OutStr = OutStr & "&nbsp;<font color='#FF0000'>"&PageNo&"</font>/<font color='#FF0000'>"&TotalPageCount&"</font>"
	If PageNo>1 Then
		OutStr = OutStr & "&nbsp;<a Href='?"&LinkFile&"&PageNo=1'>"& Lang.item("g_025") & "</a>"
		OutStr = OutStr & "&nbsp;<a Href='?"&LinkFile&"&PageNo="&PageNo-1&"'>"& Lang.item("g_026") & "</a>"
	End If
	If PageNo<TotalPageCount Then
		OutStr = OutStr & "&nbsp;<a Href='?"&LinkFile&"&PageNo="&PageNo+1&"'>"& Lang.item("g_027") & "</a>"
		OutStr = OutStr & "&nbsp;<a Href='?"&LinkFile&"&PageNo="&TotalPageCount&"'>"& Lang.item("g_028") & "</a>"
	End If
		OutStr = OutStr & "</P>"
		Response.Write(OutStr)	
	End Sub

End class
%>